module Mouse:sig..end
Mouse and touchscreen information.
All positions are given in logical pixels, not hardware pixels (see the Theme
SCALE variable).
val pointer_pos : Tsdl.Sdl.event -> int * intReturn the pointer current position. This works both for mouse and touchscreen.
val pos : unit -> int * intGet current mouse position.
val window_pos : Tsdl.Sdl.window -> int * intReturn the mouse position with respect to the given window, using window position if necessary.
: Tsdl.Sdl.event -> int * int
val finger_pos : Tsdl.Sdl.event -> float * float
val wheel_y : Tsdl.Sdl.event -> int
val set_wheel_speed : float -> unitSet the speed of vertical scrolling via the mouse wheel and touchpad. By
default, wheel speed is 1. for usual vertical scrolling (standard on
Linux) and -1. for "natural" scrolling (standard on Mac
OS). set_wheel_speed 0. (or any speed less than 0.01) will disable
mouse wheel scrolling.