MenusPrivate.mesa; Edited by McGregor on September 20, 1982 9:39 am
Last Edited by: Maxwell, December 17, 1982 9:59 am
DIRECTORY
Graphics USING [Context],
Menus USING [Menu, MouseButton],
TIPUser USING [TIPScreenCoords],
ViewerClasses USING [Viewer];
MenusPrivate: CEDAR DEFINITIONS = BEGIN
Implementor private stuff
menuHLeading: INTEGER = 5; -- white space before first entry
menuHSpace: INTEGER = 12; -- white space between entries
greyGuard: BOOL; -- grey text of guarded items else strikeout
MarkMenu:
PROC [menu: Menus.Menu, parent: ViewerClasses.Viewer,
mousePos: TIPUser.TIPScreenCoords] ;
HitMenu:
PROC [menu: Menus.Menu, parent: ViewerClasses.Viewer,
mousePos: TIPUser.TIPScreenCoords, button: Menus.MouseButton,
shift, control: BOOL ← FALSE] ;
ClearMenu: PROC [menu: Menus.Menu, parent: ViewerClasses.Viewer, paint: BOOL ← TRUE] ;
DrawMenu:
PROC [menu: Menus.Menu, context: Graphics.Context, x, y:
INTEGER,
whatChanged: REF ANY ← NIL] ;
Document:
PROC [info:
REF
ANY, parent:
REF
ANY, clientData:
REF
ANY ←
NIL,
mouseButton: Menus.MouseButton ← red, shift, control: BOOL ← FALSE] ;
END.