
<<-- TEditDocumentPrivate.mesa; Edited by Paxton on October 28, 1982 10:51 am>>

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.