[Cyan]<Imaging>Griffin>MenuDefs.mesa!4

MenuDefs

MStone and Tiberi October 31, 1979 11:00 PM

Tiberi November 2, 1979 3:32 PM

Last Edited by: Stone, July 7, 1985 4:28:02 pm PDT

DIRECTORY

Rope USING [ROPE],

PointDefs: FROM "PointDefs",

StyleDefs: FROM "StyleDefs",

Imager USING [Context],

ObjectDefs: FROM "ObjectDefs";

MenuDefs: CEDAR DEFINITIONS =

BEGIN OPEN ObjectDefs;

MenuHandle: TYPE = REF menu Object;

MenuItem: TYPE = RECORD

[

link: MenuItemHandle,

menu: MenuHandle,

selected, inverted: BOOLEAN,

tl,br: PointDefs.ScrPt,

string: Rope.ROPE,

proc: MenuProc

];

MenuItemHandle: TYPE = REF MenuItem;

MenuProc: TYPE = PROCEDURE [item: MenuItemHandle];

CreateMenu: PROCEDURE [orientation: MenuOrientation, tl: PointDefs.ScrPt, title: Rope.ROPE] RETURNS [menu: MenuHandle];

AddMenuItem: PROCEDURE [menu: MenuHandle, string: Rope.ROPE, proc: MenuProc] RETURNS [MenuItemHandle];

ForAllMenus: PROCEDURE [proc: PROCEDURE [menu: MenuHandle]];

ForAllMenuItems: PROCEDURE [menu: MenuHandle, proc: MenuProc];

OverWhichItem: PROCEDURE [pt: PointDefs.ScrPt] RETURNS [item: MenuItemHandle];

IsOverItem: PROCEDURE [pt: PointDefs.ScrPt, item: MenuItemHandle]

RETURNS [BOOLEAN];

ShowMenu, HideMenu: PROCEDURE [menu: MenuHandle];

BugItem: MenuProc;

PlotMenu: PROCEDURE [menu: MenuHandle, dc: Imager.Context];

Select, SelectOnly, Deselect, HighlightMenuItem, ClearMenuItem: MenuProc;

access to parts:

IsSelected: PROCEDURE [item: MenuItemHandle] RETURNS [BOOLEAN];

MenuString: PROCEDURE [item: MenuItemHandle] RETURNS [Rope.ROPE];

SetMenuString: PROCEDURE [item: MenuItemHandle, string: Rope.ROPE];

WhichMenu: PROCEDURE[item: MenuItemHandle] RETURNS [menu: MenuHandle];

MenuStyle: PROCEDURE RETURNS [StyleDefs.StyleHandle];

InitMenuStyle: PUBLIC PROCEDURE[];

END.