Destroy
(Available in 00 TS Base(GUI) - TS_Base_6_DialogFromResource)
Source
METHOD Destroy( ) CLASS TS_DialogFromResource
LOCAL oGlobalData AS _TS_GlobalData
LOCAL oSelf AS TS_DialogFromResource
LOCAL X AS DWORD
#IFDEF TS_TRACETIMED_ENABLE
_TS_TraceTimedEnter( SysAddAtom( PSZ( _CAST, __APPLICATION__ ) ), SysAddAtom ; ...
... ( PSZ( _CAST, __MODULE__ ) ), SysAddAtom( PSZ( _CAST, __ENTITY__ ) ) )
#ENDIF
oGlobalData:=_TS_GlobalDataGet( )
SELF:_Destroyed:=TRUE
oSelf:=SELF
X:=AScan( oGlobalData:_DialogFromResourceStack, { | _a | _a[ 2U ]==oSelf ; ...
... } )
IF LOGIC( _CAST, X )
ADel(