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(