sig
  val set_caption : title:string -> icon:string -> unit
  val get_caption : unit -> string * string
  val set_icon : Sdlvideo.surface -> unit
  val iconify : unit -> bool
  val toggle_fullscreen : unit -> bool
  val grab_input : bool -> unit
  val query_grab : unit -> bool
end