sig
  type keyboard_event_func =
    Sdlkey.t -> Sdlevent.switch_state -> int -> int -> unit
  and mouse_event_func =
    Sdlmouse.button -> Sdlevent.switch_state -> int -> int -> unit
  and mousemotion_event_func = int -> int -> unit
  and idle_event_func = unit -> unit
  and 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