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