Aomenu.mmbas

'aomenu 08Aug08 http://creativecommons.org/licenses/by-sa/2.5/ http://www.activityowner.com Sub Main Dim combos(4) As String combos(0) = "Toggle Full Screen" combos(1) = "Next Action Verb Analysis" combos(2) = "Send Branch by email" combos(3) = "Convert map to html table" combos(4) = "Convert map to wiki text" Begin Dialog UserDialog 400,200 Text 10,10,380,200,"Choose the macro you would like to run" 'ListBox 10,25,380,10,combos,.ListBox1 ComboBox 10,25,380,100,combos,.combo OKButton 80,130,40,20 CancelButton 190,130,90,20 End Dialog Dim dlg As UserDialog 'dlg.list = "none" On Error GoTo X:   Dialog dlg ' show dialog (wait for ok) On Error GoTo 0 Select Case dlg.combo Case combos(0) FullScreen=Not FullScreen Case combos(1) Call MacroRun(GetPath(mmDirectoryMyMaps) & "AO\next-action-verb-analysis.mmbas") Case combos(2) Call MacroRun(GetPath(mmDirectoryMyMaps) & "AO\ao_send_branch.mmbas") Case combos(3) Call MacroRun(GetPath(mmDirectoryMyMaps) & "AO\map2table.mmbas") Case combos(4) Call MacroRun(GetPath(mmDirectoryMyMaps) & "AO\map2wiki.mmbas") Case Else End Select X: End Sub