MAPHANDLE & DLGS

[Walt Decker]

MAPHANDLE fails on close when applied to a dialog form.

Given:

'
'NOMAINWIN
GLOBAL DlgNum

DlgNum = 1
RetVal = FN.Dialog("DIALOG 1", DlgNum, 1, 1, 250, 200)
WAIT

'-----------------------------------------------------------
'-----------------------------------------------------------

SUB END.DMO DmoHndl$
print DmoHndl$
CLOSE #DmoHndl$
DlgNum = DlgNum - 1
IF DlgNum <= 0 THEN
 END
END IF

END SUB

'------------------------------------------------------------
'------------------------------------------------------------

SUB O.K Btn$
DlgNum = DlgNum + 1
RetVal = FN.Dialog("DIALOG " + STR$(DlgNum), DlgNum, 10, 1, 250, 200)

print "OK " + Btn$
END SUB

'------------------------------------------------------------
'------------------------------------------------------------

FUNCTION FN.SetNewWinPos(Ux, Uy)

UpperLeftX = Ux
UpperLeftY = Uy

END FUNCTION

'-------------------------------------------------------
'-------------------------------------------------------

FUNCTION FN.SetNewWinSize(Bx, By)

WindowWidth = Bx
WindowHeight = By

END FUNCTION

'-------------------------------------------------------
'-------------------------------------------------------

FUNCTION FN.Dialog(Title$, WinNo, Ux, Uy, Bx, By)

RetVal = 0
BUTTON #DLG.BTN, "NEW DLG", O.K, UL, 10, 10, 60, 20
RetVal = FN.SetNewWinPos(Ux, Uy)
RetVal = FN.SetNewWinSize(Bx, By)

'OPEN Title$ FOR WINDOW AS #DLG
OPEN Title$ FOR DIALOG_MODAL AS #DLG

PRINT #DLG, "TRAPCLOSE END.DMO"
Title$ = "#" + STR$(WinNo) + "DLG"

MAPHANDLE #DLG, Title$

END FUNCTION

'