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))"
      lIsInvalidated:=TRUE
   OTHERWISE
      lIsInvalidated:=FALSE
   END
   TSTrace Leave
RETURN lIsInvalidated