Sub Globals
Dim statesp, citysp As Spinner
Dim lst(3) As List
Dim sv As ScrollView
End Sub
Sub Activity_Create(FirstTime As Boolean)
For i = 0 To 2
lst(i).Initialize
Next
lst(0).AddAll(Array As String("city 1", "city 2","city 3" ))
lst(1).AddAll(Array As String("city #1", "city #2","city #3" ))
lst(2).AddAll(Array As String("city $1", "city $2","city $3" ))
statesp.Initialize("statesp")
citysp.Initialize("citysp")
statesp.Add("NY")
statesp.Add("OHIO")
statesp.Add("COLORADO")
sv.Initialize(150%y)
sv.Panel.AddView(statesp,5%x,5%y, 40%x, 10%y)
sv.Panel.AddView(citysp,55%x,5%y, 40%x, 10%y)
Activity.AddView(sv,0,0,100%x,100%y)
End Sub
Sub citysp_ItemClick (Position As Int, Value As Object)
Log(Value)
End Sub
Sub statesp_ItemClick (Position As Int, Value As Object)
citysp.Clear
citysp.AddAll(lst(Position))
End Sub