-- MenuDefs
-- MStone and Tiberi October 31, 1979  11:00 PM
-- Tiberi November 2, 1979  3:32 PM
-- Last Edited by: Stone, February 14, 1983 10:42 am

DIRECTORY
    Rope USING [ROPE],
    PointDefs: FROM "PointDefs",
    StyleDefs: FROM "StyleDefs",
    Graphics USING [Context],
    ObjectDefs: FROM "ObjectDefs";

MenuDefs: 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: Graphics.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];
MenuAnchorPoint:  PROCEDURE [item: MenuItemHandle]
    RETURNS [PointDefs.ScrPt];
WhichMenu: PROCEDURE[item: MenuItemHandle] RETURNS [menu: MenuHandle];
MenuStyle: PROCEDURE RETURNS [StyleDefs.StyleHandle];

InitMenuStyle: PUBLIC PROCEDURE[];

END.