GriffinMenu.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Created by: MStone and Tiberi October 31, 1979 11:00 PM
Last Edited by: Ken Pier, November 13, 1985 4:16:46 pm PST
DIRECTORY
GriffinKernel USING [Data],
GriffinObject USING [MenuOrientation, Object],
GriffinPoint USING [ScrPt],
GriffinStyle USING [StyleHandle],
Imager USING [Context],
Rope USING [ROPE];
GriffinMenu:
CEDAR
DEFINITIONS =
BEGIN
Data: TYPE = GriffinKernel.Data;
MenuHandle: TYPE = REF GriffinObject.Object[menu];
MenuItemHandle: TYPE = REF MenuItem;
MenuItem:
TYPE =
RECORD [
link: MenuItemHandle,
menu: MenuHandle, -- menuItems can get their Data from here
selected, inverted: BOOLEAN,
tl, br: GriffinPoint.ScrPt,
string: Rope.ROPE,
proc: MenuProc
];
MenuHandleProc: TYPE = PROC [menu: MenuHandle];
MenuProc: TYPE = PROC [item: MenuItemHandle];
AddMenuItem: PROC [menu: MenuHandle, string: Rope.ROPE, proc: MenuProc] RETURNS [MenuItemHandle];
CreateMenu: PROC [data: Data, orientation: GriffinObject.MenuOrientation, tl: GriffinPoint.ScrPt, title: Rope.ROPE] RETURNS [MenuHandle];
ForAllMenus: PROC [data: Data, proc: MenuHandleProc];
HideMenu: PROC [menu: MenuHandle];
IsSelected: PROC [item: MenuItemHandle] RETURNS [BOOLEAN];
MenuString: PROC [item: MenuItemHandle] RETURNS [Rope.ROPE];
MenuStyle: PROC RETURNS [GriffinStyle.StyleHandle];
PlotMenu: PROC [menu: MenuHandle, dc: Imager.Context];
SetMenuString: PROC [item: MenuItemHandle, string: Rope.ROPE];
ShowMenu: PROC [menu: MenuHandle];
WhichMenu: PROC[item: MenuItemHandle] RETURNS [MenuHandle];
BugItem: MenuProc;
ClearMenuItem: MenuProc;
Deselect: MenuProc;
ForAllMenuItems: PROC [menu: MenuHandle, proc: MenuProc];
HighlightMenuItem: MenuProc;
IsOverItem: PROC [pt: GriffinPoint.ScrPt, item: MenuItemHandle] RETURNS [BOOLEAN];
OverWhichItem: PROC [data: Data, pt: GriffinPoint.ScrPt] RETURNS [MenuItemHandle];
Select: MenuProc;
SelectOnly: MenuProc;
InitMenuStyle: PROC[];