DIRECTORY PFS USING [OpenFile], Rope USING [ROPE], Tioga USING [Location, Node], ViewerClasses USING [ClickProc, Column, MenuEntry, PaintHint, Viewer]; TEditDocumentPrivate: CEDAR DEFINITIONS ~ BEGIN Viewer: TYPE = ViewerClasses.Viewer; Column: TYPE = ViewerClasses.Column; ROPE: TYPE = Rope.ROPE; RecordUnsavedDocument: PROC [fileName: ROPE, root: Tioga.Node]; FindUnsavedDocument: PROC [fileName: ROPE] RETURNS [root: Tioga.Node]; KillSelections: PROC [parent: Viewer]; CancelLinks: PROC [viewer: Viewer]; FileIsMoreRecent: PROC [root: Tioga.Node, file: Rope.ROPE] RETURNS [BOOL]; Reselect: ViewerClasses.ClickProc; PositionHistory: TYPE = RECORD [ pos, prev: Tioga.Location ]; JumpToPrevious: ViewerClasses.ClickProc; InitViewerDoc: PROC [self: Viewer, data: REF ANY]; InitViewerDocInternal: PROC [self: Viewer, file: PFS.OpenFile, data: REF ANY ¬ NIL]; EmptyViewer: PROC [parent: Viewer]; NewViewer: PROC [parent: Viewer]; DoNewViewer: PROC [column: Column ¬ left, 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, column: Column ¬ left, parent: Viewer ¬ NIL, 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, column: Column ¬ left, 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: ViewerClasses.ClickProc; StoreFile: PROC [parent: Viewer]; DoStoreFile: PUBLIC PROC [parent: Viewer, fileName: Rope.ROPE ¬ NIL]; PositionViewer: PROC [viewer: Viewer, loc: Tioga.Location, hint: ViewerClasses.PaintHint ¬ client] RETURNS [ok: BOOL]; DefaultMenus: PROC [viewer: Viewer, paint: BOOL ¬ FALSE]; findMenu, levelMenu: ViewerClasses.MenuEntry; FindMenu: ViewerClasses.ClickProc; LevelMenu: ViewerClasses.ClickProc; PreReset: ViewerClasses.ClickProc; Reset: ViewerClasses.ClickProc; Save: ViewerClasses.ClickProc; PreClear: ViewerClasses.ClickProc; Clear: ViewerClasses.ClickProc; NewButton: ViewerClasses.ClickProc; Store: ViewerClasses.ClickProc; PreLoadPrevious: ViewerClasses.ClickProc; PreviousFile: ViewerClasses.ClickProc; PreGetImpl: ViewerClasses.ClickProc; GetImpl: ViewerClasses.ClickProc; PreGet: ViewerClasses.ClickProc; Get: ViewerClasses.ClickProc; AnonymousLoadImpl: ViewerClasses.ClickProc; AnonymousLoad: ViewerClasses.ClickProc; OpenButton: ViewerClasses.ClickProc; Normalize: ViewerClasses.ClickProc; Position: ViewerClasses.ClickProc; Find: ViewerClasses.ClickProc; FindDef: ViewerClasses.ClickProc; FindWord: ViewerClasses.ClickProc; Time: ViewerClasses.ClickProc; Split: ViewerClasses.ClickProc; FewerLevels: ViewerClasses.ClickProc; MoreLevels: ViewerClasses.ClickProc; AllLevels: ViewerClasses.ClickProc; FirstLevelOnly: ViewerClasses.ClickProc; END. " TEditDocumentPrivate.mesa Copyright Σ 1985, 1986, 1987, 1991, 1992 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 Willie-s, February 12, 1991 6:56 pm PST Doug Wyatt, January 30, 1992 6:36 pm PST Κ€•NewlineDelimiter –(cedarcode) style™codešœ™Kšœ ΟeœI™TKšΟy-™-K™,K™'K™(—K˜šΟk ˜ KšŸœŸœ ˜KšœŸœŸœ˜KšœŸœ˜KšœŸœ3˜F—K˜KšΟnœŸœŸ œŸ˜/K˜KšœŸœ˜$KšœŸœ˜$KšŸœŸœŸœ˜K˜Kš œŸœ Ÿœ˜?K˜Kš œŸœ ŸœŸœ˜FK˜š œŸœŸ˜&K˜—Kš  œŸœ˜#K˜Kš  œŸœŸœŸœŸœ˜JK˜Kš œ˜"K˜šœŸœŸœ˜=K˜—Kš œ˜(K˜Kš  œŸœŸœŸœ˜2Kš  œŸœŸœŸœŸœŸœ˜TK˜Kš  œŸœ˜#K˜Kš  œŸœ˜!K˜š  œŸœ8Ÿœ˜MKšŸœ˜$K˜—Kš œŸœ˜)K˜š œŸœ˜8KšŸœ˜$K˜—Kš œŸœ˜ K˜š  œŸœ ŸœŸœ*ŸœŸœŸœ˜K˜—Kš œŸœ/Ÿœ˜JK˜š œŸœŸœŸœ˜?KšŸœ˜K˜—Kš  œŸœ˜$K˜š  œŸœ ŸœŸœ*Ÿœ˜XKšŸœ˜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˜š œŸœO˜cKšŸœŸœ˜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šŸœ˜—…—8ώ