sig

  type t

  val create :

    ?on_close:(Bogue.Window.t -> unit) -> Bogue.Layout.t -> Bogue.Window.t

  val on_close : Bogue.Window.t -> (Bogue.Window.t -> unit) option -> unit

  val destroy : Bogue.Window.t -> unit

  val set_size : w:int -> h:int -> Bogue.Window.t -> unit

  val maximize_width : Bogue.Window.t -> unit

end