MenusPrivate.mesa; Written by S. McGregor
Edited by McGregor on July 21, 1983 10:43 am
Last Edited by: Maxwell, December 17, 1982 9:59 am
DIRECTORY
Imager 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
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: Imager.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.