OCamlSDL 0.9.1 : Sdlevent

`sig
exception Event_exn of string
type active_state = MOUSEFOCUS | INPUTFOCUS | APPACTIVE
val get_app_state : unit -> Sdlevent.active_state list
type active_event = { gain : bool; ae_state : Sdlevent.active_state list; }
type switch_state = RELEASED | PRESSED
type keyboard_event = {
ke_which : int;
ke_state : Sdlevent.switch_state;
keysym : Sdlkey.t;
keymod : Sdlkey.mod_state;
keycode : char;
unicode : int;
}
type mousemotion_event = {
mme_which : int;
mme_state : Sdlmouse.button list;
mme_x : int;
mme_y : int;
mme_xrel : int;
mme_yrel : int;
}
type mousebutton_event = {
mbe_which : int;
mbe_button : Sdlmouse.button;
mbe_state : Sdlevent.switch_state;
mbe_x : int;
mbe_y : int;
}
type joyaxis_event = { jae_which : int; jae_axis : int; jae_value : int; }
type joyball_event = {
jle_which : int;
jle_ball : int;
jle_xrel : int;
jle_yrel : int;
}
type joyhat_event = { jhe_which : int; jhe_hat : int; jhe_value : int; }
type joybutton_event = {
jbe_which : int;
jbe_button : int;
jbe_state : Sdlevent.switch_state;
}
type event =
ACTIVE of Sdlevent.active_event
| KEYDOWN of Sdlevent.keyboard_event
| KEYUP of Sdlevent.keyboard_event
| MOUSEMOTION of Sdlevent.mousemotion_event
| MOUSEBUTTONDOWN of Sdlevent.mousebutton_event
| MOUSEBUTTONUP of Sdlevent.mousebutton_event
| JOYAXISMOTION of Sdlevent.joyaxis_event
| JOYBALLMOTION of Sdlevent.joyball_event
| JOYHATMOTION of Sdlevent.joyhat_event
| JOYBUTTONDOWN of Sdlevent.joybutton_event
| JOYBUTTONUP of Sdlevent.joybutton_event
| QUIT
| SYSWM
| VIDEORESIZE of int * int
| VIDEOEXPOSE
| USER of int
val string_of_event : Sdlevent.event -> string
type event_mask = int
val active_mask : Sdlevent.event_mask
val keydown_mask : Sdlevent.event_mask
val keyup_mask : Sdlevent.event_mask
val mousemotion_mask : Sdlevent.event_mask
val mousebuttondown_mask : Sdlevent.event_mask
val mousebuttonup_mask : Sdlevent.event_mask
val joyaxismotion_mask : Sdlevent.event_mask
val joyballmotion_mask : Sdlevent.event_mask
val joyhatmotion_mask : Sdlevent.event_mask
val joybuttondown_mask : Sdlevent.event_mask
val joybuttonup_mask : Sdlevent.event_mask
val quit_mask : Sdlevent.event_mask
val syswmevent_mask : Sdlevent.event_mask
val videoresize_mask : Sdlevent.event_mask
val videoexpose_mask : Sdlevent.event_mask
val userevent_mask : Sdlevent.event_mask
val keyboard_event_mask : Sdlevent.event_mask
val mouse_event_mask : Sdlevent.event_mask
val joystick_event_mask : Sdlevent.event_mask
val all_events_mask : Sdlevent.event_mask
type event_kind =
ACTIVE_EVENT
| KEYDOWN_EVENT
| KEYUP_EVENT
| MOUSEMOTION_EVENT
| MOUSEBUTTONDOWN_EVENT
| MOUSEBUTTONUP_EVENT
| JOYAXISMOTION_EVENT
| JOYBALL_EVENT
| JOYHAT_EVENT
| JOYBUTTONDOWN_EVENT
| JOYBUTTONUP_EVENT
| QUIT_EVENT
| SYSWM_EVENT
| RESIZE_EVENT
| EXPOSE_EVENT
| USER_EVENT
val make_mask : Sdlevent.event_kind list -> Sdlevent.event_mask
val of_mask : Sdlevent.event_mask -> Sdlevent.event_kind list
val enable_events : Sdlevent.event_mask -> unit
val disable_events : Sdlevent.event_mask -> unit
val get_enabled_events : unit -> Sdlevent.event_mask
val get_state : Sdlevent.event_kind -> bool
val set_state : bool -> Sdlevent.event_kind -> unit
val pump : unit -> unit
val wait_event : unit -> Sdlevent.event
val wait : unit -> unit
val poll : unit -> Sdlevent.event option
val has_event : unit -> bool
val peek : ?mask:Sdlevent.event_mask -> int -> Sdlevent.event list
val get : ?mask:Sdlevent.event_mask -> int -> Sdlevent.event list
val add : Sdlevent.event list -> unit
module Old :
sig
type keyboard_event_func =
Sdlkey.t -> Sdlevent.switch_state -> int -> int -> unit
type mouse_event_func =
Sdlmouse.button -> Sdlevent.switch_state -> int -> int -> unit
type mousemotion_event_func = int -> int -> unit
type idle_event_func = unit -> unit
type resize_event_func = int -> int -> unit
val set_keyboard_event_func : Sdlevent.Old.keyboard_event_func -> unit
val set_mouse_event_func : Sdlevent.Old.mouse_event_func -> unit
val set_mousemotion_event_func :
Sdlevent.Old.mousemotion_event_func -> unit
val set_idle_event_func : Sdlevent.Old.idle_event_func -> unit
val set_resize_event_func : Sdlevent.Old.resize_event_func -> unit
val start_event_loop : unit -> unit
val exit_event_loop : unit -> unit
end
val link_me : unit
end`