external new_factory : unit -> icon_factory = "ml_gtk_icon_factory_new"