<> <> <> <<>> DIRECTORY Imager USING [Context], Menus USING [Menu, MouseButton], TIPUser USING [TIPScreenCoords], ViewerClasses USING [Viewer]; MenusPrivate: CEDAR DEFINITIONS = BEGIN <> 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.