Code: Select all
Global base
base = {}
Function base:FreeDisplay(window)
Local err
ExitOnError(False)
If GetAttribute(#DISPLAY,window,#ATTRSTATE) <> #DISPSTATE_CLOSED
Err = False
FreeDisplay(window)
Else
Err = True
EndIf
ExitOnError(True)
Return (err)
EndFunction