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