IsAxitRegistered

 (Available in 00 TS Tools(Base) - TS_Tools_Root0)

Purpose

Test if the object is destroyed

Syntax

IF oObject:IsDestroyed

Description

Test is this object is 'Axit'-registered

Example

METHOD Destroy( ) CLASS SomeClass
   SUPER:Destroy( )
   IF !SELF:IsAxitRegistered
//    Do the work
      ... 
   END
   RETURN...

Source

ACCESS IsAxitRegistered AS LOGIC PASCAL CLASS TS_Root0
LOCAL lIsAxitRegistered AS LOGIC
   TSTrace Enter
   IF LOGIC( _CAST, _AND( SELF:_ObjectStat1, TS_OBJSTAT1_AXITREGISTERED  ; ...
  ... ) )
      lIsAxitRegistered:=TRUE
   ELSE
      lIsAxitRegistered:=FALSE
   END
   TSTrace Leave
RETURN lIsAxitRegistered