external new_icon_source : unit -> icon_source = "ml_gtk_icon_source_new"