Private Sub Panel_Touch (Action As Int, X As Float, Y As Float)
Log("Action : " & Action & " , X :" & X)
If Action=0 Then
down=X
else if Action=3 Then
up=X
If down > up Then
If SubExists(CallBack, EventName & "_ScrollDown") Then
CallSub(CallBack, EventName & "_ScrollDown")
End If
Else
If SubExists(CallBack, EventName & "_ScrollUp") Then
CallSub(CallBack, EventName & "_ScrollUp")
End If
End If
End If
End Sub