This will return whether or not the when has been closed successfully.
Code: Select all
Global base
base = {}
Function base:CloseDisplay(window)
ExitOnError(False)
If GetAttribute(#DISPLAY, window, #ATTRSTATE) = #DISPSTATE_OPEN
Local err
If GetAttribute(#DISPLAY,window,#ATTRSTATE) <> #DISPSTATE_CLOSED
Err = False
CloseDisplay(window)
Else
Err = True
EndIf
EndIf
ExitOnError(True)
Return (err)
EndFunction