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
DIRECTORY
MenuDefs USING [MenuItemHandle, MenuProc],
PointDefs USING [ScrPt, ScrRealPt],
Rope USING [ROPE];
GriffinMenusInterface: CEDAR DEFINITIONS = {
Implemented by GriffinMenusInterfaceImpl
MenuItemFromRope: PROC [rope: Rope.ROPE] RETURNS [MenuDefs.MenuItemHandle];
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;
PlaceScreenCP: PROCEDURE[pt: PointDefs.ScrPt]; --standard interface
PlaceScreenRealCP: PROCEDURE[pt: PointDefs.ScrRealPt]; --more precision
--Style menus (ControllerMenus)
Shape, color and text
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
Editing menus (DrawOps)
expand style menus
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
outline editing
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;
Figure related menus (FigureOps)
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
object operations (ObjectOps)
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
}.