DIRECTORYBiScrollers USING [Transform],GriffinKernel USING [Data],GriffinMenu USING [MenuHandle, MenuItemHandle, MenuProc],GriffinPoint USING [ScrPt, ScrRealPt],Rope USING [ROPE];GriffinMenuInterface: CEDAR DEFINITIONS = BEGINData: TYPE = GriffinKernel.Data;MenuItemFromRope: PROC [rope: Rope.ROPE] RETURNS [GriffinMenu.MenuItemHandle];PlaceScreenCP: PROC [pt: GriffinPoint.ScrPt]; --standard interfacePlaceScreenRealCP: PROC [pt: GriffinPoint.ScrRealPt]; --more precisionColorControl: GriffinMenu.MenuProc; --outlined, filled or bothColorType: GriffinMenu.MenuProc; --the colors themselvesSetCenter: GriffinMenu.MenuProc; --left, center, rightSetThickness: GriffinMenu.MenuProc; --1, 2, 3, 4SetType: GriffinMenu.MenuProc; --normal, stackTextDir: GriffinMenu.MenuProc; --0 d, 90 d, etcApplyStyle: GriffinMenu.MenuProc; --apply the current styleExpandShape: GriffinMenu.MenuProc; --open style menus: shape, color and textExpandColor: GriffinMenu.MenuProc;ExpandText: GriffinMenu.MenuProc;IndicateStyle: GriffinMenu.MenuProc; --indicate the current styleBackLink: GriffinMenu.MenuProc;DrawBox: GriffinMenu.MenuProc;Caption: GriffinMenu.MenuProc;Close: GriffinMenu.MenuProc;Draw: GriffinMenu.MenuProc;ExpandSplines: GriffinMenu.MenuProc;FittingType: GriffinMenu.MenuProc;Modify: GriffinMenu.MenuProc;NewLink: GriffinMenu.MenuProc;SplineType: GriffinMenu.MenuProc;Refresh: GriffinMenu.MenuProc;Grid: GriffinMenu.MenuProc;Merge: GriffinMenu.MenuProc;Switch: GriffinMenu.MenuProc;Frame: GriffinMenu.MenuProc;StartFigureMenus: PROC [data: Data]; --Implemented by GriffinFigureImplStartObjectMenus: PROC [data: Data]; --Implemented by GriffinObjectOpsImplStartDrawMenus: PROC [data: Data]; --Implemented by GriffinDrawImplToggleBackground: PROC [data: Data];ToggleFigureMenus: PROC [data: Data];ToggleObjectMenus: PROC [data: Data];ToggleTransformMenus: PROC [data: Data];ToggleOverlapMenus: PROC [data: Data];ToggleEditMenus: PROC [data: Data];ToggleStyleMenus: PROC [data: Data];RelocateMenu: PROC [xform: BiScrollers.Transform, menu: GriffinMenu.MenuHandle, to: GriffinPoint.ScrPt];Delete: GriffinMenu.MenuProc;Undo: GriffinMenu.MenuProc;SelectAll: GriffinMenu.MenuProc;DeselectAll: GriffinMenu.MenuProc;Cluster: GriffinMenu.MenuProc;UnCluster: GriffinMenu.MenuProc;Transfer: GriffinMenu.MenuProc;ChangeOverlap: GriffinMenu.MenuProc; --Top, Bottom, Up One, Down OneXForm: GriffinMenu.MenuProc; --Map, Scale, ScaleX, ScaleY, RotateToggle: GriffinMenu.MenuProc; --Use CopyEND.   ~  GriffinMenuInterface.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.Created by: Maureen Stone September 19, 1985 2:29:44 pm PDTLast Edited by: Ken Pier November 13, 1985 4:20:38 pm PSTImplemented by GriffinMenuInterfaceImplprocedures to define control points.  Point is constructed [x, y]ScrPt: TYPE = ARRAY [X..Y] OF INTEGER. X=1, Y=2;ScrRealPt: TYPE = ARRAY [X..Y] OF REAL. X=1, Y=2;MenuProc: TYPE = PROC[item: MenuItemHandle];Style menus (GriffinControllerMenuImpl)Shape, color and textEditing menus (GriffinDrawImpl)expand style menusoutline editingFigure related menus (GriffinFigureImpl)ÊY  ˜ codešœ™Kšœ
Ïmœ1™<Kšœ;™;Kšœ9™9K™ —šÏk	˜	Jšœžœ˜Jšœžœ˜Jšœžœ(˜9Jšœžœ˜&Jšœžœžœ˜K˜ —šÏbœžœžœž˜/K™ Kšœžœ˜ ™ Kšœ'™'—šÏnœžœžœžœ˜NK™ KšœA™AKšœžœÏc!œ™0Kšœžœ¡œ™1—Kš œžœ¡˜Bš œžœ¡˜FK˜ Kšœ,™,Kšœ'™'Kšœ™—KšŸœ¡˜>KšŸ	œ¡˜8KšŸ	œ¡˜6KšŸœ¡˜0KšŸœ¡˜.KšŸœ¡˜/™ Kšœ™K™—KšŸ
œ¡˜;KšŸœ¡)˜LKšŸœ˜"KšŸ
œ˜!KšŸœ¡˜A˜ Kšœ™—KšŸœ˜KšŸœ˜KšŸœ˜KšŸœ˜KšŸœ˜KšŸœ˜$KšŸœ˜"KšŸœ˜KšŸœ˜KšŸ
œ˜!™ Kšœ(™(—KšŸœ˜KšŸœ˜KšŸœ˜KšŸœ˜KšŸœ˜K˜ Jš œžœ¡"˜GJš œžœ¡%˜JJš œžœ¡ ˜CK˜ Kš œžœ˜$Kš œžœ˜%Kš œžœ˜%Kš œžœ˜(Kš œžœ˜&Kš œžœ˜#Kš œžœ˜$Kš œžœV˜hK™ KšŸœ˜KšŸœ˜KšŸ	œ˜ KšŸœ˜"KšŸœ˜KšŸ	œ˜ KšŸœ˜KšŸœ¡˜DKšŸœ¡$˜AKšŸœ¡
˜(K˜ —Kšžœ˜— …—    	è  ¿  