TiogaMenuOps.Mesa
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
DIRECTORY
Rope USING [ROPE],
Menus USING [Menu],
ViewerClasses USING [Viewer];
TiogaMenuOps: CEDAR DEFINITIONS =
BEGIN
Definitions
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: ROPENIL,
fileNameProcViewer: Viewer ← NIL];
if fileName rope is NIL, then use selection instead.
fileNameProcViewer will be used for fileNameProc confirmation
Open: PROC [fileName: ROPENIL, fileNameProcViewer: Viewer ← NIL]
RETURNS [Viewer];
if fileName rope is NIL, then use selection instead.
CloseAndOpen: PROC [
viewer: Viewer, fileName: ROPENIL, fileNameProcViewer: Viewer ← NIL]
RETURNS [Viewer];
if fileName rope is NIL, then use selection instead.
LoadImpl: PROC [viewer: Viewer, fileName: ROPENIL];
if fileName rope is NIL, then use selection instead.
OpenImpl: PROC [fileName: ROPENIL] RETURNS [Viewer];
if fileName rope is NIL, then use selection instead.
CloseAndOpenImpl: PROC [viewer: Viewer, fileName: ROPENIL] 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: ROPENIL];
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: BOOLFALSE];
Puts up the default Tioga menus in the viewer
tiogaMenu: Menus.Menu;
END.