AddTranslation

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

Source

METHOD AddTranslation( cItem AS STRING, ucTranslation AS USUAL, lIsReserved AS LOGIC  ; ...
...) AS LOGIC PASCAL CLASS TS_Atomizer
LOCAL oAtomizerItem AS TS_AtomizerItem
LOCAL liTypeInfo AS LONGINT
LOCAL lRetVal AS LOGIC
LOCAL iItem AS DWORD
   TSTrace Enter
   IF LOGIC( _CAST, SELF:_ItemCreationBlocked )
      TSTrace Warning "LOGIC(_CAST,SELF:_ItemCreationBlocked)"
      lRetVal:=FALSE
   ELSE
      liTypeInfo:=TS_ATOMIZER_ITEMTYPE_TRANSLATION
      iItem:=SELF:_LocateItem( cItem )
      IF LOGIC( _CAST, iItem )
         oAtomizerItem:=SELF:_ItemsAtivated[ iItem ]
         IF oAtomizerItem==NULL_OBJECT
            TSTrace Warning "(oAtomizerItem:=SELF:_ItemsAtivated[SELF:_LocateItem(" ; ...
           ... +cItem+")])==NULL_OBJECT"
         END
      ELSE
         liTypeInfo:=_OR( liTypeInfo, TS_ATOMIZER_ITEMTYPE_MAIN )
         liTypeInfo:=_OR( liTypeInfo, TS_ATOMIZER_ITEMTYPE_TEXT )
         oAtomizerItem:=SELF:_CreateItem( cItem, 0U )
         IF oAtomizerItem==NULL_OBJECT
            TSTrace Warning "(oAtomizerItem:=SELF:_CreateItem("+cItem+ ; ...
           ... "))==NULL_OBJECT"
         END
      END
      IF oAtomizerItem==NULL_OBJECT
         lRetVal:=FALSE
      ELSE
         DO CASE
         CASE IsNil( ucTranslation )
            oAtomizerItem:Value:=cItem
         CASE IsString( ucTranslation )
            IF Empty( ucTranslation )
               oAtomizerItem:Value:=TS_S_EMPTY
            ELSE
               oAtomizerItem:Value:=AllTrim( ucTranslation )
            END
         OTHERWISE
            TSTrace Warning "!(IsNil(ucTranslation) .AND. IsString(ucTranslation))"
         END
         IF lIsReserved
            liTypeInfo:=_OR( liTypeInfo, TS_ATOMIZER_ITEMTYPE_RESERVED )
         END
         oAtomizerItem:_AddTypeInfo( liTypeInfo )
      END
   END
   TSTrace Leave
RETURN lRetVal