external _gtkmisc_init : unit -> unit = "ml_gtkmisc_init"