external _gtkbin_init : unit -> unit = "ml_gtkbin_init"