TEditDocumentPrivate.mesa
Copyright Ó 1985, 1986, 1987, 1991, 1992 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
Willie-s, February 12, 1991 6:56 pm PST
Doug Wyatt, January 30, 1992 6:36 pm PST
DIRECTORY
PFS USING [OpenFile],
Rope USING [ROPE],
Tioga USING [Location, Node],
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: Tioga.Node];
FindUnsavedDocument: PROC [fileName: ROPE] RETURNS [root: Tioga.Node];
KillSelections:
PROC [parent: Viewer]
;
CancelLinks: PROC [viewer: Viewer];
FileIsMoreRecent: PROC [root: Tioga.Node, file: Rope.ROPE] RETURNS [BOOL];
Reselect: ViewerClasses.ClickProc;
PositionHistory:
TYPE =
RECORD [ pos, prev: Tioga.Location ];
JumpToPrevious: ViewerClasses.ClickProc;
InitViewerDoc: PROC [self: Viewer, data: REF ANY];
InitViewerDocInternal: PROC [self: Viewer, file: PFS.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: Tioga.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.