sig
  val set_caption : string -> string -> unit
  val get_caption : unit -> string * string
  val set_icon : Sdl.Video.surface -> unit
  val iconify_window : unit -> unit
  val toggle_fullscreen : Sdl.Video.surface -> unit
  val set_grab_input : bool -> unit
  val get_grab_input : unit -> bool
end