DIRECTORYGriffinKernel USING [Data],GriffinObject USING [MenuOrientation, Object],GriffinPoint USING [ScrPt],GriffinStyle USING [StyleHandle],Imager USING [Context],Rope USING [ROPE];GriffinMenu: CEDAR DEFINITIONS = BEGINData: TYPE = GriffinKernel.Data;MenuHandle: TYPE = REF  GriffinObject.Object[menu];MenuItemHandle: TYPE = REF MenuItem;MenuItem: TYPE = RECORD [link: MenuItemHandle, menu: MenuHandle, -- menuItems can get their Data from hereselected, inverted: BOOLEAN,tl, br: GriffinPoint.ScrPt,string: Rope.ROPE, proc: MenuProc];MenuHandleProc: TYPE = PROC [menu: MenuHandle];MenuProc: TYPE = PROC [item: MenuItemHandle];AddMenuItem: PROC [menu: MenuHandle, string: Rope.ROPE, proc: MenuProc] RETURNS [MenuItemHandle];CreateMenu: PROC [data: Data, orientation: GriffinObject.MenuOrientation, tl: GriffinPoint.ScrPt, title: Rope.ROPE] RETURNS [MenuHandle];ForAllMenus: PROC [data: Data, proc: MenuHandleProc];HideMenu: PROC [menu: MenuHandle];IsSelected:  PROC [item: MenuItemHandle] RETURNS [BOOLEAN];MenuString:  PROC [item: MenuItemHandle] RETURNS [Rope.ROPE];MenuStyle: PROC RETURNS [GriffinStyle.StyleHandle];PlotMenu: PROC [menu: MenuHandle, dc: Imager.Context];SetMenuString: PROC [item: MenuItemHandle, string: Rope.ROPE];ShowMenu: PROC [menu: MenuHandle];WhichMenu: PROC[item: MenuItemHandle] RETURNS [MenuHandle];BugItem: MenuProc;ClearMenuItem: MenuProc;Deselect: MenuProc;ForAllMenuItems: PROC [menu: MenuHandle, proc: MenuProc];HighlightMenuItem: MenuProc;IsOverItem: PROC [pt: GriffinPoint.ScrPt, item: MenuItemHandle] RETURNS [BOOLEAN];OverWhichItem: PROC [data: Data, pt: GriffinPoint.ScrPt] RETURNS [MenuItemHandle];Select: MenuProc;SelectOnly: MenuProc;InitMenuStyle: PROC[];END.    ╚  GriffinMenu.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.Created by: MStone and Tiberi October 31, 1979  11:00 PMLast Edited by: Ken Pier, November 13, 1985 4:16:46 pm PSTЭ╩У  Ш codeЪЬЩKЪЬ
╧mЬ1Щ<KЪЬ8Щ8KЪЬ:Щ:KШ ЧЪ╧k	Ш	JЪЬЮЬШJЪЬЮЬШ.JЪЬЮЬ	ШJЪЬЮЬШ!JЪЬЮЬШJЪЬЮЬЮЬШJШ ЧЪ╧bЬЮЬЮЬЮШ&KШ IdefaultЪЬЮЬШ KЪЬЮЬЮЬШ3KЪЬЮЬЮЬ
Ш$ЪЬ
ЮЬЮЬШKШKЪЬ╧c)Ш;KЪЬЮЬШKЪЬШKЪЬЮЬШKШKШЧKШ KЪ╧nЬЮЬЮЬШ/KЪбЬЮЬЮЬШ-KШ KЪбЬЮЬ!ЮЬЮЬШaKЪб
ЬЮЬ^ЮЬЮЬШЙKЪбЬЮЬ$Ш5KЪбЬЮЬШ"KЪб
ЬЮЬЮЬЮЬШ;KЪб
ЬЮЬЮЬЮЬШ=KЪб	ЬЮЬЮЬШ3KЪбЬЮЬ(Ш6KЪбЬЮЬ%ЮЬШ>KЪ╨bnЬЮЬШ"KЪб	ЬЮЬЮЬШ;KШ KЪЯЬШKЪЯЬШKЪЯЬШKЪбЬЮЬ$Ш9KЪЯЬШKЪб
ЬЮЬ0ЮЬЮЬШRKЪбЬЮЬ&ЮЬШRKЪЯЬШKЪЯ
ЬШKШ KЪбЬЮЬШKШ ЧKЪЮЬШKШ KШ Ч ЕЧ    ▐  
9  