Sub Class_Globals
Private CallBack As Object 'ignore
Private EventName As String 'ignore
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize(mCallBack As Object, mEventName As String)
CallBack=mCallBack
EventName=mEventName
End Sub
Public Sub ChangeTouchEvent(View As B4XView)
#IF B4A
Dim obj As Reflector
obj.Target=View
obj.SetOnTouchListener("ViewA_Touch")
#ELSE IF B4J
Dim jo As JavaObject = View
Dim e As Object = jo.CreateEvent("android.view.View.OnTouchListener", "ViewJ", False)
jo.RunMethod("setOnTouchListener", Array As Object(e))
#ELSE IF B4i
#End If
End Sub