TiogaMenuOps.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
written by Bill Paxton. June 1982
last written by Paxton. December 28, 1982 12:59 pm
last written by Teitelman. January 10, 1983 12:56 pm
Doug Wyatt, March 3, 1985 12:56:31 pm PST
DIRECTORY
Rope USING [ROPE],
Menus USING [Menu],
ViewerClasses USING [Viewer];
TiogaMenuOps: CEDAR DEFINITIONS
= BEGIN
Viewer: TYPE = ViewerClasses.Viewer;
ROPE: TYPE = Rope.ROPE;
Places menu commands
Position: PROC [viewer: Viewer];
Normalize: PROC [viewer: Viewer];
PrevPlace: PROC [viewer: Viewer];
Reselect: PROC [viewer: Viewer];
Files and text viewers
Save: PROC [viewer: Viewer];
Load: PROC [viewer: Viewer, fileName: ROPE ← NIL,
fileNameProcViewer: Viewer ← NIL];
if fileName rope is NIL, then use selection instead.
fileNameProcViewer will be used for fileNameProc confirmation
Open: PROC [fileName: ROPE ← NIL,
fileNameProcViewer: Viewer ← NIL] RETURNS [Viewer];
if fileName rope is NIL, then use selection instead.
CloseAndOpen: PROC [viewer: Viewer, fileName: ROPE ← NIL,
fileNameProcViewer: Viewer ← NIL] RETURNS [Viewer];
if fileName rope is NIL, then use selection instead.
LoadImpl: PROC [viewer: Viewer, fileName: ROPE ← NIL];
if fileName rope is NIL, then use selection instead.
OpenImpl: PROC [fileName: ROPE ← NIL] RETURNS [Viewer];
if fileName rope is NIL, then use selection instead.
CloseAndOpenImpl: PROC [viewer: Viewer, fileName: ROPE ← NIL] RETURNS [Viewer];
if fileName rope is NIL, then use selection instead.
LoadPreviousFile: PROC [parent: Viewer];
OpenPreviousFile: PROC [parent: Viewer];
CloseAndOpenPreviousFile: PROC [parent: Viewer];
Store: PROC [viewer: Viewer, fileName: ROPE ← NIL];
if fileName rope is NIL, then use selection instead.
Empty: PROC [viewer: Viewer];
New: PROC RETURNS [Viewer];
CloseAndNewViewer: PROC [viewer: Viewer] RETURNS [Viewer];
Reset: PROC [viewer: Viewer];
Levels menu commands
FirstLevelOnly: PROC [Viewer];
MoreLevels: PROC [Viewer];
FewerLevels: PROC [Viewer];
AllLevels: PROC [Viewer];
Miscellaneous
DefaultMenus: PROC [viewer: Viewer, paint: BOOL ← FALSE];
Puts up the default Tioga menus in the viewer
tiogaMenu: Menus.Menu;
END.