<> <> <> <> <> <> 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.