Dim StartY As Int
reflect.Target = scroll ' or reflect.Target = scroll.panel ??!!
reflect.SetOnTouchListener("Pnl_Touch")
Sub Pnl_Touch(lblTest1 As Object, Action As Int, X As Float, Y As Float, MotionEvent As Object) As Boolean
Select Action
Case scroll.Panel.ACTION_DOWN
StartY = Y
Case scroll.Panel.ACTION_UP
If Abs(Y - StartY) > MOVEMENT_THRESHOLD Then ' MOVEMENT_THRESHOLD is a number like 20dip
Swipe(Y > StartY)
End If
End Select
Return True
End Sub
Sub Swipe(Down As Boolean)
If Down Then
Log("DOWN")
Else
Log("Up")
End If
End Sub