Page 1 of 1

base:FreeDisplay()

Posted: Wed Apr 15, 2015 11:25 pm
by djrikki
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