INIT

(Available in 00 TS Base(Base) - TS_Base_0_Traverse)

Source

METHOD INIT( ulProfiling, ulShowStatisticsInProfile, ulShowObjectClassNames, ulShowRXIndexes  ; ...
...) CLASS TS_Traverse
// ============================== //
// Defaults        //
// ============================== //
// Profiling    FALSE //
// ShowStatisticsInProfile FALSE //
// ShowObjectClassNames   TRUE //
// ShowRXIndexes    TRUE //
// ============================== //
   IF IsLogic( ulShowRXIndexes )
      SELF:_ShowRXIndexes:=ulShowRXIndexes
   END
   IF IsLogic( ulShowObjectClassNames )
      SELF:_ShowObjectClassNames:=ulShowObjectClassNames
   END
   IF IsLogic( ulShowStatisticsInProfile )
      SELF:_ShowStatisticsInProfile:=ulShowStatisticsInProfile
   END
   IF IsLogic( ulProfiling )
      SELF:_Profiling:=ulProfiling
   END
   SELF:Clear( )
RETURN SELF