DIRECTORY FS USING [OpenFile], Rope USING [ROPE], TextNode USING [Location, Ref], 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: TextNode.Ref]; FindUnsavedDocument: PROC [fileName: ROPE] RETURNS [root: TextNode.Ref]; KillSelections: PROC [parent: Viewer]; CancelLinks: PROC [viewer: Viewer]; FileIsMoreRecent: PROC [root: TextNode.Ref, file: Rope.ROPE] RETURNS [BOOL]; Reselect: ViewerClasses.ClickProc; PositionHistory: TYPE = RECORD [ pos, prev: TextNode.Location ]; JumpToPrevious: ViewerClasses.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 [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: TextNode.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 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, January 20, 1987 0:57:26 am PST Κz˜codešœ™KšœH™HKšœ-™-K™,K™+—K˜šΟk ˜ Kšœœ ˜Kšœœœ˜Kšœ œ˜Kšœœ3˜F—K˜KšΠblœœ ˜'Kšœ˜K˜Kšœœ˜$Kšœœ˜$Kšœœœ˜K˜KšΟnœœ œ˜AK˜KšŸœœ œœ˜HK˜šŸœœ˜&K˜—KšŸ œœ˜#K˜Kš Ÿœœ!œœœ˜LK˜KšŸœ˜"K˜šœœœ"˜@K˜—KšŸœ˜(K˜KšŸ œœœœ˜2Jš Ÿœœœœœœ˜SK˜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˜šŸœœR˜fKšœœ˜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šœ˜—…—F°