SubGlobals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim dummy AsPanel
EndSub
SubMenu_Click
'Log("Show popup")
'Add the dummy view to the activity
dummy.Initialize("")
Activity.AddView(dummy, 80%x, 0, 1dip, 1dip)
dummy.Color = Colors.Transparent
'Create and show popup menu
Dim pop AsPopupMenu
pop.Initialize("ABPop", dummy)
pop.AddMenuItem(1, "Connect", GetDrawable("menu_connect"))
pop.AddMenuItem(2, "Disconnect", GetDrawable("menu_disconnect"))
pop.AddMenuItem(3, "Rotate", GetDrawable("menu_rotate"))
pop.AddMenuItem(4, "Credits", GetDrawable("menu_ok"))
pop.AddMenuItem(5, "About", GetDrawable("menu_info"))
pop.Show
EndSub