sig
  type t
  val create : bool -> Glib.Main.t
  val iteration : bool -> bool
  val pending : unit -> bool
  val is_running : Glib.Main.t -> bool
  val quit : Glib.Main.t -> unit
  val destroy : Glib.Main.t -> unit
  type locale_category =
      [ `ALL | `COLLATE | `CTYPE | `MESSAGES | `MONETARY | `NUMERIC | `TIME ]
  val setlocale : Glib.Main.locale_category -> string option -> string
  val wrap_poll_func : unit -> unit
end