Sub Globals
Dim Button1 As Button
Dim Button2 As Button
Dim dv(2) As DraggableView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
dv(0).Initialize(Activity, Button1)
dv(1).Initialize(Activity, Button2
End Sub
Sub Activity_Touch (Action As Int, X As Float, Y As Float)
Activity.Title = dv(0).left
End Sub