DIRECTORYMenuDefs USING [MenuItemHandle, MenuProc],PointDefs USING [ScrPt, ScrRealPt],Rope USING [ROPE];GriffinMenusInterface: CEDAR DEFINITIONS = {MenuItemFromRope: PROC [rope: Rope.ROPE] RETURNS [MenuDefs.MenuItemHandle];PlaceScreenCP: PROCEDURE[pt: PointDefs.ScrPt];	--standard interfacePlaceScreenRealCP: PROCEDURE[pt: PointDefs.ScrRealPt];	--more precisionSetThickness: MenuDefs.MenuProc;	--1, 2, 3, 4ColorControl: MenuDefs.MenuProc;	--outlined, filled or bothColorType: MenuDefs.MenuProc;	--the colors themselvesTextDir: MenuDefs.MenuProc;	--0 d, 90 d, etcSetType: MenuDefs.MenuProc;	--normal, stackSetCenter: MenuDefs.MenuProc;	--left, center, rightExpandShape: MenuDefs.MenuProc;	--open style menus: shape, color and textExpandColor: MenuDefs.MenuProc;ExpandText: MenuDefs.MenuProc;ApplyStyle: MenuDefs.MenuProc;	--apply the current styleIndicateStyle: MenuDefs.MenuProc;	--indicate the current styleFittingType: MenuDefs.MenuProc;ExpandSplines: MenuDefs.MenuProc;SplineType: MenuDefs.MenuProc;NewLink: MenuDefs.MenuProc;BackLink: MenuDefs.MenuProc;Draw: MenuDefs.MenuProc;Close: MenuDefs.MenuProc;Box: MenuDefs.MenuProc;Modify: MenuDefs.MenuProc;Caption: MenuDefs.MenuProc;Refresh: MenuDefs.MenuProc;Press: MenuDefs.MenuProc;Save: MenuDefs.MenuProc;Restore: MenuDefs.MenuProc;GridMenuProc: MenuDefs.MenuProc;Merge: MenuDefs.MenuProc;Switch: MenuDefs.MenuProc;ColorMap: MenuDefs.MenuProc;ToggleFigureMenus: PROC;	--view menusToggleObjectMenu: PROC;ToggleTransformMenu: PROC;ToggleOverlapMenu: PROC;ToggleEditMenus: PROC;	--edit and spline menusToggleStyleMenu: PROC;	-- the top level style menuDelete: MenuDefs.MenuProc;Undo: MenuDefs.MenuProc;SelectAll: MenuDefs.MenuProc;DeselectAll: MenuDefs.MenuProc;Cluster: MenuDefs.MenuProc;UnCluster: MenuDefs.MenuProc;Transfer: MenuDefs.MenuProc;ChangeOverlap: MenuDefs.MenuProc;	--Top, Bottom, Up One, Down OneXForm: MenuDefs.MenuProc;	--Map, Scale, ScaleX, ScaleY, RotateToggle: MenuDefs.MenuProc;	--Use Copy}.   Ž  GriffinMenusInterface.mesaLets a program click Griffin MenusIf this changes:compile GriffinMenusInterfaceImpl ControllerMenus DrawOps FigureOps GriffinMain ObjectOps Maureen Stone September 19, 1985 2:29:44 pm PDTImplemented by GriffinMenusInterfaceImplMenuProc: TYPE = PROC[item: MenuItemHandle];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;--Style menus (ControllerMenus)Shape, color and textEditing menus (DrawOps)expand style menusoutline editingFigure related menus (FigureOps)object operations (ObjectOps)Êï  ˜ Jšœ™Jšœ"™"šœ™JšœZ™Z—Jšœ/™/šÏk	˜	Jšœ	œ˜*Jšœ
œ˜#Jšœœœ˜J˜ —JšÏbœœ˜,Jšœ(™(JšÏnœœœœ˜KJšœ,™,Jšœ@™@JšœœÏc!œ™0šœœ œ™1JšŸœ	œ+˜CJšŸœ	œ+˜GJ˜ —™Jšœ™Jšžœ ˜-Jšžœ ˜;Jšž	œ ˜5Jšžœ ˜,Jšžœ ˜+Jšž	œ ˜3—J™ šœ™J™Jšžœ )˜IJšžœ˜Jšž
œ˜Jšž
œ ˜8Jšžœ ˜>Jšœ™Jšžœ˜Jšžœ˜!Jšž
œ˜Jšžœ˜Jšžœ˜Jšžœ˜Jšžœ˜Jšžœ˜Jšžœ˜Jšžœ˜—J™ šœ ™ Jšžœ˜Jšžœ˜Jšžœ˜Jšžœ˜Jšžœ˜ Jšžœ˜Jšžœ˜Jšžœ˜—J™ JšŸœœ ˜%JšŸœœ˜JšŸœœ˜JšŸœœ˜JšŸœœ ˜.JšŸœœ ˜2J™ šœ™Jšžœ˜Jšžœ˜Jšž	œ˜Jšžœ˜Jšžœ˜Jšž	œ˜Jšžœ˜Jšžœ ˜AJšžœ $˜>Jšžœ 
˜%—Jšœ˜— …—    ä  a  