<> <> <> <> <> DIRECTORY MenuDefs USING [MenuItemHandle, MenuProc], GriffinDefs USING [TypeIntoMenuItem, TypeIn, TypeInAtControlPt, EndTypeIn], PointDefs USING [ScrPt, ObjPt], Rope USING [ROPE]; GriffinMenusInterface: DEFINITIONS IMPORTS GriffinDefs = { MenuItemFromRope: PROC [rope: Rope.ROPE] RETURNS [MenuDefs.MenuItemHandle]; <> <<--Style menus (ControllerMenus)>> <> 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 CharDir: MenuDefs.MenuProc; --0 char d, 90 char d, etc TypeIntoFontName: MenuDefs.MenuProc; --type in place for font name AddFontItem: MenuDefs.MenuProc; --adds font name from TypeIntoFileName SetFont: MenuDefs.MenuProc; --font names 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; <
> Refresh: MenuDefs.MenuProc; Press: MenuDefs.MenuProc; Save: MenuDefs.MenuProc; Restore: MenuDefs.MenuProc; TypeIntoFileName: MenuDefs.MenuProc; GridMenuProc: MenuDefs.MenuProc; Merge: MenuDefs.MenuProc; Switch: MenuDefs.MenuProc; ColorMap: MenuDefs.MenuProc; <> <> ToggleShowMenu: MenuDefs.MenuProc; <> 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 <> TypeIntoMenuItem: MenuDefs.MenuProc = INLINE { GriffinDefs.TypeIntoMenuItem[item]}; TypeIn: PROCEDURE[ch: CHARACTER] = INLINE {GriffinDefs.TypeIn[ch]}; TypeInAtControlPt: PROCEDURE = INLINE {GriffinDefs.TypeInAtControlPt[]}; EndTypeIn: PROCEDURE = INLINE {GriffinDefs.EndTypeIn[]}; <> <> <> PlaceScreenCP: PROCEDURE[pt: PointDefs.ScrPt]; --standard interface PlaceObjectCP: PROCEDURE[pt: PointDefs.ObjPt]; --more precision }.