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