Axit
(Available in 00 TS Tools(Base) - TS_Tools_Root0)
Purpose
Destructor activation, Called by the GC
Syntax
oSomeClass:Axit( )
Description
Do not override this method ( when posible <g> ), use the 'Destroy()' method to do the real destructive work. It is not guarantied that the 'Axit()' method is called.
It is guarantied that the 'Destroy()' method is called.
Source
METHOD Axit( ) CLASS TS_Root0
TSTrace Enter
IF !LOGIC( _CAST, _AND( SELF:_ObjectStat1, TS_OBJSTAT1_DISALLOWEDESTROY ; ...
... ) )
SELF:_ObjectStat1:=_OR( SELF:_ObjectStat1 ; ...
... , TS_OBJSTAT1_DESTROYREQUESTED, TS_OBJSTAT1_INDESTROY )
IF LOGIC( _CAST, _AND( SELF:_ObjectStat1, TS_OBJSTAT1_AXITREGISTERED ; ...
... ) )
SELF:UnRegisterAxit( )
END
IF TRUE
// TSTrace ToDo NB "Make sure that 'Axit()/Destroy()' was not called before" ; ...
SELF:Destroy( )
END
END
TSTrace Leave DESTROY
RETURN NIL