Sub Globals
Dim btn As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim r As Reflector
Dim btn As Button
btn.Initialize("")
Activity.AddView(btn, 10dip, 10dip, 300dip, 300dip)
r.Target = btn
r.SetOnTouchListener("btn_touch")
End Sub
Sub btn_touch (viewtag As Object, action As Int, X As Float, Y As Float, motionevent As Object) As Boolean
Dim r As Reflector
r.Target = motionevent
Dim pressure As Float
pressure = r.RunMethod("getPressure")
Log(pressure)
Return True
End Sub