EvalObject
(Available in 00 TS Base(Base) - TS_Base_0_Traverse)
Source
METHOD EvalObject( oItem AS OBJECT ) AS VOID PASCAL CLASS TS_Traverse
SELF:Objects+=1U
IF oItem==NULL_OBJECT
SELF:NullObjects+=1U
END
IF SELF:_Profiling
IF LOGIC( _CAST, oItem )
IF SELF:_ShowObjectClassNames
SELF:_ProfileAddString( "O{"+Symbol2String( ClassName ; ...
... ( oItem ) )+"}" )
ELSE
SELF:_ProfileAddString( "O" )
END
ELSE
SELF:_ProfileAddString( "o" )
END
END
RETURN