-- Tioga.menu
-- description of the standard tioga menus:
-- Last Edited by: Pausch, August 26, 1983 6:55 pm
-- Last Edited by: Wyatt, November 2, 1983 12:35 pm
[tiogaBasicMenu
[Clear =>
["Clear", [$Empty], "Clear this viewer"]
["New", [$New], "Create a new viewer below this one"]
["Close and New", [$CloseAndNew], "Close this viewer and create a new one"]
]
[Reset guarded: TRUE =>
["Reset", [$Reset], "Reset viewer to its initial state"]
]
[Get =>
["Load", [$Load], "Load file"]
["Open", [$Open], "Open file"]
["Close and Open", [$CloseAndOpen], "Close viewer and Open file"]
]
[GetImpl =>
["LoadImpl", [$LoadImpl], "Load implementation"]
["OpenImpl", [$OpenImpl], "Open implementation"]
["Close and OpenImpl", [$CloseAndOpenImpl], "Close viewer and Open implementation"]
]
[PrevFile =>
["LoadPrevious", [$LoadPrevious], "Load previous file"]
["OpenPrevious", [$OpenPrevious], "Open previous file"]
["Close and OpenPrevious", [$CloseAndOpenImpl], "Close viewer and Open previous file"]
]
[Store guarded: TRUE =>
["Store", [$Store], "Store viewer on a new file"]
]
[Save =>
["Save", [$Save], "Save viewer on old file"]
]
[Time => $Time ]
[Split =>
[allleft => $RedSplit ]
[allmiddle => $YellowSplit ]
[allright => $BlueSplit ]
]
[Places => [all toggle: "tiogaPlacesMenu" => $NOOP ] ]
[Levels => [all toggle: "tiogaLevelsMenu" => $NOOP ] ]
[ChangeLog => $FUNCTION ]
]
[ tiogaPlacesMenu
[Find =>
[allleft => $FindNext ]
[allmiddle => $FindAny ]
[allright => $FindPrev ]
]
[Word =>
[allleft => $FindNextWord ]
[allmiddle => $FindAnyWord ]
[allright => $FindPrevWord ]
]
[Def =>
[allleft => $FindNextDef ]
[allmiddle => $FindAnyDef ]
[allright => $FindPrevDef ]
]
[Position => $Position ]
[Normalize =>
[allleft => $NormalizeToStart ]
[allmiddle => $NormalizeToCaret ]
[allright => $NormalizeToEnd ]
]
[PrevPlace => $PrevPlace ]
[Reselect => $Reselect ]
]
[ tiogaLevelsMenu
[FirstLevelOnly => $FirstLevelOnly]
[MoreLevels => $MoreLevels]
[FewerLevels => $FewerLevels]
[AllLevels => $AllLevels]
]