DIRECTORY Rope USING [ROPE], Menus USING [Menu], ViewerClasses USING [Viewer]; TiogaMenuOps: CEDAR DEFINITIONS = BEGIN Viewer: TYPE = ViewerClasses.Viewer; ROPE: TYPE = Rope.ROPE; Position: PROC [viewer: Viewer]; Normalize: PROC [viewer: Viewer]; PrevPlace: PROC [viewer: Viewer]; Reselect: PROC [viewer: Viewer]; Save: PROC [viewer: Viewer]; Load: PROC [viewer: Viewer, fileName: ROPE _ NIL, fileNameProcViewer: Viewer _ NIL]; Open: PROC [fileName: ROPE _ NIL, fileNameProcViewer: Viewer _ NIL] RETURNS [Viewer]; CloseAndOpen: PROC [viewer: Viewer, fileName: ROPE _ NIL, fileNameProcViewer: Viewer _ NIL] RETURNS [Viewer]; LoadImpl: PROC [viewer: Viewer, fileName: ROPE _ NIL]; OpenImpl: PROC [fileName: ROPE _ NIL] RETURNS [Viewer]; CloseAndOpenImpl: PROC [viewer: Viewer, fileName: ROPE _ NIL] RETURNS [Viewer]; LoadPreviousFile: PROC [parent: Viewer]; OpenPreviousFile: PROC [parent: Viewer]; CloseAndOpenPreviousFile: PROC [parent: Viewer]; Store: PROC [viewer: Viewer, fileName: ROPE _ NIL]; Empty: PROC [viewer: Viewer]; New: PROC RETURNS [Viewer]; CloseAndNewViewer: PROC [viewer: Viewer] RETURNS [Viewer]; Reset: PROC [viewer: Viewer]; FirstLevelOnly: PROC [Viewer]; MoreLevels: PROC [Viewer]; FewerLevels: PROC [Viewer]; AllLevels: PROC [Viewer]; DefaultMenus: PROC [viewer: Viewer, paint: BOOL _ FALSE]; tiogaMenu: Menus.Menu; END. 8TiogaMenuOps.mesa Copyright c 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 Places menu commands Files and text viewers if fileName rope is NIL, then use selection instead. fileNameProcViewer will be used for fileNameProc confirmation if fileName rope is NIL, then use selection instead. if fileName rope is NIL, then use selection instead. if fileName rope is NIL, then use selection instead. if fileName rope is NIL, then use selection instead. if fileName rope is NIL, then use selection instead. if fileName rope is NIL, then use selection instead. Levels menu commands Miscellaneous Puts up the default Tioga menus in the viewer Κ'˜codešœ™Kšœ Οmœ1™