Aomenu.mmbas

From ActivityOwnerWiki
Jump to: navigation, search
'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