<<>> <> <> <> <> DIRECTORY ImagerColor USING [SpecialColor], IO USING [STREAM]; ColorRegistryProcs: CEDAR DEFINITIONS ~ BEGIN InitPrinterColors: PROC [deviceType, colorType: ATOM, forceNew: BOOLEAN ¬ FALSE]; <> <<>> GetDeviceIndex: PROC [deviceType: ATOM]; PrintCurrentNames: PUBLIC PROC [stream: IO.STREAM]; <> ColorProc: TYPE = PROC[color: ImagerColor.SpecialColor] RETURNS [stop: BOOLEAN ¬ FALSE]; EnumerateColors: PUBLIC PROC [type: ATOM ¬ $All, colorProc: ColorProc]; <> <> <> END.