DIRECTORY FS USING [OpenFile], Rope USING [ROPE], Buttons USING [ButtonProc], Menus USING [ClickProc, MenuEntry], TextNode USING [Location, Node], ViewerClasses USING [Viewer], ViewerOps USING [PaintHint]; TEditDocumentPrivate: CEDAR DEFINITIONS = BEGIN Viewer: TYPE = ViewerClasses.Viewer; ROPE: TYPE = Rope.ROPE; RecordUnsavedDocument: PROC [fileName: ROPE, root: TextNode.Node]; FindUnsavedDocument: PROC [fileName: ROPE] RETURNS [root: TextNode.Node]; KillSelections: PROC [parent: Viewer]; CancelLinks: PROC [viewer: Viewer]; FileIsMoreRecent: PROC [root: TextNode.Node, file: Rope.ROPE] RETURNS [BOOL]; Reselect: Menus.ClickProc; PositionHistory: TYPE = RECORD [ pos, prev: TextNode.Location ]; JumpToPrevious: Menus.ClickProc; InitViewerDoc: PROC [self: Viewer, data: REF ANY]; InitViewerDocInternal: PROC [self: Viewer, file: FS.OpenFile, data: REF ANY _ NIL]; EmptyViewer: PROC [parent: Viewer]; NewViewer: PROC [parent: Viewer]; DoNewViewer: PROC [parent: ViewerClasses.Viewer _ NIL] RETURNS [new: ViewerClasses.Viewer]; CloseAndNewViewer: PROC [parent: Viewer]; DoCloseAndNewViewer: PROC [parent: ViewerClasses.Viewer] RETURNS [new: ViewerClasses.Viewer]; OpenFile: PROC [parent: Viewer]; DoOpenFile: PROC [fileName: ROPE _ NIL, parent, fileNameProcViewer: Viewer _ NIL] RETURNS [viewer: Viewer]; CloseAndOpenFile: PROC [parent: Viewer, fileNameProcViewer: Viewer _ NIL]; DoCloseAndOpenFile: PROC [parent: Viewer, fileName: ROPE _ NIL] RETURNS [viewer: Viewer]; OpenImplFile: PROC [parent: Viewer]; DoOpenImplFile: PROC [fileName: ROPE _ NIL, parent: Viewer _ NIL] RETURNS [viewer: Viewer]; CloseAndOpenImplFile: PROC [parent: Viewer]; DoCloseAndOpenImplFile: PROC [parent: Viewer, fileName: ROPE _ NIL] RETURNS [viewer: Viewer]; LoadFile: PROC [parent: Viewer]; DoLoadFile: PROC [ parent: ViewerClasses.Viewer, fileName: ROPE _ NIL, close: BOOL _ FALSE, fileNameProcViewer: ViewerClasses.Viewer _ NIL] RETURNS [viewer: Viewer]; LoadImplFile: PROC [parent: Viewer]; DoLoadImplFile: PROC [parent: ViewerClasses.Viewer, fileName: ROPE _ NIL, close: BOOL _ FALSE] RETURNS [viewer: Viewer]; AnonymousLoadFile: PROC [ parent: Viewer, fileNameProcViewer: ViewerClasses.Viewer _ NIL]; AnonymousLoadImplFile: PROC [parent: Viewer]; LoadPreviousFile: PROC [parent: Viewer]; OpenPreviousFile: PROC [parent: Viewer]; CloseAndOpenPreviousFile: PROC [parent: Viewer]; PreStore: Menus.ClickProc; StoreFile: PROC [parent: Viewer]; DoStoreFile: PUBLIC PROC [parent: Viewer, fileName: Rope.ROPE _ NIL]; PositionViewer: PROC [viewer: Viewer, loc: TextNode.Location, hint: ViewerOps.PaintHint _ client] RETURNS [ok: BOOL]; DefaultMenus: PROC [viewer: Viewer, paint: BOOL _ FALSE]; findMenu, levelMenu: Menus.MenuEntry; FindMenu: Menus.ClickProc; LevelMenu: Menus.ClickProc; PreReset: Menus.ClickProc; Reset: Menus.ClickProc; Save: Menus.ClickProc; PreClear: Menus.ClickProc; Clear: Menus.ClickProc; NewButton: Buttons.ButtonProc; Store: Menus.ClickProc; PreLoadPrevious: Menus.ClickProc; PreviousFile: Menus.ClickProc; PreGetImpl: Menus.ClickProc; GetImpl: Menus.ClickProc; PreGet: Menus.ClickProc; Get: Menus.ClickProc; AnonymousLoadImpl: Menus.ClickProc; AnonymousLoad: Menus.ClickProc; OpenButton: Buttons.ButtonProc; Normalize: Menus.ClickProc; Position: Menus.ClickProc; Find: Menus.ClickProc; FindDef: Menus.ClickProc; FindWord: Menus.ClickProc; Time: Menus.ClickProc; Split: Menus.ClickProc; FewerLevels: Menus.ClickProc; MoreLevels: Menus.ClickProc; AllLevels: Menus.ClickProc; FirstLevelOnly: Menus.ClickProc; END. μTEditDocumentPrivate.mesa Copyright c 1985, 1986 by Xerox Corporation. All rights reserved. Edited by Paxton on October 28, 1982 10:51 am Michael Plass, March 14, 1985 1:55:07 pm PST Doug Wyatt, September 2, 1986 2:49:17 pm PDT Κ‘˜codešœ™Kšœ Οmœ7™BKšœ-™-K™,K™,—K˜šΟk ˜ Kšžœžœ ˜Kšœžœžœ˜Kšœžœ˜Kšœžœ˜#Kšœ žœ˜ Kšœžœ ˜Kšœ žœ ˜—K˜KšΠblœžœž ˜'Kšœž˜K˜Kšœžœ˜$Kšžœžœžœ˜K˜KšΟnœžœ žœ˜BK˜Kš œžœ žœžœ˜IK˜š œžœž˜&K˜—Kš  œžœ˜#K˜Kš  œžœ"žœžœžœ˜MK˜Kš œ˜K˜šœžœžœ"˜@K˜—Kš œ˜ K˜Kš  œžœžœžœ˜2Jš  œžœžœžœžœžœ˜SK˜Kš  œžœ˜#K˜Kš  œžœ˜!K˜š  œžœ!žœ˜6Kšžœ˜$K˜—Kš œžœ˜)K˜š œžœ˜8Kšžœ˜$K˜—Kš œžœ˜ K˜š   œžœ žœžœ'žœ˜QKšžœ˜K˜—Kš œžœ/žœ˜JK˜š œžœžœžœ˜?Kšžœ˜K˜—Kš  œžœ˜$K˜š  œžœ žœžœžœ˜AKšžœ˜K˜—Kš œžœ˜,K˜š œžœžœžœ˜CKšžœ˜K˜—Kš œžœ˜ K˜š  œžœ˜Kš œ(žœžœ žœžœ˜HKšœ+žœ˜/Kšžœ˜—K˜Kš  œžœ˜$K˜š  œžœ*žœžœ žœžœ˜^Kšžœ˜—K˜š œžœ˜Kšœ;žœ˜@—K˜Kš œžœ˜-K˜Kš œžœ˜(K˜Kš œžœ˜(K˜Kš œžœ˜0K˜Kš œ˜K˜Kš  œžœ˜!K˜Kš   œžœžœ!žœžœ˜EK˜š œžœN˜bKšžœžœ˜K˜—Kš  œžœžœžœ˜9K˜K˜%K˜Kš œ˜K˜Kš  œ˜K˜Kš œ˜Kš œ˜K˜Kš œ˜K˜Kš œ˜Kš œ˜K˜Kš  œ˜K˜Kš œ˜K˜Kš œ˜!Kš  œ˜K˜Kš  œ˜Kš œ˜K˜Kš œ˜Kš œ˜K˜Kš œ˜#K˜Kš  œ˜K˜Kš  œ˜K˜Kš  œ˜K˜Kš œ˜K˜Kš œ˜K˜Kš œ˜K˜Kš œ˜K˜Kš œ˜K˜Kš œ˜K˜Kš  œ˜K˜Kš  œ˜K˜Kš  œ˜K˜Kš œ˜ K˜Kšžœ˜—…—}