Sub Globals
Dim p As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
p.Initialize("p")
Activity.AddView(p, 0, 0, 100%x, 100%y)
End Sub
Sub p_Touch (Action As Int, X As Float, Y As Float) As Boolean 'Return True to consume the event
Select Action
Case Activity.ACTION_DOWN
Log("down")
Case Activity.ACTION_MOVE
Log("move")
Case Activity.ACTION_UP
Log("up")
End Select
Return True
End Sub