sig
  external disable_setlocale : unit -> unit = "ml_gtk_disable_setlocale"
  val init : ?setlocale:bool -> unit -> string
  val loops : Glib.Main.t list Stdlib.ref
  val default_main : unit -> unit
  val main_func : (unit -> unit) Stdlib.ref
  val main : unit -> unit
  val quit : unit -> unit
  external get_version : unit -> int * int * int = "ml_gtk_get_version"
  val version : int * int * int
  external get_current_event_time : unit -> int32
    = "ml_gtk_get_current_event_time"
end