IsInvalidated
(Available in 01 TS COM - TS_COM_IUnknown)
Purpose
Test if the object is 'InValidated'
Syntax
IF oSomeIObject:IsInvalidated
Description
This flag is set to TRUE if the object is invalidated, that is: If the 'InvalidateObject()', 'Destroy()' or last 'Release()' method has been called.
Note: To check if the object is valid you should use the 'IsValidObject' access method.
Source
ACCESS IsInvalidated CLASS TS_IUnknown
LOCAL lIsInvalidated AS LOGIC
TSTrace Enter
DO CASE
CASE IsDynPtr( PTR( _CAST, SELF ) )
TSTrace Warning Debug "IsDynPtr(PTR(_CAST,SELF))"
lIsInvalidated:=TRUE
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))