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
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];
Create creates an ColorEditViewer.
CurrentViewer:
PROC
RETURNS [ColorEditViewer];
Returns the ColorEditViewer which currently has the input focus. If the input focus is not currently owned by an ColorEditViewer, returns NIL.
Destroy:
PUBLIC
PROCEDURE [aisViewer: ColorEditViewer] =
INLINE {ViewerOps.DestroyViewer[aisViewer]};
Destroy destroys the specified aisViewer viewer.
AddMenuItem:
PROC [name: Rope.
ROPE, proc: Menus.ClickProc, guarded:
BOOL ←
FALSE, fork:
BOOL ←
TRUE];
Adds a menu item to the AIS Viewers windows
END.