Module Event.Touch

Events from touch screens (but not graphics tablets or touchpads).

type ty = [
  1. | `Touch_down of [ `Touch_down ] t
  2. | `Touch_up of [ `Touch_up ] t
  3. | `Touch_motion of [ `Touch_motion ] t
  4. | `Touch_cancel of [ `Touch_cancel ] t
  5. | `Touch_frame of [ `Touch_frame ] t
]
type any = [
  1. | `Touch_down
  2. | `Touch_up
  3. | `Touch_motion
  4. | `Touch_cancel
  5. | `Touch_frame
]
val get_time : [< any ] t -> Timestamp.t
val get_slot : [< `Touch_down | `Touch_up | `Touch_motion | `Touch_cancel ] t -> int
val get_seat_slot : [< `Touch_down | `Touch_up | `Touch_motion | `Touch_cancel ] t -> int
val get_x : [< `Touch_down | `Touch_motion ] t -> float
val get_y : [< `Touch_down | `Touch_motion ] t -> float
val get_x_transformed : [< `Touch_down | `Touch_motion ] t -> width:int -> float
val get_y_transformed : [< `Touch_down | `Touch_motion ] t -> height:int -> float