external get_selections : [>`fileselection] obj -> string list = "ml_gtk_file_selection_get_selections"