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. ¬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 Implementor private stuff Κt– "cedar" style˜JšΟc)™)Jš,™,Jšœ2™2J™šΟk ˜ Jšœžœ ˜Jšœžœ˜ Jšœžœ˜ Jšœžœ ˜J˜—Jšœžœž˜'J˜Jš™J˜Jšœžœ!˜J˜=Jšœžœžœ˜J˜—JšŸ œžœ9žœžœ˜VJ˜šŸœžœ3žœ˜IJšœ žœžœžœ˜J˜—šŸœžœžœžœ žœžœžœžœžœ˜JJšœ6žœžœ˜EJ˜—Jšžœ˜J˜J˜—…—„€