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__ )