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; 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, column: Column _ left] 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, column: Column _ left] 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 [column: Column _ left] 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: ViewerClasses.Menu; END. FTiogaMenuOps.mesa Copyright Σ 1985, 1986, 1987 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 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šœH™HKšœ!™!Kšœ2™2Kšœ4™4K™+—K˜šΟk ˜ Kšœœœ˜Kšœœ˜+—K˜KšΠbl œœ ˜šœ˜K˜Kšœœ˜$Kšœœ˜$Kšœœœ˜—headšœ™šΟnœœ˜ K˜—šŸ œœ˜!K˜—šŸ œœ˜!K˜—šŸœœ˜ K˜——šœ™šŸœœ˜K˜—š Ÿœœœœ œ˜UKšœ4™4Kšœ=™=K˜—š Ÿœœ œœœœ ˜mKšœ4™4K˜—š Ÿ œœœœ œœ ˜nKšœ4™4K˜—šŸœœœœ˜6Kšœ4™4K˜—š Ÿœœ œœœ ˜NKšœ4™4K˜—š Ÿœœœœœ ˜OKšœ4™4K˜—šŸœœ˜(K˜—šŸœœ˜(K˜—šŸœœ˜0K˜—šŸœœœœ˜3Kšœ4™4K˜—šŸœœ˜K˜—šŸœœœ ˜3K˜—šŸœœœ ˜:K˜—šŸœœ˜K˜——šœ™šŸœœ ˜K˜—šŸ œœ ˜K˜—šŸ œœ ˜K˜—šŸ œœ ˜K˜——™ šŸ œœœœ˜9K™-—K˜Kšœ˜K™—K˜Kšœ˜—…—Μ 4