+(defcfun (file-chooser-remove-filter "gtk_file_chooser_remove_filter") :void
+ (chooser (g-object file-chooser))
+ (filter (g-object file-filter)))
+
+(export 'file-chooser-remove-filter)
+
+(defcfun (file-chooser-filters "gtk_file_chooser_list_filters") (glist (g-string :free-from-foreign t) :free-from-foreign t)
+ (chooser (g-object file-chooser)))
+
+(export 'file-chooser-filters)