external complete : [>`fileselection] obj -> filter:string -> unit
      = "ml_gtk_file_selection_complete"