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