Items
(Available in 00 TS Tools(Base) - TS_Tools_Atomizer)
Source
ACCESS Items AS ARRAY PASCAL CLASS TS_Atomizer
LOCAL aItems AS ARRAY
TSTrace Enter
aItems:=AClone( SELF:_ItemsAtivated )
IF SELF:_ItemCacheInfoFirstChar==NULL_PTR .AND. SELF:_ItemCacheInfoItemIndex ; ...
... ==NULL_PTR .AND. LOGIC( _CAST, ALen( aItems ) )
aItems:=ASort( aItems, NIL, NIL, { | _1, _2 | TS_BytePtrCompare( IVarGet( _1 ; ...
... , #PSZItem ), IVarGet( _2, #PSZItem ) )<=0 } )
END
TSTrace Leave
RETURN aItems