Axit

(Available in 00 TS Base(GUI) - TS_Base_6_DialogFromResource)

Source

METHOD Axit( ) CLASS TS_DialogFromResource
   #IFDEF TS_TRACETIMED_ENABLE
      _TS_TraceTimedEnter( SysAddAtom( PSZ( _CAST, __APPLICATION__ ) ), SysAddAtom ; ...
     ... ( PSZ( _CAST, __MODULE__ ) ), SysAddAtom( PSZ( _CAST, __ENTITY__ ) ) )
   #ENDIF
   IF !InCollect( )
      UnRegisterAxit( SELF )
   END
   IF !SELF:_Destroyed
      SELF:_Destroyed:=TRUE
      SELF:Destroy( )
   END
   #IFDEF TS_TRACETIMED_ENABLE
      _TS_TraceTimedLeave( SysAddAtom( PSZ( _CAST, __APPLICATION__ ) ), SysAddAtom ; ...
     ... ( PSZ( _CAST, __MODULE__ ) ), SysAddAtom( PSZ( _CAST, __ENTITY__ ) ) )
   #ENDIF
RETURN NIL