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. ΰ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 Definitions 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 Κ˜šΟc™Jš!™!Jš2™2Jš4™4J™—J˜šΟk ˜ Jšœžœžœ˜Jšœžœ˜Jšœžœ ˜J˜—Jšœžœ˜!Jšž˜headšœ ™ Jšœžœ˜$Jšžœžœžœ˜—šœ™IprocšΟnœžœ˜ J˜LšŸ œžœ˜!J˜LšŸ œžœ˜!J˜LšŸœžœ˜ —šœ™LšŸœžœ˜J˜šŸœžœžœž˜1Lšœžœ˜"Jš4™4Jšœ=™=J˜—š Ÿœžœ žœžœžœ˜CLšžœ ˜Jš4™4J˜—šŸ œžœ˜Lšœžœžœžœ˜GLšžœ ˜Jš4™4J˜—šŸœžœžœžœ˜6Jšœ4™4J˜—š Ÿœžœ žœžœžœ ˜7Jš4™4J˜—š Ÿœžœžœžœžœ ˜OJš4™4J˜—JšŸœžœ˜(J˜JšŸœžœ˜(J˜JšŸœžœ˜0J˜šŸœžœžœžœ˜3Jšœ4™4J˜—LšŸœžœ˜J˜LšŸœžœžœ ˜J˜JšŸœžœžœ ˜:J˜LšŸœžœ˜—šœ™LšŸœžœ ˜J˜LšŸ œžœ ˜J˜LšŸ œžœ ˜J˜LšŸ œžœ ˜—™ š Ÿ œžœžœžœž˜9J™-—J˜JšŸ œ ˜J™—J˜Jšžœ˜J˜J˜—…—\ [