DIRECTORY FS USING [OpenFile], Rope USING [ROPE], Buttons USING [ButtonProc], Menus USING [ClickProc, MenuEntry], TextNode USING [Location, Ref], ViewerClasses USING [Viewer], ViewerOps USING [PaintHint]; TEditDocumentPrivate: CEDAR DEFINITIONS = BEGIN Viewer: TYPE = ViewerClasses.Viewer; 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: 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 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, April 14, 1985 5:13:10 pm PST Κ‘˜codešœ™Kšœ Οmœ1™