Okay, I noticed I have to implement it on my own in the original source.
B4X:
Public Sub Initialize (vCallback As Object, vEventName As String)
[...]
Dim R As Reflector
R.Target=sv
R.SetOnTouchListener("sv_Touch")
End Sub
Sub sv_Touch(ViewTag As Object, Action As Int, X As Float,Y As Float, Motionevent As Object) As Boolean
If SubExists(CallBack, EventName & "_Touch") Then
CallSub(CallBack, EventName & "_Touch")
End If
Return False
End Sub