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( oGlobalData:_DialogFromResourceStack, X )
      ASize( oGlobalData:_DialogFromResourceStack, ALen( oGlobalData:_DialogFromResourceStack  ; ...
     ... )-1U )
   END
   SELF:_Caption:=NULL_STRING
   SELF:_DialogResource:=NULL_STRING
   SELF:_Handle:=NULL_PTR
   SELF:_IsValidObject:=FALSE
   SELF:_Owner:=NULL_OBJECT
   #IFDEF TS_TRACETIMED_ENABLE
      _TS_TraceTimedLeave( SysAddAtom( PSZ( _CAST, __APPLICATION__ ) ), SysAddAtom ; ...
     ... ( PSZ( _CAST, __MODULE__