IsGray

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

Source

ACCESS IsGray AS LOGIC PASCAL CLASS TS_AtomizerItem
   TSTrace Enter
   TSTrace Leave
RETURN _AND( SELF:_TYPEOF, _TS_ATOMIZER_ITEMTYPE_WHITE_GRAY  ; ...
...)<>0L