TiogaMenuOps.mesa
Copyright Ó 1985, 1986, 1987, 1991 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, January 20, 1987 0:37:06 am PST
DIRECTORY
Rope USING [ROPE],
ViewerClasses USING [Column, Menu, Viewer];
TiogaMenuOps: CEDAR DEFINITIONS
= BEGIN
Viewer: TYPE = ViewerClasses.Viewer;
Column: TYPE = ViewerClasses.Column;
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,
column: Column ¬ left] 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, column: Column ¬ left] 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 [column: Column ¬ left] 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: ViewerClasses.Menu;
END.