-- TiogaDocumentPrivate.mesa; Edited by Paxton on June 20, 1983 1:30 pm
DIRECTORY
Rope USING [ROPE],
Buttons USING [ButtonProc],
Menus USING [MenuEntry, MenuProc],
TiogaNode USING [Location, RefBranchNode],
ViewerClasses USING [Viewer],
ViewerOps USING [PaintHint];
TiogaDocumentPrivate: CEDAR DEFINITIONS = BEGIN
Viewer: TYPE = ViewerClasses.Viewer;
ROPE: TYPE = Rope.ROPE;
RecordUnsavedDocument: PROC [fileName: ROPE, root: TiogaNode.RefBranchNode];
FindUnsavedDocument: PROC [fileName: ROPE] RETURNS [root: TiogaNode.RefBranchNode];
CancelLinks: PROC [viewer: Viewer];
FileIsMoreRecent: PROC [root: TiogaNode.RefBranchNode, file: Rope.ROPE] RETURNS [BOOL];
Reselect: Menus.MenuProc;
PositionHistory:
TYPE =
RECORD [ pos, prev: TiogaNode.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: TiogaNode.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.