package ocamlsdl

  1. Overview
  2. Docs
type button =
  1. | BUTTON_LEFT
  2. | BUTTON_MIDDLE
  3. | BUTTON_RIGHT
  4. | BUTTON_WHEELUP
  5. | BUTTON_WHEELDOWN
  6. | BUTTON_X of int
val get_state : ?relative:bool -> unit -> int * int * button list
val warp : int -> int -> unit
type cursor
type cursor_data = {
  1. data : (int, Bigarray.int8_unsigned_elt, Bigarray.c_layout) Bigarray.Array2.t;
  2. mask : (int, Bigarray.int8_unsigned_elt, Bigarray.c_layout) Bigarray.Array2.t;
  3. w : int;
  4. h : int;
  5. hot_x : int;
  6. hot_y : int;
}
val free_cursor : cursor -> unit
val set_cursor : cursor -> unit
val get_cursor : unit -> cursor
val cursor_visible : unit -> bool
val show_cursor : bool -> unit
val cursor_data : cursor -> cursor_data
val pprint_cursor : cursor -> unit
val convert_to_cursor : data:int array -> mask:int array -> w:int -> h:int -> hot_x:int -> hot_y:int -> cursor