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