AddSeparators

(Available in 00 TS Tools(Base) - TS_Tools_Atomizer)

Source

METHOD AddSeparators( ) CLASS TS_Atomizer
LOCAL oAtomizerItem AS TS_AtomizerItem
LOCAL lRetVal AS LOGIC
LOCAL U AS USUAL
LOCAL X AS DWORD
   TSTrace Enter
   IF LOGIC( _CAST, SELF:_ItemCreationBlocked )
      TSTrace Warning "LOGIC(_CAST,SELF:_ItemCreationBlocked)"
      lRetVal:=FALSE
   ELSE
      lRetVal:=TRUE
      X:=0
      WHILE X<PCOUNT( ) .AND. lRetVal
         X+=1U
         U:=UsualVal( _GETMPARAM( X ) )
         IF IsString( U ) .AND. LOGIC( _CAST, SLen( U ) )
            oAtomizerItem:=SELF:_CreateItem( U, TS_ATOMIZER_ITEMTYPE_SEPERATOR  ; ...
           ... )
            IF oAtomizerItem==NULL_OBJECT
               TSTrace Warning "(oAtomizerItem:=SELF:_CreateItem("+U+ ; ...
              ... "))==NULL_OBJECT"
               lRetVal:=FALSE
            ELSE
               lRetVal:=TRUE
            END
         ELSE
            TSTrace Warning "!(IsString(U) .AND. LOGIC(_CAST,SLen(U)))"
            lRetVal:=FALSE
         END
      END
   END
   TSTrace Leave
RETURN lRetVal