external set_current_name : [> Gtk.file_chooser] Gtk.obj -> string -> unit = "ml_gtk_file_chooser_set_current_name"