base:FreeDisplay()
Posted: Wed Apr 15, 2015 11:25 pm
Free a Hollywood Display and return whether it succeeded or not.
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