-- description of the standard tioga menus:
-- Last Edited by: Pausch, August 26, 1983 6:55 pm
[tiogaBasicMenu
[Clear =>
[allleft => $Empty ]
[allmiddle => $New ]
[allright => $CloseAndNew ]
]
[Reset guarded: TRUE =>
[allleft guardResponse: "about to do $RedReset" => $RedReset ]
[allmiddle guardResponse: "about to do $YellowReset" => $YellowReset ]
[allright guardResponse: "about to do $BlueReset" => $BlueReset ]
]
[Get =>
[allleft => $Load ]
[allmiddle => $Open ]
[allright => $CloseAndOpen ]
]
[GetImpl =>
[allleft => $LoadImpl ]
[allmiddle => $OpenImpl ]
[allright => $CloseAndOpenImpl ]
]
[PrevFile =>
[allleft => $Empty ]
[allmiddle => $New ]
[allright => $CloseAndNew ]
]
[Store guarded: TRUE =>
[allleft guardResponse: "about to do $RedStore" => $RedStore ]
[allmiddle guardResponse: "about to do $YellowStore" => $RedStore ]
[allright guardResponse: "about to do $BlueStore" => $BlueStore ]
]
[Save =>
[allleft => $ClearMessageWindow $RedSave ]
[allmiddle => $ClearMessageWindow $YellowSave ]
[allright => $ClearMessageWindow $BlueSave ]
]
[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]
]