DIRECTORY Rope USING [ROPE], Buttons USING [ButtonProc], Menus USING [MenuEntry, MenuProc], 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]; CancelLinks: PROC [viewer: Viewer]; FileIsMoreRecent: PROC [root: TextNode.Ref, file: Rope.ROPE] RETURNS [BOOL]; Reselect: Menus.MenuProc; PositionHistory: TYPE = RECORD [ pos, prev: TextNode.Location ]; JumpToPrevious: Menus.MenuProc; InitViewerDoc: PROC [self: Viewer, data: REF ANY]; 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.MenuProc; 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: BOOLEAN]; DefaultMenus: PROC [viewer: Viewer, paint: BOOL _ FALSE]; findMenu, levelMenu: Menus.MenuEntry; FindMenu: Menus.MenuProc; LevelMenu: Menus.MenuProc; PreReset: Menus.MenuProc; Reset: Menus.MenuProc; PreSave: Menus.MenuProc; Save: Menus.MenuProc; PreClear: Menus.MenuProc; Clear: Menus.MenuProc; NewButton: Buttons.ButtonProc; Store: Menus.MenuProc; PreLoadPrevious: Menus.MenuProc; PreviousFile: Menus.MenuProc; PreGetImpl: Menus.MenuProc; GetImpl: Menus.MenuProc; PreGet: Menus.MenuProc; Get: Menus.MenuProc; AnonymousLoadImpl: Menus.MenuProc; AnonymousLoad: Menus.MenuProc; OpenButton: Buttons.ButtonProc; Normalize: Menus.MenuProc; Position: Menus.MenuProc; Find: Menus.MenuProc; FindDef: Menus.MenuProc; FindWord: Menus.MenuProc; Time: Menus.MenuProc; Split: Menus.MenuProc; FewerLevels: Menus.MenuProc; MoreLevels: Menus.MenuProc; AllLevels: Menus.MenuProc; FirstLevelOnly: Menus.MenuProc; END. R-- TEditDocumentPrivate.mesa; Edited by Paxton on October 28, 1982 10:51 am Ê|˜JšÏcK™KJ˜šÏk ˜ Jšœžœžœ˜Jšœžœ˜Jšœžœ˜"Jšœ žœ˜Jšœžœ ˜Jšœ žœ ˜J˜—Jšœžœž˜/J˜Jšœžœ˜$Jšžœžœžœ˜J˜JšÏnœžœ žœ˜AJ˜JšŸœžœ žœžœ˜HJ˜JšŸ œžœ˜#J˜Jš œžœ!žœžœžœ˜LJ˜Jšœ˜J˜šœžœžœ"˜@J˜—J˜J˜JšŸ œžœžœžœ˜2J˜JšŸ œžœ˜#J˜JšŸ œžœ˜!J˜šŸ œžœ!žœ˜6Jšžœ˜$J˜—JšŸœžœ˜)J˜šŸœžœ˜8Jšžœ˜$J˜—JšŸœžœ˜ J˜š Ÿ œžœ žœžœ'žœ˜QJšžœ˜J˜—JšŸœžœ/žœ˜JJ˜šŸœžœžœžœ˜?Jšžœ˜J˜—JšŸ œžœ˜$J˜š Ÿœžœ žœžœžœ˜AJšžœ˜J˜—JšŸœžœ˜,J˜šŸœžœžœžœ˜CJšžœ˜J˜—JšŸœžœ˜ J˜šŸ œžœ˜Jšœ(žœžœ ž ˜HJšœ+žœ˜/Jšžœ˜—J˜JšŸ œžœ˜$J˜š Ÿœžœ*žœžœ ž œ˜^Jšžœ˜—J˜šŸœžœ˜Jšœ;žœ˜@—J˜JšŸœžœ˜-J˜JšŸœžœ˜(J˜JšŸœžœ˜(J˜JšŸœžœ˜0J˜Jšœ˜J˜JšŸ œžœ˜!J˜Jš Ÿ œžœžœ!žœžœ˜EJ˜šŸœžœN˜bJšžœžœ˜J˜—Jš Ÿ œžœžœžœž˜9J˜J˜%J˜J˜J˜Jšœ˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜Jšœ ˜ Jšœ˜J˜J˜J˜J˜J˜J˜J˜J˜"J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜Jšžœ˜J˜J˜—…— j8