DIRECTORYPopUpMenu USING [RequestSelection],Rope USING [Cat, Equal, Substr],SymTab USING [Create, Fetch, Insert, Ref],TajoMenus;TajoMenusImpl: CEDAR PROGRAMIMPORTS PopUpMenu, Rope, SymTabEXPORTS TajoMenus= BEGINOPEN TajoMenus;TajoSystem: TYPE ~ REF TajoSystemRec;TajoSystemRec: PUBLIC TYPE ~ RECORD [x: SymTab.Ref _ SymTab.Create[]];PopUp: TYPE ~ REF PopUpRec;PopUpRec: TYPE ~ RECORD [list: LIST OF ROPE _ NIL,action: SEQUENCE len:NAT OF REF];DuplicateName: PUBLIC ERROR ~ CODE;filler: ROPE ~ "                                                                                         ";	--Lots of spacesCreateTajoSystem: PUBLIC PROC [menus: LIST OF TajoMenu] RETURNS [ts: TajoSystem] ~ {ring: LIST OF ROPE _ LIST[menus.first.title];ringTail: LIST OF ROPE _ ring;nMenus: CARDINAL _ 0;		--Number of menusts _ NEW[TajoSystemRec];defaultTitle _ menus.first.title;FOR each: LIST OF TajoMenu _ menus, each.rest UNTIL each=NIL DOnMenus _ nMenus + 1;ENDLOOP;FOR each: LIST OF TajoMenu _ menus.rest, each.rest UNTIL each=NIL DOringTail _ ringTail.rest _ LIST[each.first.title];ENDLOOP;ringTail.rest _ ring;		--Close the ringFOR eachMenu: LIST OF TajoMenu _ menus, eachMenu.rest UNTIL eachMenu=NIL DOAppendToPopUp: PROC [r: ROPE] ~ {tail _ tail.rest _ LIST[r];};optionList: LIST OF ROPE _ LIST["Dummy"];	--The actual list of rope for this menutail: LIST OF ROPE _ optionList;		--Always points to tail of optionListpopUp: PopUp;nEntries: CARDINAL _ 0;			--Will contain the number of entries exclusive to this menutempEntry: LIST OF TajoEntry _ eachMenu.first.options;FOR eachEntry: LIST OF TajoEntry _ eachMenu.first.options, eachEntry.rest UNTIL eachEntry=NIL DOnEntries _ nEntries+1;ENDLOOP;popUp _ NEW[PopUpRec[nMenus+nEntries+1]];popUp.action[0] _ NIL;UNTIL Rope.Equal[ringTail.first, eachMenu.first.title] DO	--Point ringTail at our titleringTail _ ringTail.rest;ENDLOOP;FOR index: CARDINAL IN [1..nMenus] DOrope: ROPE;ringTail _ ringTail.rest;		--Set up title namerope _ Rope.Cat[Rope.Substr[base: filler, len: (nMenus-index)*2], ringTail.first];IF index=nMenus THEN rope _ Rope.Cat[rope, "-----------"];popUp.action[index] _ ringTail.first;AppendToPopUp[rope];ENDLOOP;FOR index: CARDINAL IN [1..nEntries] DOref: REF _ IF tempEntry.first.action=NIL THEN tempEntry.first.rope ELSE tempEntry.first.action;AppendToPopUp[tempEntry.first.rope];popUp.action[nMenus+index] _ ref;tempEntry _ tempEntry.rest;ENDLOOP;popUp.list _ optionList.rest;IF ~SymTab.Insert[ts.x, eachMenu.first.title, popUp] THEN ERROR DuplicateName[];ENDLOOP;};defaultTitle: ROPE _ NIL;		--Remembers last title brought upSelect: PUBLIC PROC [ts: TajoSystem, title: ROPE _ NIL] RETURNS [action: REF] ~ {IF title=NIL THEN title _ defaultTitle;DO		--This is an iterative processpopUp: PopUp;found: BOOLEAN;ref: REF;choice: CARDINAL;[found, ref] _ SymTab.Fetch[ts.x, title];IF ~found THEN RETURN [title];	--This is where ROPEs are returned fromdefaultTitle _ title;		--Remember this menu as the new defaultpopUp _ NARROW[ref];choice _ PopUpMenu.RequestSelection[choice: popUp.list];action _ popUp.action[choice];WITH action SELECT FROMr: ROPE => title _ r;ENDCASE => RETURN [action];ENDLOOP;};END.   :  TajoMenusImpl.mesaCopyright c 1985, Xerox Corporation.  All rights reserved.Last edited by Eric Nickell, March 29, 1985 2:33:50 pm PSTChoose first default menu as the first one listedCount number of main menusCreate a ring of ROPEs from the original listSet up the PopUp menu for each of the main entriesCount the number of entriesCreate the PopUp recordAdd the other menu titles to the PopUp menu to be presented for this TajoMenuAdd the menu entries to the PopUp menuInstall the popUp menu into the TajoSystemHere, we have found a menu to bring up.Э╩╜  Ш titleЩIcodeЪЬ
╧mЬ/Щ:LЩ:LЩ ЧЪ╧k	Ш	LЪЬ
ЮЬШ#LЪЬЮЬШ LЪЬЮЬШ*LШ	JШJШ ЧЪЬЮШLЪЮЬШLЪЮЬ
ШLЪЬЮШLЪЮЬШLШ LЪЬЮЬЮЬШ%ЪЬЮЬЮЬЮЬШ%LШLЪЬШЧLЪЬЮЬЮЬ
ШЪЬ
ЮЬЮЬШLЪ	ЬЮЬЮЬЮЬЮЬШLЪЬЮЬЮЬЮЬЮШLЪЬШЧLШ LЪЬЮЬЮЬЮЬШ#LЪЬЮЬ`╧cШ|Ъ
╧nЬЮЬ	ЮЬЮЬЮЬШTLЪ	ЬЮЬЮЬЮЬЮЬШ-LЪЬ
ЮЬЮЬЮЬШLЪЬЮЬЯШ(LЪЬЮЬШLШ LЩ1LШ!LШ LЩЪЮЬЮЬЮЬЮЬЮЬЮШ?LШLЪЮШLШ ЧLЪЬ-Щ-ЪЮЬЮЬЮЬ"ЮЬЮЬЮШDLЪЬЮЬШ2LЪЮШЧLЪЬЯШ'LШ LЩ2ЪЮЬЮЬЮЬ!ЮЬ
ЮЬЮШKЪаЬЮЬЮЬШ!LЪЬЮЬШLШЧLЪ
ЬЮЬЮЬЮЬЮЬЯ'ШQLЪЬЮЬЮЬЮЬЯ%ШGLШLЪЬ
ЮЬЯ;ШULЪЬЮЬЮЬ$Ш6LШ LЩЪЮЬЮЬЮЬ4ЮЬЮЬЮШ`LЪЬШLЪЮШLШ ЧLЩLЪЬЮЬШ)LЪЬЮЬШLШ LЩMЪЮЬ2ЮЬЯШWLШLЪЮШЧЪЮЬЮЬЮЬЮШ%LЪЬЮЬШLШ LЪЬЯШ.LЪЬRШRLЪЮЬЮЬ&Ш:LШ LШ%LШLЪЮШЧLШ LЩ&ЪЮЬЮЬЮЬЮШ'LЪЬЮЬЮЬЮЬЮЬЮЬШ_LШ$LЪЬ!Ш!LШLЪЮШLШ ЧLЩ*LШLЪЮЬ3ЮЬЮЬШPLЪЮШЧLШLШ ЧLЪЬЮЬЮЬЯ!Ш<ЪаЬЮЬЮЬЮЬЮЬЮЬ
ЮЬШQLЪЮЬЮЬЮЬШ'ЪЮЬЯШ"LШLЪЬЮЬШLЪЬЮЬШ	LЪЬЮЬШLШ LШ)LЪЮЬЮЬЮЬ
Я'ШFLШ LЩ'LЪЬЯ'Ш>LЪЬЮЬШLЪЬ8Ш8LШЪЮЬЮЬЮШLЪЬЮЬШLЪЮЬЮЬ
ШЧLЪЮШЧLШLШ ЧLЪЮЬШЧЧ ЕЧ    ╛  ╡  