Sub Globals
Dim pnl As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
pnl.Initialize("")
Dim jo As JavaObject = pnl
Dim e As Object = jo.CreateEvent("android.view.View.OnGenericMotionListener", _
"pnl", False)
jo.RunMethod("setOnGenericMotionListener", Array(e))
Activity.AddView(pnl, 0, 0, 100%x, 100%y)
End Sub
Sub pnl_Event(methodName As String, args() As Object) As Boolean
Dim motionEvent As JavaObject = args(1)
Dim action As Int = motionEvent.RunMethod("getAction", Array())
Dim deviceId As Int = motionEvent.RunMethod("getDeviceId", Array())
Log("action: "&action)
Log("deviceId: "&deviceId)
Return True
End Sub