#if B4J
Private Sub WindowBase_MousePressed (EventData As MouseEvent)
MousePressedX = EventData.X
End Sub
Private Sub WindowBase_MouseReleased (EventData As MouseEvent)
CheckTouchGesture(EventData.X)
End Sub
#else
Private Sub WindowBase_Touch (Action As Int, X As Float, Y As Float)
Dim p As Panel = WindowBase
Dim res As Boolean
If Action = p.ACTION_DOWN Then
MousePressedX = X
Else If Action = p.ACTION_UP Then
res = CheckTouchGesture(X)
If res= False Then
Click
End If
End If
End Sub
#End If
Private Sub Click
CallSub2(act_principal,"imgSlider_Click",Me)
End Sub