sig
  external init : string array -> string array = "ml_gtk_init"
  external disable_setlocale : unit -> unit = "ml_gtk_disable_setlocale"
  val init : ?setlocale:bool -> unit -> string
  val loops : Glib.Main.t list Pervasives.ref
  val default_main : unit -> unit
  val main_func : (unit -> unit) Pervasives.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