
<<TEditDocumentPrivate.mesa; Edited by Paxton on October 28, 1982 10:51 am>>
<<by Plass on October 11, 1983 3:54 pm>>

DIRECTORY
Rope USING [ROPE],
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];

PositionHistory: TYPE = RECORD [ pos, prev: TextNode.Location ];

InitViewerDoc: PROC [self: Viewer, data: REF ANY];

CancelLinks: PROC [viewer: Viewer];

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];

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];

END.