IsInDestroy

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

Purpose

Test if the object is being destroyed

Syntax

IF SELF:IsInDestroy

Description

Test if the object is being destroyed, this flag is only TRUE while the 'Destroy()' method is being executed. When the 'Destroy()' method is done the 'IsDestroyed' access will return TRUE.

Example

METHOD SomeMethod( ) CLASS SomeClass
   DO CASE
   CASE SELF:IsInDestroy
//    Do nothing
   CASE SELF:IsDestroyed
//    Do nothing
   OTHERWISE
//    Do the work
      ...
   END
   RETURN...

Source

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