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