Sub Globals
Dim Spinner1 As Spinner
Dim SpinList1 As List
Dim SpinMap As Map
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Main") 'Contains spinner1
SpinList1.Initialize
SpinMap.Initialize
Spinner1.AddAll(Array As String("Text1","Text2","Text3","Text4"))
SpinList1.AddAll(Array As String("ID1","ID2","ID3","ID4"))
For i=0 To Spinner1.Size-1
SpinMap.Put(Spinner1.GetItem(i), SpinList1.Get(i))
Next
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Spinner1_ItemClick (Position As Int, Value As Object)
Dim Myid As String
Myid = SpinMap.Get(Value)
Log(Myid)
End Sub