ColorRegistryProcs.mesa
Copyright Ó 1987, 1991 by Xerox Corporation. All rights reserved.
Maureen Stone, June 11, 1987 2:32:18 pm PDT
Michael Plass, September 24, 1991 12:25 pm PDT
DIRECTORY
ImagerColor USING [SpecialColor],
IO USING [STREAM];
ColorRegistryProcs: CEDAR DEFINITIONS
~ BEGIN
InitPrinterColors: PROC [deviceType, colorType: ATOM, forceNew: BOOLEAN ¬ FALSE];
The display types are initialized when the colors are created. ImagerPDColorImpl (or the equivalent) calls this routine to initialize printer tiles. Unless forceNew is TRUE, the initialization will occure only once.
GetDeviceIndex: PROC [deviceType: ATOM];
PrintCurrentNames: PUBLIC PROC [stream: IO.STREAM];
Prints all the currently registered colors on the specified stream.
ColorProc: TYPE = PROC[color: ImagerColor.SpecialColor] RETURNS [stop: BOOLEAN ¬ FALSE];
EnumerateColors: PUBLIC PROC [type: ATOM ¬ $All, colorProc: ColorProc];
Enumerates all the colors registered with the type ATOM.
IF type=$All, will enumerate all the registered colors.
This procedured used by devices initializing their special colors.
END.