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