DIRECTORY Graphics 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 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. ˜MenusPrivate.mesa; Edited by McGregor on September 20, 1982 9:39 am Last Edited by: Maxwell, December 17, 1982 9:59 am Implementor private stuff Κ|– "Mesa" style˜JšΟcC™CJšœ2™2J™šΟk ˜ Jšœ žœ ˜Jšœžœ˜ Jšœžœ˜ Jšœžœ ˜J˜—Jšœžœž˜'J˜Jš™J˜Jšœžœ!˜J˜=Jšœžœžœ˜J˜—JšŸ œžœ9žœžœ˜VJ˜šŸœžœ5žœ˜KJšœ žœžœžœ˜J˜—šŸœžœžœžœ žœžœžœžœžœ˜JJšœ6žœžœ˜EJ˜—Jšžœ˜J˜J˜—…—ΖΪ