IsInvalidated

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

Purpose

Test if the object is 'InValidated'

Syntax

IF oSomeObject:IsInvalidated

Description

This flag is set to TRUE if the object is invalidated, that is: If the 'InvalidateObject()', 'Destroy()' or 'Axit()' method has been called.

Note: To check if the object is valid you should use the 'IsValidObject' access method.

Source

ACCESS IsInvalidated AS LOGIC PASCAL CLASS TS_Root0
LOCAL lIsInvalidated AS LOGIC
   TSTrace Enter
   DO CASE
   CASE LOGIC( _CAST, _AND( SELF:_ObjectStat1, TS_OBJSTAT1_INDESTROY  ; ...
  ... ) )
      TSTrace Warning Debug "LOGIC(_CAST,_And(SELF:_ObjectStat1,TS_OBJSTAT1_INDESTROY))"
      lIsInvalidated:=TRUE
   CASE LOGIC( _CAST, _AND( SELF:_ObjectStat1, TS_OBJSTAT1_DESTROYED  ; ...
  ... ) )
      TSTrace Warning Debug "LOGIC(_CAST,_And(SELF:_ObjectStat1,TS_OBJSTAT1_DESTROYED))"
      lIsInvalidated:=TRUE
   CASE LOGIC( _CAST, _AND( SELF:_ObjectStat1, TS_OBJSTAT1_INVALID  ; ...
  ... ) )
      TSTrace Warning Debug "LOGIC(_CAST,_And(SELF:_ObjectStat1,TS_OBJSTAT1_INVALID))"
      lIsInvalidated:=TRUE
   OTHERWISE
      lIsInvalidated:=FALSE
   END
   TSTrace Leave
RETURN lIsInvalidated