Sub Process_Globals
Public App As Application
Public NavControl As NavigationController
Private Page1 As Page
Private Picker1 As Picker
End Sub
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
NavControl.ShowPage(Page1)
Page1.RootPanel.LoadLayout("1")
Picker1.SetItems(0, Array(1,2,3,4,5))
Picker1.SetItems(1, Array("One", "Two", "Three", "Four", "Five"))
End Sub
Sub Picker1_ItemSelected (Column As Int, Row As Int)
Log("Selected item in column: " & Column & " is: " & Picker1.GetSelectedItem(Column))
End Sub