Sub Globals
Dim aSpinner As Spinner
Dim aList As List
End Sub
Sub Activity_Create(FirstTime As Boolean)
aList.Initialize
aList.AddAll(Array As String("item 1","item 2","item 3"))
aSpinner.Initialize("aSpinner")
aSpinner.AddAll(aList)
Activity.AddView(aSpinner,0,0,50%x,15%y)
End Sub
Sub aSpinner_ItemClick (Position As Int, Value As Object)
Dim anInputDialog As InputDialog
anInputDialog.Input=Value
anInputDialog.Show("New Value:","Edit Pos" & Position & " - " & Value,"OK","Cancel","",Null)
If anInputDialog.Response=DialogResponse.POSITIVE Then
Dim newValue As String=anInputDialog.Input
aList.InsertAt(Position,newValue)
aList.RemoveAt(Position+1)
aSpinner.Clear
aSpinner.AddAll(aList)
End If
End Sub