DIRECTORYFileIO,InputFocus,IO,Menus,MessageWindow,Process,Rope,RopeFrom,TEditDocument,TEditDocumentPrivate,TEditInput,TEditScrolling,TEditSelection,TextNode,ViewerClasses,ViewerOps;TEditMenuImpl: CEDAR PROGRAMIMPORTS FileIO, InputFocus, IO, Menus, MessageWindow, Process, RopeFrom, TEditDocument, TEditDocumentPrivate, TEditInput, TEditScrolling, TEditSelection, TextNode, ViewerOpsEXPORTS TEditDocumentPrivate~ BEGINCommandProc: TYPE ~ TEditInput.CommandProc;Viewer: TYPE ~ ViewerClasses.Viewer;ROPE: TYPE ~ Rope.ROPE;ForkViewerOp: PROC [proc: PROC [parent: Viewer], parent: Viewer] RETURNS [BOOL] = {TEditInput.CloseEvent[];TRUSTED {Process.Detach[FORK StackBottom[proc, parent]]};Process.Pause[Process.MsecToTicks[250]];RETURN [FALSE]};StackBottom: PROC [proc: PROC [parent: Viewer], parent: Viewer] = {proc[parent ! ABORTED => CONTINUE]};EmptyOp: CommandProc = {TEditDocumentPrivate.EmptyViewer[viewer];RETURN [FALSE]};NewOp: CommandProc = {TEditDocumentPrivate.NewViewer[viewer];RETURN [FALSE]};CloseAndNewOp: CommandProc = {TEditDocumentPrivate.CloseAndNewViewer[viewer];RETURN [FALSE]};ResetOp: CommandProc ~ {SaveLoc: PROC [v: Viewer] ~ {tdd: TEditDocument.TEditDocumentData _ NARROW[v.data];loc: INT;IF tdd = NIL THEN RETURN;[] _ TEditDocument.SpinAndLock[tdd, "Reset"]; -- delay until after other op completesloc _ TextNode.LocNumber[tdd.lineTable.lines[0].pos];TEditDocument.Unlock[tdd];ViewerOps.AddProp[v, $ResetLoc, TextNode.pZone.NEW[INT _ loc]];v.newVersion _ TRUE; -- to force the init proc to reread the file};DoOne: PROC [v: Viewer] ~ {tdd: TEditDocument.TEditDocumentData _ NARROW[v.data];locRef: REF INT;IF tdd = NIL THEN RETURN;IF InputFocus.GetInputFocus[].owner=v THEN InputFocus.SetInputFocus[];locRef _ NARROW[ViewerOps.FetchProp[v, $ResetLoc]];v.class.init[v];v.newVersion _ v.newFile _ FALSE;IF locRef = NIL OR NOT TEditDocumentPrivate.PositionViewer[v,TextNode.LocWithin[tdd.text, locRef^], all] THENViewerOps.PaintViewer[v, all];};SaveLoc[viewer];IF viewer.link#NIL THENFOR v: Viewer _ viewer.link, v.link UNTIL v=viewer DO SaveLoc[v] ENDLOOP;DoOne[viewer];IF viewer.link#NIL THENFOR v: Viewer _ viewer.link, v.link UNTIL v=viewer DO DoOne[v] ENDLOOP;RETURN [FALSE]};LoadOp: CommandProc = {RETURN [ForkViewerOp[LoadImplicit, viewer]]};LoadImplicit: PROC [parent: Viewer] ~ {[] _ TEditDocumentPrivate.DoLoadFile[parent: parent, close: FALSE];};OpenOp: CommandProc = {RETURN [ForkViewerOp[OpenImplicit, viewer]]};OpenImplicit: PROC [parent: Viewer] ~ {[] _ TEditDocumentPrivate.DoOpenFile[parent: parent];};CloseAndOpenOp: CommandProc = {RETURN [ForkViewerOp[CloseAndOpenImplicit, viewer]]};CloseAndOpenImplicit: PROC [parent: Viewer] ~ {[] _ TEditDocumentPrivate.DoCloseAndOpenFile[parent: parent];};LoadImplOp: CommandProc = {RETURN [ForkViewerOp[LoadImplImplicit, viewer]]};LoadImplImplicit: PROC [parent: Viewer] ~ {[] _ TEditDocumentPrivate.DoLoadImplFile[parent: parent, close: FALSE];};OpenImplOp: CommandProc = {RETURN [ForkViewerOp[OpenImplImplicit, viewer]]};OpenImplImplicit: PROC [parent: Viewer] ~ {[] _ TEditDocumentPrivate.DoOpenImplFile[parent: parent];};CloseAndOpenImplOp: CommandProc = {RETURN [ForkViewerOp[CloseAndOpenImplImplicit, viewer]]};CloseAndOpenImplImplicit: PROC [parent: Viewer] ~ {[] _ TEditDocumentPrivate.DoCloseAndOpenImplFile[parent: parent];};LoadPreviousOp: CommandProc = {RETURN [ForkViewerOp[TEditDocumentPrivate.LoadPreviousFile, viewer]]};OpenPreviousOp: CommandProc = {RETURN [ForkViewerOp[TEditDocumentPrivate.OpenPreviousFile, viewer]]};CloseAndOpenPreviousOp: CommandProc = {RETURN [ForkViewerOp[TEditDocumentPrivate.CloseAndOpenPreviousFile, viewer]]};StoreOp: CommandProc = {RETURN [ForkViewerOp[StoreImplicit, viewer]]};StoreImplicit: PROC [parent: Viewer] ~ {TEditDocumentPrivate.DoStoreFile[parent];};SaveOp: CommandProc ~ {TEditInput.CloseEvent[];IF ~viewer.saveInProgress THEN TRUSTED {[] _ Process.Detach[FORK ViewerOps.SaveViewer[viewer]]};RETURN [FALSE];};PrevPlaceOp: CommandProc = {tdd: TEditDocument.TEditDocumentData _ NARROW[viewer.data];prop: REF TEditDocumentPrivate.PositionHistory _ NARROW[ViewerOps.FetchProp[viewer, $PositionHistory]];IF tdd # NIL AND prop # NIL THEN {loc: TextNode.Location _ prop.pos;IF loc = tdd.lineTable.lines[0].pos THEN loc _ prop.prev;IF TEditDocumentPrivate.PositionViewer[viewer, loc] THEN RETURN; IF loc # prop.prev AND TEditDocumentPrivate.PositionViewer[viewer, prop.prev] THEN RETURN };MessageWindow.Append["No previous place saved.", TRUE];MessageWindow.Blink[];RETURN [FALSE]};ReselectOp: CommandProc = {tdd: TEditDocument.TEditDocumentData _ NARROW[viewer.data];prop: TEditDocument.Selection _ NARROW[ViewerOps.FetchProp[viewer, $SelectionHistory]];IF tdd # NIL AND prop # NIL AND TEditInput.CheckSelection[prop] THEN {TEditSelection.MakeSelection[selection: primary, new: prop];TEditScrolling.AutoScroll[viewer,FALSE] }ELSE {MessageWindow.Append["No saved selection.", TRUE];MessageWindow.Blink[] };RETURN [FALSE]};AnonymousLoadOp: CommandProc = {RETURN [ForkViewerOp[AnonymousLoadIt, viewer]]};AnonymousLoadIt: PROC [parent: Viewer] = {TEditDocumentPrivate.AnonymousLoadFile[parent]};AnonymousLoadImplOp: CommandProc = {RETURN [ForkViewerOp[TEditDocumentPrivate.AnonymousLoadImplFile, viewer]]};DefaultMenus: PUBLIC PROC [viewer: Viewer, paint: BOOL _ FALSE] ~ {menus: LIST OF ATOM _ viewer.class.menus;Menus.ClearMenus[viewer, paint AND menus = NIL]; FOR menu: LIST OF ATOM _ menus, menu.rest UNTIL menu = NIL DOMenus.AddMenu[viewer, menu.first, paint AND menu.rest = NIL];ENDLOOP;};RegisterTiogaMenu: PUBLIC PROC ~ {stream: IO.STREAM _ FileIO.Open["tioga.menu" ! FileIO.OpenFailed => GOTO Quit];rope: ROPE _ RopeFrom.Stream[stream];tiogaMenus: LIST OF Menus.Menu _ Menus.ParseDescription[rope];FOR m: LIST OF Menus.Menu _ tiogaMenus, m.rest UNTIL m = NIL DOIF NOT Menus.AlreadyRegistered[m.first.name] THEN Menus.RegisterMenu[m.first]ELSE Menus.ReRegisterMenu[m.first];ENDLOOP;stream.Close[];EXITS Quit => NULL;};Register: PROC [atom: ATOM, op: CommandProc] ~ {TEditInput.Register[atom, op]};Register[$Empty, EmptyOp];Register[$New, NewOp];Register[$CloseAndNew, CloseAndNewOp];Register[$Reset, ResetOp];Register[$RedReset, ResetOp]; Register[$YellowReset, ResetOp]; Register[$BlueReset, ResetOp];Register[$Load, LoadOp];Register[$Open, OpenOp];Register[$CloseAndOpen, CloseAndOpenOp];Register[$Save, SaveOp];Register[$RedSave, SaveOp]; Register[$YellowSave, SaveOp]; Register[$BlueSave, SaveOp];Register[$Store, StoreOp];Register[$RedStore, StoreOp]; Register[$YellowStore, StoreOp]; Register[$BlueStore, StoreOp];Register[$LoadPrevious, LoadPreviousOp];Register[$OpenPrevious, OpenPreviousOp];Register[$CloseAndOpenPrevious, CloseAndOpenPreviousOp];Register[$AnonymousLoadImpl, AnonymousLoadImplOp];Register[$AnonymousLoad, AnonymousLoadOp];Register[$LoadImpl, LoadImplOp];Register[$OpenImpl, OpenImplOp];Register[$CloseAndOpenImpl, CloseAndOpenImplOp];Register[$PrevPlace, PrevPlaceOp];Register[$Reselect, ReselectOp];RegisterTiogaMenu[];END.   >  TEditMenuImpl.mesaMichael Plass, October 12, 1983 11:05 amProcess forking mechanism.-- fork so can release input monitor without waiting for call to complete-- HACK: wait 1/4 sec to let other process lock the tdd before we returnClear = Empty, New, or CloseAndNewDon't fork these operations since they change the selection; want to capture typein that follows calls on these.Get = Load, Open, or CloseAndOpenGetImpl = LoadImpl, OpenImpl, or CloseAndOpenImplPrevFile = LoadPrevious, OpenPrevious, or CloseAndOpenPreviousAnonymous Loads -- into NoName viewersЭ╩▀  Ш JЩJЩ(Ъ╧k	Ш	JЪЬШJЪЬШJШJЪЬШJЪЬШJЪЬШJЪЬШJЪЬ	Ш	JШJШJЪЬШJЪЬШJЪЬШJШ	JШJЪЬ	Ш	JШЧЪЬЭЬЭШJЪЭЬжШнJЪЭЬШJЪЬЭШJШ ЧJЪЬЭЬШ+JЪЬЭЬШ$ЪЭЬЭЬЭЬШJШ ЧЩЪ
╧nЬЭЬЭЬ#ЭЬЭЬШSJШЪЭЬЭЬШ9JЪ╧cIЩIЧШ(JЪЯHЩHЧJЪЭЬЭЬШJЪЬШЧЪЮЬЭЬЭЬ&ШCJЪЬЭЬЭЬШ"JЪЬШJШ ЧЧЩ"JЩpЪЮЬШJЪЬ)Ш)JЪЭЬЭЬШJЪЬШJШ ЧЪЮЬШJЪЬ'Ш'JЪЭЬЭЬШJЪЬШJШ ЧЪЮЬШJЪЬ/Ш/JЪЭЬЭЬШJЪЬШJШ ЧЧЪЮЬШЪЮЬЭЬШJЪЬ'ЭЬ	Ш6JЪЬЭЬШ	JЪЭЬЭЬЭЬЭЬШJЪЬ.Я'ШUJЪЬ5Ш5JЪЬШJЪЬ/ЭЬЭЬ	Ш?JЪЬЭЬЯ,ШAJЪЬШЧЪЮЬЭЬШJЪЬ'ЭЬ	Ш6JЪЬЭЬШJЪЭЬЭЬЭЬЭЬШJЪЭЬ$ЭЬШFJЪЬ	ЭЬ$Ш3JЪЬШJЪЬЭЬШ!Ъ	ЭЬ
ЭЬЭЬЭЬSЭШmJЪЬШЧJЪЬШЧJЪЬШЪЭЬЭЬЭШJЪЭЬ!ЭЬ
ЭЬЭЬШIЧJШЪЭЬЭЬЭШJЪЭЬ!ЭЬ
ЭЬ
ЭЬШGЧJЪЭЬЭЬШJЪЬШJШ ЧЩ!ЪЮЬШJЪЭЬ%Ш+JЪЬШЧЪЮЬЭЬШ'JЪЬ<ЭЬШCJЪЬШJШ ЧЪЮЬШJЪЭЬ%Ш+JЪЬШЧЪЮЬЭЬШ'JЪЬ5Ш5JЪЬШJШ ЧЪЮЬШJЪЭЬ-Ш3JЪЬШЧЪЮЬЭЬШ/JЪЬ=Ш=JЪЬШJШ ЧЧЩ1ЪЮ
ЬШJЪЭЬ)Ш/JЪЬШЧЪЮЬЭЬШ+JЪЬ@ЭЬШGJЪЬШJШ ЧЪЮ
ЬШJЪЭЬ)Ш/JЪЬШЧЪЮЬЭЬШ+JЪЬ9Ш9JЪЬШJШ ЧЪЮЬШ#JЪЭЬ1Ш7JЪЬШЧЪЮЬЭЬШ3JЪЬAШAJЪЬШJШ ЧЧЪЬ>Щ>ЪЮЬШJЪЭЬ>ШDJЪЬШJШ ЧЪЮЬШJЪЭЬ>ШDJЪЬШJШ ЧЪЮЬШ'JЪЭЬFШLJЪЬШJШ ЧЧЪЮЬШJЪЭЬ&Ш,JЪЬШЧЪЮЬЭЬШ(JЪЬ)Ш)JЪЬШJШ ЧЪЮЬШJШЪЭЬЭЬШJЪЭЬЭЬ ШAЧJЪЭЬЭЬШJЪЬШJШ ЧЪЮЬШJЪЬ'ЭЬШ;JЪЬЭЬ(ЭЬ0ШgЪ
ЭЬЭЬЭЬЭЬЭЬШ"JШ"JЪЭЬ"ЭЬШ9JЪЭЬ2ЭЬЭЬШAJЪЭЬЭЬ8ЭЬЭЬШ\ЧJЪЬ1ЭЬШ7JШJЪЭЬЭЬШJЪЬШJШ ЧЪЮ
ЬШJЪЬ'ЭЬШ;JЪЬ ЭЬ1ШWЪЭЬЭЬЭЬЭЬЭЬ!ЭЬШFJШ<JЪЬ!ЭЬШ)ЧЪЭЬШJЪЬ,ЭЬШ2JШЧJЪЭЬЭЬШJЪЬШJШ ЧЩ&ЪЮЬШ JЪЭЬ(Ш.JЪЬШЧЪЮЬЭЬШ*JЪЬ.Ш.JЪЬШJШ ЧЪЮЬШ$JЪЭЬCШIJЪЬШЧJШ ЧЪ
ЮЬЭЬЭЬЭЬЭЬШCJЪЬЭЬЭЬЭЬШ)JЪЬЭЬ	ЭЬШ1ЪЭЬЭЬЭЬЭЬЭЬЭЬЭШ=JЪЬ(ЭЬЭЬШ=JЪЭЬШЧJЪЬШJШ ЧЪЮЬЭЬЭЬШ"JЪЬЭЬЭЬ3ЭЬШOJЪЬЭЬШ%JЪЬЭЬЭЬ+Ш>ЪЭЬЭЬЭЬ!ЭЬЭЬЭШ?JЪЭЬЭЬ'ЭЬШMJЪЭЬШ#JЪЭЬШЧJЪЬШJЪЭЬ	ЭЬШJЪЬШJШ ЧЪЮЬЭЬЭЬ5ШOJШ ЧJЪЬШJЪЬШJЪЬ&Ш&ЪЬШJЪЬ]Ш]ЧJЪЬШJЪЬШJЪЬ(Ш(ЪЬШJЪЬWШWЧЪЬШJЪЬ]Ш]ЧJЪЬ(Ш(JЪЬ(Ш(JЪЬ8Ш8JЪЬ2Ш2JЪЬ*Ш*JЪЬ Ш JЪЬ Ш JЪЬ0Ш0JЪЬ"Ш"JЪЬ Ш JШ JЪЬШJШ JЪЭЬШЧ ЕЧ    0  'M  