DIRECTORY   Atom,CD USING [Technology],CDMenus,CDMenusExtras,CDPopUpMenus,CDProperties,CDSequencer,IO,PopUpMenus,Rope,TerminalIO;CDMenusImpl: CEDAR MONITORIMPORTS Atom, CDPopUpMenus, CDSequencer, IO, PopUpMenus, TerminalIOEXPORTS CDMenus, CDMenusExtrasSHARES CDPopUpMenus = BEGINROPE: TYPE = Rope.ROPE;Menu: TYPE = PopUpMenus.Menu;CreateMenu: PUBLIC PROC [label: ROPE_NIL, globalKey: ATOM_NIL] RETURNS [menu: REF] = {menu _ CDPopUpMenus.MakeMenu[globalKey, label, NIL]};CreateMenuExtra: PUBLIC PROC [label: ROPE_NIL, globalKey: ATOM_NIL, doc: ROPE_NIL] RETURNS [menu: REF] = {menu _ CDPopUpMenus.MakeMenu[globalKey, label, doc]};GetMenu: PUBLIC PROC [globalKey: ATOM] RETURNS [menu: REF] = {menu _ CDPopUpMenus.GetMenu[globalKey]};CreateEntry: PUBLIC PROC [menu: REF, entry: ROPE_NIL, key: REF] = {m: Menu _ CDPopUpMenus.GetMenu[menu];[] _ PopUpMenus.Entry[m, entry, NIL, key];};CreateEntryExtra: PUBLIC PROC [menu: REF, entry: ROPE_NIL, key: REF, doc: ROPE_NIL] = {m: Menu _ CDPopUpMenus.GetMenu[menu];[] _ PopUpMenus.Entry[m, entry, NIL, key, doc];};CallMenu: PUBLIC PROC [menu: REF] RETURNS [key: REF_NIL] = {m: Menu _ CDPopUpMenus.GetMenu[menu];key _ PopUpMenus.Call[m];WHILE key#NIL AND ISTYPE[key, Menu] DOkey _ PopUpMenus.Call[NARROW[key]];ENDLOOP;};CallMenuAndExecute: PUBLIC PROC [menu: REF, comm: CDSequencer.Command] = {key: REF = CallMenu[menu].key;WITH key SELECT FROMa: ATOM => CDSequencer.ExecuteCommand[comm: comm, key: a];ENDCASE => IF key#NIL THEN TerminalIO.WriteRope["** bad menu; not a command\n"]; };ImplementCommandToCallMenu: PUBLIC ENTRY PROC[key: ATOM, menu: REF, technology: CD.Technology_NIL] = {IF key#menu THEN ERROR;};count: INT _ 0;ImplementEntryCommand: PUBLIC PROC [menu: REF, entry: ROPE _ NIL, p: CDSequencer.CommandProc, key: ATOM _ NIL, queue: CDSequencer.QueueMethod _ doQueue, technology: CD.Technology _ NIL] = {IF key=NIL THEN key _ Atom.MakeAtom[IO.PutFR1["a%g", IO.int[count _ count+1]]];CDSequencer.ImplementCommand[key: key, proc: p, queue: queue, technology: technology];CreateEntry[menu: menu, entry: entry, key: key];};END.     D  CDMenusImpl.mesa Copyright c 1984, 1986 by Xerox Corporation.  All rights reserved.Created by: Ch. Jacobi, September 18, 1984 3:24:53 pm PDTLast Edited by: Ch. Jacobi, March 25, 1986 1:41:47 pm PSTLast Edited by: Jacobi June 12, 1986 1:46:42 pm PDTLast Edited by: Christian Jacobi, August 24, 1986 7:47:32 pm PDTЭ╩о  Ш codeЪЬЩKЪЬ
╧mЬ7ЩBKЩ9KЩ9KЩ3KЩ@KШ ЧЪ╧k	ЬШKЪЬШKЪЮЬЮЬШKЪЬШKЪЬШKЪЬШKЪЬШKЪЬШKЪЬШKЪЬШKЪЬШKЪЬШЧKШ Ъ╨blЬЮЬЮШKЪЮЬ<ШCKЪЮЬШKЪЮЬШЧKЪЮШKШ KЪЮЬЮЬЮЬШЪЬЮЬШKШ ЧЪ╧n
ЬЮЬЮЬ	ЮЬЮЬЮЬЮЬЮЬЮЬШVKЪЬ/ЮЬШ3KЪЬШЧKШ ЪаЬЮЬЮЬ	ЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШjKЪЬ3Ш3KЪЬШЧKШ ЪаЬЮЬЮЬЮЬЮЬЮЬШ>KЪЬ&Ш&KЪЬШЧKШ ЪаЬЮЬЮЬЮЬ	ЮЬЮЬЮЬШCKЪЬ%Ш%KЪЬ ЮЬШ*KЪЬШЧKШ ЪаЬЮЬЮЬЮЬ	ЮЬЮЬЮЬЮЬЮЬШWKЪЬ%Ш%KЪЬ ЮЬШ/KЪЬШЧKШ ЪаЬЮЬЮЬЮЬЮЬЮЬЮЬШ<KЪЬ%Ш%KЪЬШЪ	ЮЬЮЬЮЬЮЬЮШ&KЪЬЮЬШ#KЪЮЬШЧKЪЬШЧKШ ЪаЬЮЬЮЬЮЬ ШJKЪЬЮЬШЪЮЬЮЬЮШKЪЬЮЬ3Ш:KЪЮЬЮЬЮЬЮЬ7ШQЧKЪЬШЧKШ ЪаЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШfJЪЮЬ
ЮЬЮЬШKЪЬШЧKШ KЪЬЮЬШЪаЬЮЬЮЬЮЬ	ЮЬЮЬ#ЮЬЮЬ8ЮЬЮЬШ╜KЪ
ЮЬЮЬЮЬЮЬЮЬШOKЪЬVШVKЪЬ0Ш0KЪЬШЧKШ KЪЮЬШKШ KШ KШЧ ЕЧ    h  Z  