# Module Glib.Main

    module Main: sig .. end

The Main Event Loop

    type t

    val create : bool -> t

    val iteration : bool -> bool

    val pending : unit -> bool

    val is_running : t -> bool

    val quit : t -> unit

    val destroy : t -> unit

    type locale_category = [ `ALL | `COLLATE | `CTYPE | `MESSAGES | `MONETARY | `NUMERIC | `TIME ]

    val setlocale : locale_category -> string option -> string

    val wrap_poll_func : unit -> unit