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
end