<> <> <> <> DIRECTORY Rope USING [ROPE], IO USING [STREAM]; ColorMaps: CEDAR DEFINITIONS = BEGIN <> SetUp: PROC [fileName: Rope.ROPE, forceOn: BOOL_TRUE, forceBits: BOOL_TRUE, msgs: IO.STREAM_NIL]; <<--sets up the colormap as specified in the file>> <<--forceOn: colordisplay is started first if necessary>> <<--forceBits: colordisplay switches bits per pixel mode if necessary >> Create: PROC [fileName: Rope.ROPE, special: REF_NIL, msgs: IO.STREAM_NIL]; <<--creates a file usable by SetUp>> Last: PROC [] RETURNS [fileName: Rope.ROPE]; <<--returns name of last file set up successfully>> On8Bits: PROC [forceOn: BOOL_TRUE, force8bit: BOOL_TRUE] RETURNS [BOOL]; <<--returns whether the colordisplay is available, on, and in 8 bit mode>> <<--forceOn: colordisplay is started first if necessary>> <<--force8bit: colordisplay switches to 8 bit mode if necessary>> RegisterMenu: PROC [entryName: Rope.ROPE, fileName: Rope.ROPE_NIL]; <<--offers setting up this file from a standard menu>> CallBack: PROC [p: PROC]; <<--p will be called after any color map change caused through this modle>> <<--p must not cause the color map to be changed again>> END.