TEditDocumentPrivate.mesa
Copyright © 1985, 1986 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, September 2, 1986 2:49:17 pm PDT
DIRECTORY
FS USING [OpenFile],
Rope USING [ROPE],
Buttons USING [ButtonProc],
Menus USING [ClickProc, MenuEntry],
TextNode USING [Location, Node],
ViewerClasses USING [Viewer],
ViewerOps USING [PaintHint];
TEditDocumentPrivate: CEDAR DEFINITIONS
= BEGIN
Viewer: TYPE = ViewerClasses.Viewer;
ROPE: TYPE = Rope.ROPE;
RecordUnsavedDocument: PROC [fileName: ROPE, root: TextNode.Node];
FindUnsavedDocument: PROC [fileName: ROPE] RETURNS [root: TextNode.Node];
KillSelections: PROC [parent: Viewer];
CancelLinks: PROC [viewer: Viewer];
FileIsMoreRecent: PROC [root: TextNode.Node, 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 ANYNIL];
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: ROPENIL, parent, fileNameProcViewer: Viewer ← NIL]
RETURNS [viewer: Viewer];
CloseAndOpenFile: PROC [parent: Viewer, fileNameProcViewer: Viewer ← NIL];
DoCloseAndOpenFile: PROC [parent: Viewer, fileName: ROPENIL]
RETURNS [viewer: Viewer];
OpenImplFile: PROC [parent: Viewer];
DoOpenImplFile: PROC [fileName: ROPENIL, parent: Viewer ← NIL]
RETURNS [viewer: Viewer];
CloseAndOpenImplFile: PROC [parent: Viewer];
DoCloseAndOpenImplFile: PROC [parent: Viewer, fileName: ROPENIL]
RETURNS [viewer: Viewer];
LoadFile: PROC [parent: Viewer];
DoLoadFile: PROC [
parent: ViewerClasses.Viewer, fileName: ROPENIL, close: BOOLFALSE,
fileNameProcViewer: ViewerClasses.Viewer ← NIL]
RETURNS [viewer: Viewer];
LoadImplFile: PROC [parent: Viewer];
DoLoadImplFile: PROC [parent: ViewerClasses.Viewer, fileName: ROPENIL, close: BOOLFALSE]
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.ROPENIL];
PositionViewer: PROC [viewer: Viewer, loc: TextNode.Location, hint: ViewerOps.PaintHint ← client]
RETURNS [ok: BOOL];
DefaultMenus: PROC [viewer: Viewer, paint: BOOLFALSE];
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.