DIRECTORY Menus USING [ClickProc], Rope USING [ROPE], ViewerClasses USING [Viewer, ViewerRec], ViewerOps USING [DestroyViewer]; ColorEditViewers: CEDAR DEFINITIONS IMPORTS ViewerOps = BEGIN OPEN ViewerClasses; ColorEditViewerData: TYPE ~ REF ColorEditViewerDataRec; ColorEditViewerDataRec: TYPE; ColorEditViewer: TYPE ~ Viewer; --An ColorEditViewer is a Viewer brushSize: CARDINAL; colorBrushColorDistance: CARDINAL; Create: PROCEDURE [info: ViewerClasses.ViewerRec _ [], clientData: REF ANY _ NIL] RETURNS [aisViewer: ColorEditViewer]; CurrentViewer: PROC RETURNS [ColorEditViewer]; Destroy: PUBLIC PROCEDURE [aisViewer: ColorEditViewer] = INLINE {ViewerOps.DestroyViewer[aisViewer]}; AddMenuItem: PROC [name: Rope.ROPE, proc: Menus.ClickProc, guarded: BOOL _ FALSE, fork: BOOL _ TRUE]; END. ¨ColorEditViewers.mesa Written by Eric Nickell on Friday, May 4, 1984 10:23 am PDT Last Edited by Eric Nickell on January 7, 1986 8:28:59 pm PST Create creates an ColorEditViewer. Returns the ColorEditViewer which currently has the input focus. If the input focus is not currently owned by an ColorEditViewer, returns NIL. Destroy destroys the specified aisViewer viewer. Adds a menu item to the AIS Viewers windows Κ|˜šœ™Jšœ;™;J™=—J™šΟk ˜ Icodešœœ ˜Jšœœœ˜Jšœœ˜(Jšœ œ˜ —J˜šœœ œ˜$Jšœ ˜—J˜Jšœœ˜J˜Jšœœœ˜7šœœ˜J˜—šœœ Οc ˜BJ˜—K˜Kšœ œ˜Kšœœ˜"code2š Οnœ œ2œœœœ˜wJ™"—šŸ œœœ˜.Kšœ‹œ™—šŸœœ œ œ&˜eJ™0—šŸ œœ œ"œœœœ˜eKšœ+™+—Lšœ˜J™J˜—…—$H