external _gtkrange_init : unit -> unit = "ml_gtkrange_init"