added selector widgets

diff --git a/generating.lisp b/generating.lisp
index f08e1e4..23eda4d 100644 (file)
--- a/generating.lisp
+++ b/generating.lisp
@@ -142,4 +142,20 @@
         (:cffi gtk::translation-domain gtk::action-group-translation-domain nil nil gtk::gtk-action-group-set-translation-domain))
        ("GtkAction"
         (:cffi gtk::accel-path gtk::action-accel-path (:string :free-from-foreign nil :free-to-foreign t) "gtk_action_get_accel_path" "gtk_action_set_accel_path")
-        (:cffi gtk::accel-group gtk::action-accel-group g-object nil "gtk_action_set_accel_group"))))))
\ No newline at end of file
+        (:cffi gtk::accel-group gtk::action-accel-group g-object nil "gtk_action_set_accel_group"))
+       ("GtkFileChooser"
+        (:cffi gtk::current-name gtk::file-chooser-current-name (:string :free-to-foreign t :encoding :utf-8) nil "gtk_file_chooser_set_current_name")
+        (:cffi gtk::filename gtk::file-chooser-filename (glib:g-string :free-from-foreign t :free-to-foreign t) "gtk_file_chooser_get_filename" "gtk_file_chooser_set_filename")
+        (:cffi gtk::current-folder gtk::file-chooser-current-folder (glib:g-string :free-from-foreign t :free-to-foreign t) "gtk_file_chooser_get_current_folder" "gtk_file_chooser_set_current_folder")
+        (:cffi gtk::uri gtk::file-chooser-uri (glib:g-string :free-from-foreign t :free-to-foreign t) "gtk_file_chooser_get_uri" "gtk_file_chooser_set_uri")
+        (:cffi gtk::current-folder-uri gtk::file-chooser-current-folder-uri (glib:g-string :free-from-foreign t :free-to-foreign t) "gtk_file_chooser_get_current_folder_uri" "gtk_file_chooser_set_current_folder_uri")
+        (:cffi gtk::preview-filename gtk::file-chooser-preview-filename (glib:g-string :free-from-foreign t :free-to-foreign t) "gtk_file_chooser_get_preview_filename" nil)
+        (:cffi gtk::preview-uri gtk::file-chooser-preview-uri (glib:g-string :free-from-foreign t :free-to-foreign t) "gtk_file_chooser_get_preview_uri" nil))
+       ("GtkFileFilter"
+        (:cffi gtk::name gtk::file-filter-name :string "gtk_file_filter_get_name" "gtk_file_filter_set_name"))
+       ("GtkFontSelectionDialog"
+        (:cffi gtk::font-name gtk::font-selection-dialog-font-name (glib:g-string :free-from-foreign t :free-to-foreign t) "gtk_font_selection_dialog_get_font_name" "gtk_font_selection_dialog_set_font_name")
+        (:cffi gtk::preview-text gtk::font-selection-dialog-preview-text :string "gtk_font_selection_dialog_get_preview_text" "gtk_font_selection_dialog_set_preview_text")
+        (:cffi gtk::apply-button gtk::font-selection-dialog-apply-button g-object "gtk_font_selection_dialog_get_apply_button" nil)
+        (:cffi gtk::cancel-button gtk::font-selection-dialog-cancel-button g-object "gtk_font_selection_dialog_get_cancel_button" nil)
+        (:cffi gtk::ok-button gtk::font-selection-dialog-ok-button g-object "gtk_font_selection_dialog_get_ok_button" nil))))))
\ No newline at end of file

diff --git a/gtk/gtk.asd b/gtk/gtk.asd
index b2b157a..44ca155 100644 (file)
--- a/gtk/gtk.asd
+++ b/gtk/gtk.asd
@@ -29,6 +29,7 @@
                (:file "gtk.combo-box")
                (:file "gtk.menu")
                (:file "gtk.ui-manager")
+               (:file "gtk.selectors")
                
                (:file "gtk.dialog.example")
                

diff --git a/gtk/gtk.demo.lisp b/gtk/gtk.demo.lisp
index 98577a0..5055ced 100644 (file)
--- a/gtk/gtk.demo.lisp
+++ b/gtk/gtk.demo.lisp
@@ -14,7 +14,11 @@
            #:test-combobox
            #:test-toolbar
            #:test-color-button
-           #:test-ui-manager))
+           #:test-ui-manager
+           #:test-color-button
+           #:test-color-selection
+           #:test-file-chooser
+           #:test-font-chooser))
 
 (in-package :gtk-demo)
 
@@ -367,4 +371,54 @@
     (awhen (ui-manager-widget ui-manager "/toolbar1")
       (container-add window it))
     (gtk-widget-show-all window)
+    (gtk-main)))
+
+(defun test-color-button ()
+  (let ((window (make-instance 'gtk-window :title "Color button" :type :toplevel :window-position :center :width-request 100 :height-request 100))
+        (button (make-instance 'color-button :title "Color button")))
+    (g-signal-connect window "destroy" (lambda (w) (release w) (gtk-main-quit)))
+    (g-signal-connect button "color-set" (lambda (b) (release b) (format t "Chose color ~A~%" (color-button-color button))))
+    (container-add window button)
+    (gtk-widget-show-all window)
+    (gtk-main)))
+
+(defun test-color-selection ()
+  (let ((window (make-instance 'gtk-window :title "Color selection" :type :toplevel :window-position :center))
+        (selection (make-instance 'color-selection :has-opacity-control t)))
+    (g-signal-connect window "destroy" (lambda (w) (declare (ignore w)) (gtk-main-quit)))
+    (g-signal-connect selection "color-changed" (lambda (s) (declare (ignore s)) (unless (color-selection-adjusting-p selection) (format t "color: ~A~%" (color-selection-current-color selection)))))
+    (container-add window selection)
+    (gtk-widget-show-all window)
+    (gtk-main)))
+
+(defun test-file-chooser ()
+  (let ((window (make-instance 'gtk-window :title "file chooser" :type :toplevel :window-position :center :default-width 100 :default-height 100))
+        (v-box (make-instance 'v-box))
+        (button (make-instance 'file-chooser-button :action :open))
+        (b (make-instance 'button :label "Choose for save" :stock-id "gtk-save")))
+    (g-signal-connect window "destroy" (lambda (w) (declare (ignore w)) (gtk-main-quit)))
+    (g-signal-connect button "file-set" (lambda (b) (declare (ignore b)) (format t "File set: ~A~%" (file-chooser-filename button))))
+    (g-signal-connect b "clicked" (lambda (b)
+                                    (declare (ignore b))
+                                    (let ((d (make-instance 'file-chooser-dialog :action :save :title "Choose file to save")))
+                                      (dialog-add-button d "gtk-save" :accept)
+                                      (dialog-add-button d "gtk-cancel" :cancel)
+                                      (when (eq (dialog-run d) :accept)
+                                        (format t "saved to file ~A~%" (file-chooser-filename d)))
+                                      (object-destroy d))))
+    (container-add window v-box)
+    (box-pack-start v-box button)
+    (box-pack-start v-box b)
+    (gtk-widget-show-all window)
+    (gtk-main)))
+
+(defun test-font-chooser ()
+  (let ((window (make-instance 'gtk-window :title "fonts" :type :toplevel :window-position :center :default-width 100 :default-height 100))
+        (v-box (make-instance 'v-box))
+        (button (make-instance 'font-button :title "Choose font" :font-name "Sans 10")))
+    (g-signal-connect window "destroy" (lambda (w) (declare (ignore w)) (gtk-main-quit)))
+    (g-signal-connect button "font-set" (lambda (b) (declare (ignore b)) (format t "Chose font ~A~%" (font-button-font-name button))))
+    (container-add window v-box)
+    (box-pack-start v-box button)
+    (gtk-widget-show-all window)
     (gtk-main)))
\ No newline at end of file

diff --git a/gtk/gtk.generated-classes.lisp b/gtk/gtk.generated-classes.lisp
index 2075e12..edb5d2d 100644 (file)
--- a/gtk/gtk.generated-classes.lisp
+++ b/gtk/gtk.generated-classes.lisp
@@ -7,15 +7,15 @@
                (:export t :type-initializer "gtk_size_group_mode_get_type")
                (:none 0) (:horizontal 1) (:vertical 2) (:both 3))
 
-(define-g-enum "GtkUnit" unit (:export t :type-initializer "gtk_unit_get_type")
-               (:pixel 0) (:points 1) (:inch 2) (:mm 3))
-
 (define-g-enum "GtkPrintStatus" print-status
                (:export t :type-initializer "gtk_print_status_get_type")
                (:initial 0) (:preparing 1) (:generating-data 2)
                (:sending-data 3) (:pending 4) (:pending-issue 5) (:printing 6)
                (:finished 7) (:finished-aborted 8))
 
+(define-g-enum "GtkUnit" unit (:export t :type-initializer "gtk_unit_get_type")
+               (:pixel 0) (:points 1) (:inch 2) (:mm 3))
+
 (define-g-enum "GtkRecentSortType" recent-sort-type
                (:export t :type-initializer "gtk_recent_sort_type_get_type")
                (:none 0) (:mru 1) (:lru 2) (:custom 3))
@@ -38,16 +38,16 @@
                 "gtk_tree_view_column_sizing_get_type")
                (:grow-only 0) (:autosize 1) (:fixed 2))
 
+(define-g-enum "GtkProgressBarStyle" progress-bar-style
+               (:export t :type-initializer "gtk_progress_bar_style_get_type")
+               (:continuous 0) (:discrete 1))
+
 (define-g-enum "GtkProgressBarOrientation" progress-bar-orientation
                (:export t :type-initializer
                 "gtk_progress_bar_orientation_get_type")
                (:left-to-right 0) (:right-to-left 1) (:bottom-to-top 2)
                (:top-to-bottom 3))
 
-(define-g-enum "GtkProgressBarStyle" progress-bar-style
-               (:export t :type-initializer "gtk_progress_bar_style_get_type")
-               (:continuous 0) (:discrete 1))
-
 (define-g-enum "GtkUpdateType" update-type
                (:export t :type-initializer "gtk_update_type_get_type")
                (:continuous 0) (:discontinuous 1) (:delayed 2))
@@ -82,14 +82,14 @@
                (:export t :type-initializer "gtk_toolbar_style_get_type")
                (:icons 0) (:text 1) (:both 2) (:both-horiz 3))
 
-(define-g-enum "GtkWrapMode" wrap-mode
-               (:export t :type-initializer "gtk_wrap_mode_get_type") (:none 0)
-               (:char 1) (:word 2) (:word-char 3))
-
 (define-g-enum "GtkJustification" justification
                (:export t :type-initializer "gtk_justification_get_type")
                (:left 0) (:right 1) (:center 2) (:fill 3))
 
+(define-g-enum "GtkWrapMode" wrap-mode
+               (:export t :type-initializer "gtk_wrap_mode_get_type") (:none 0)
+               (:char 1) (:word 2) (:word-char 3))
+
 (define-g-enum "GtkButtonBoxStyle" button-box-style
                (:export t :type-initializer "gtk_button_box_style_get_type")
                (:default-style 0) (:spread 1) (:edge 2) (:start 3) (:end 4)
@@ -108,14 +108,14 @@
                (:export t :type-initializer "gtk_pack_direction_get_type")
                (:ltr 0) (:rtl 1) (:ttb 2) (:btt 3))
 
-(define-g-enum "GtkCornerType" corner-type
-               (:export t :type-initializer "gtk_corner_type_get_type")
-               (:top-left 0) (:bottom-left 1) (:top-right 2) (:bottom-right 3))
-
 (define-g-enum "GtkPolicyType" policy-type
                (:export t :type-initializer "gtk_policy_type_get_type")
                (:always 0) (:automatic 1) (:never 2))
 
+(define-g-enum "GtkCornerType" corner-type
+               (:export t :type-initializer "gtk_corner_type_get_type")
+               (:top-left 0) (:bottom-left 1) (:top-right 2) (:bottom-right 3))
+
 (define-g-enum "GtkSensitivityType" sensitivity-type
                (:export t :type-initializer "gtk_sensitivity_type_get_type")
                (:auto 0) (:on 1) (:off 2))
@@ -562,28 +562,52 @@
 
 (define-g-interface "GtkFileChooser" file-chooser
                     (:export t :type-initializer "gtk_file_chooser_get_type")
-                    (show-hidden file-chooser-show-hidden "show-hidden"
-                     "gboolean" t t)
-                    (select-multiple file-chooser-select-multiple
-                     "select-multiple" "gboolean" t t)
-                    (action file-chooser-action "action" "GtkFileChooserAction"
+                    (local-only file-chooser-local-only "local-only" "gboolean"
                      t t)
-                    (preview-widget file-chooser-preview-widget
-                     "preview-widget" "GtkWidget" t t)
-                    (file-system-backend file-chooser-file-system-backend
-                     "file-system-backend" "gchararray" nil nil)
+                    (do-overwrite-confirmation
+                     file-chooser-do-overwrite-confirmation
+                     "do-overwrite-confirmation" "gboolean" t t)
                     (use-preview-label file-chooser-use-preview-label
                      "use-preview-label" "gboolean" t t)
-                    (filter file-chooser-filter "filter" "GtkFileFilter" t t)
                     (preview-widget-active file-chooser-preview-widget-active
                      "preview-widget-active" "gboolean" t t)
-                    (local-only file-chooser-local-only "local-only" "gboolean"
+                    (show-hidden file-chooser-show-hidden "show-hidden"
+                     "gboolean" t t)
+                    (action file-chooser-action "action" "GtkFileChooserAction"
                      t t)
                     (extra-widget file-chooser-extra-widget "extra-widget"
                      "GtkWidget" t t)
-                    (do-overwrite-confirmation
-                     file-chooser-do-overwrite-confirmation
-                     "do-overwrite-confirmation" "gboolean" t t))
+                    (file-system-backend file-chooser-file-system-backend
+                     "file-system-backend" "gchararray" nil nil)
+                    (preview-widget file-chooser-preview-widget
+                     "preview-widget" "GtkWidget" t t)
+                    (filter file-chooser-filter "filter" "GtkFileFilter" t t)
+                    (select-multiple file-chooser-select-multiple
+                     "select-multiple" "gboolean" t t)
+                    (:cffi current-name file-chooser-current-name
+                     (:string :free-to-foreign t :encoding :utf-8) nil
+                     "gtk_file_chooser_set_current_name")
+                    (:cffi filename file-chooser-filename
+                     (g-string :free-from-foreign t :free-to-foreign t)
+                     "gtk_file_chooser_get_filename"
+                     "gtk_file_chooser_set_filename")
+                    (:cffi current-folder file-chooser-current-folder
+                     (g-string :free-from-foreign t :free-to-foreign t)
+                     "gtk_file_chooser_get_current_folder"
+                     "gtk_file_chooser_set_current_folder")
+                    (:cffi uri file-chooser-uri
+                     (g-string :free-from-foreign t :free-to-foreign t)
+                     "gtk_file_chooser_get_uri" "gtk_file_chooser_set_uri")
+                    (:cffi current-folder-uri file-chooser-current-folder-uri
+                     (g-string :free-from-foreign t :free-to-foreign t)
+                     "gtk_file_chooser_get_current_folder_uri"
+                     "gtk_file_chooser_set_current_folder_uri")
+                    (:cffi preview-filename file-chooser-preview-filename
+                     (g-string :free-from-foreign t :free-to-foreign t)
+                     "gtk_file_chooser_get_preview_filename" nil)
+                    (:cffi preview-uri file-chooser-preview-uri
+                     (g-string :free-from-foreign t :free-to-foreign t)
+                     "gtk_file_chooser_get_preview_uri" nil))
 
 (define-g-interface "GtkFileChooserEmbed" file-chooser-embed (:export t))
 
@@ -606,25 +630,25 @@
 
 (define-g-interface "GtkRecentChooser" recent-chooser
                     (:export t :type-initializer "gtk_recent_chooser_get_type")
-                    (limit recent-chooser-limit "limit" "gint" t t)
-                    (recent-manager recent-chooser-recent-manager
-                     "recent-manager" "GtkRecentManager" nil nil)
-                    (show-not-found recent-chooser-show-not-found
-                     "show-not-found" "gboolean" t t)
                     (show-icons recent-chooser-show-icons "show-icons"
                      "gboolean" t t)
                     (local-only recent-chooser-local-only "local-only"
                      "gboolean" t t)
-                    (show-tips recent-chooser-show-tips "show-tips" "gboolean"
-                     t t)
-                    (show-private recent-chooser-show-private "show-private"
-                     "gboolean" t t)
                     (filter recent-chooser-filter "filter" "GtkRecentFilter" t
                      t)
+                    (show-tips recent-chooser-show-tips "show-tips" "gboolean"
+                     t t)
+                    (limit recent-chooser-limit "limit" "gint" t t)
+                    (select-multiple recent-chooser-select-multiple
+                     "select-multiple" "gboolean" t t)
                     (sort-type recent-chooser-sort-type "sort-type"
                      "GtkRecentSortType" t t)
-                    (select-multiple recent-chooser-select-multiple
-                     "select-multiple" "gboolean" t t))
+                    (recent-manager recent-chooser-recent-manager
+                     "recent-manager" "GtkRecentManager" nil nil)
+                    (show-not-found recent-chooser-show-not-found
+                     "show-not-found" "gboolean" t t)
+                    (show-private recent-chooser-show-private "show-private"
+                     "gboolean" t t))
 
 (define-g-interface "GtkToolShell" tool-shell
                     (:export t :type-initializer "gtk_tool_shell_get_type"))
@@ -698,9 +722,9 @@
                         :type-initializer "gtk_window_get_type")
                        ((type gtk-window-type "type" "GtkWindowType" t nil)
                         (title gtk-window-title "title" "gchararray" t t)
+                        (role gtk-window-role "role" "gchararray" t t)
                         (startup-id gtk-window-startup-id "startup-id"
                          "gchararray" nil t)
-                        (role gtk-window-role "role" "gchararray" t t)
                         (allow-shrink gtk-window-allow-shrink "allow-shrink"
                          "gboolean" t t)
                         (allow-grow gtk-window-allow-grow "allow-grow"
@@ -806,7 +830,22 @@
                        (:superclass dialog :export t :interfaces
                         ("AtkImplementorIface" "GtkBuildable")
                         :type-initializer "gtk_font_selection_dialog_get_type")
-                       nil)
+                       ((:cffi font-name font-selection-dialog-font-name
+                         (g-string :free-from-foreign t :free-to-foreign t)
+                         "gtk_font_selection_dialog_get_font_name"
+                         "gtk_font_selection_dialog_set_font_name")
+                        (:cffi preview-text font-selection-dialog-preview-text
+                         :string "gtk_font_selection_dialog_get_preview_text"
+                         "gtk_font_selection_dialog_set_preview_text")
+                        (:cffi apply-button font-selection-dialog-apply-button
+                         g-object "gtk_font_selection_dialog_get_apply_button"
+                         nil)
+                        (:cffi cancel-button
+                         font-selection-dialog-cancel-button g-object
+                         "gtk_font_selection_dialog_get_cancel_button" nil)
+                        (:cffi ok-button font-selection-dialog-ok-button
+                         g-object "gtk_font_selection_dialog_get_ok_button"
+                         nil)))
 
 (define-g-object-class "GtkInputDialog" input-dialog
                        (:superclass dialog :export t :interfaces
@@ -2253,7 +2292,9 @@
 (define-g-object-class "GtkFileFilter" file-filter
                        (:superclass gtk-object :export t :interfaces nil
                         :type-initializer "gtk_file_filter_get_type")
-                       nil)
+                       ((:cffi name file-filter-name :string
+                         "gtk_file_filter_get_name"
+                         "gtk_file_filter_set_name")))
 
 (define-g-object-class "GtkRecentFilter" recent-filter
                        (:superclass gtk-object :export t :interfaces nil
@@ -2388,35 +2429,35 @@
                          "gtk-enable-tooltips" "gboolean" t t)
                         (gtk-button-images settings-gtk-button-images
                          "gtk-button-images" "gboolean" t t)
+                        (gtk-toolbar-style settings-gtk-toolbar-style
+                         "gtk-toolbar-style" "GtkToolbarStyle" t t)
+                        (gtk-toolbar-icon-size settings-gtk-toolbar-icon-size
+                         "gtk-toolbar-icon-size" "GtkIconSize" t t)
+                        (gtk-label-select-on-focus
+                         settings-gtk-label-select-on-focus
+                         "gtk-label-select-on-focus" "gboolean" t t)
                         (gtk-menu-images settings-gtk-menu-images
                          "gtk-menu-images" "gboolean" t t)
-                        (gtk-scrolled-window-placement
-                         settings-gtk-scrolled-window-placement
-                         "gtk-scrolled-window-placement" "GtkCornerType" t t)
                         (gtk-can-change-accels settings-gtk-can-change-accels
                          "gtk-can-change-accels" "gboolean" t t)
                         (gtk-menu-popup-delay settings-gtk-menu-popup-delay
                          "gtk-menu-popup-delay" "gint" t t)
                         (gtk-menu-popdown-delay settings-gtk-menu-popdown-delay
                          "gtk-menu-popdown-delay" "gint" t t)
-                        (gtk-menu-bar-popup-delay
-                         settings-gtk-menu-bar-popup-delay
-                         "gtk-menu-bar-popup-delay" "gint" t t)
                         (gtk-color-palette settings-gtk-color-palette
                          "gtk-color-palette" "gchararray" t t)
-                        (gtk-toolbar-style settings-gtk-toolbar-style
-                         "gtk-toolbar-style" "GtkToolbarStyle" t t)
-                        (gtk-toolbar-icon-size settings-gtk-toolbar-icon-size
-                         "gtk-toolbar-icon-size" "GtkIconSize" t t)
-                        (gtk-label-select-on-focus
-                         settings-gtk-label-select-on-focus
-                         "gtk-label-select-on-focus" "gboolean" t t)
                         (gtk-entry-select-on-focus
                          settings-gtk-entry-select-on-focus
                          "gtk-entry-select-on-focus" "gboolean" t t)
                         (gtk-entry-password-hint-timeout
                          settings-gtk-entry-password-hint-timeout
-                         "gtk-entry-password-hint-timeout" "guint" t t)))
+                         "gtk-entry-password-hint-timeout" "guint" t t)
+                        (gtk-scrolled-window-placement
+                         settings-gtk-scrolled-window-placement
+                         "gtk-scrolled-window-placement" "GtkCornerType" t t)
+                        (gtk-menu-bar-popup-delay
+                         settings-gtk-menu-bar-popup-delay
+                         "gtk-menu-bar-popup-delay" "gint" t t)))
 
 (define-g-object-class "GtkRcStyle" rc-style
                        (:superclass g-object :export t :interfaces nil

diff --git a/gtk/gtk.selectors.lisp b/gtk/gtk.selectors.lisp
new file mode 100644 (file)
index 0000000..7fb7125
--- /dev/null
+++ b/gtk/gtk.selectors.lisp
@@ -0,0 +1,186 @@
+(in-package :gtk)
+
+(defcfun (color-selection-adjusting-p "gtk_color_selection_is_adjusting") :boolean
+  (color-selection g-object))
+
+(export 'color-selection-adjusting-p)
+
+; TODO: gtk_color_selection_palette_from_string
+
+; TODO: gtk_color_selection_palette_to_string
+
+; TODO: gtk_color_selection_set_change_palette_with_screen_hook
+
+(defcfun (file-chooser-select-filename "gtk_file_chooser_select_filename") :boolean
+  (file-chooser g-object)
+  (filename :string))
+
+(export 'file-chooser-select-filename)
+
+(defcfun (file-chooser-unselect-filename "gtk_file_chooser_unselect_filename") :void
+  (file-chooser g-object)
+  (filename :string))
+
+(export 'file-chooser-unselect-filename)
+
+(defcfun (file-chooser-select-all "gtk_file_chooser_select_all") :void
+  (file-chooser g-object))
+
+(export 'file-chooser-select-all)
+
+(defcfun (file-chooser-unselect-all "gtk_file_chooser_unselect_all") :void
+  (file-chooser g-object))
+
+(export 'file-chooser-unselect-all)
+
+(defcfun (file-chooser-filenames "gtk_file_chooser_get_filenames") (gslist (g-string :free-from-foreign t))
+  (file-chooser g-object))
+
+(export 'file-chooser-filenames)
+
+(defcfun (file-chooser-select-uri "gtk_file_chooser_select_uri") :boolean
+  (file-chooser g-object)
+  (uri :string))
+
+(export 'file-chooser-select-uri)
+
+(defcfun (file-chooser-unselect-uri "gtk_file_chooser_unselect_uri") :void
+  (file-chooser g-object)
+  (uri :string))
+
+(export 'file-chooser-unselect-uri)
+
+(defcfun (file-chooser-uris "gtk_file_chooser_get_uris") (gslist (g-string :free-from-foreign t))
+  (file-chooser g-object))
+
+(export 'file-chooser-uris)
+
+; TODO: gtk_file_chooser_add_filter
+; --- ownership issues
+
+; TODO: gtk_file_chooser_remove_filter
+
+; TODO: gtk_file_chooser_list_filters
+
+(defcfun gtk-file-chooser-add-shortcut-folder :boolean
+  (file-chooser g-object)
+  (folder :string)
+  (error :pointer))
+
+(defun file-chooser-add-shortcut-folder (file-chooser folder)
+  (gtk-file-chooser-add-shortcut-folder file-chooser folder (null-pointer)))
+
+(export 'file-chooser-add-shortcut-folder)
+
+(defcfun gtk-file-chooser-remove-shortcut-folder :boolean
+  (file-chooser g-object)
+  (folder :string)
+  (error :pointer))
+
+(defun file-chooser-remove-shortcut-folder (file-chooser folder)
+  (gtk-file-chooser-remove-shortcut-folder file-chooser folder (null-pointer)))
+
+(export 'file-chooser-remove-shortcut-folder)
+
+(defcfun (file-chooser-shortcut-folders "gtk_file_chooser_list_shortcut_folders") (gslist (g-string :free-from-foreign t))
+  (file-chooser g-object))
+
+(export 'file-chooser-shortcut-folders)
+
+(defcfun gtk-file-chooser-add-shortcut-folder-uri :boolean
+  (file-chooser g-object)
+  (folder-uri :string)
+  (error :pointer))
+
+(defun file-chooser-add-shortcut-folder-uri (file-chooser folder-uri)
+  (gtk-file-chooser-add-shortcut-folder-uri file-chooser folder-uri (null-pointer)))
+
+(export 'file-chooser-add-shortcut-folder-uri)
+
+(defcfun gtk-file-chooser-remove-shortcut-folder-uri :boolean
+  (file-chooser g-object)
+  (folder-uri :string)
+  (error :pointer))
+
+(defun file-chooser-remove-shortcut-folder-uri (file-chooser folder-uri)
+  (gtk-file-chooser-remove-shortcut-folder-uri file-chooser folder-uri (null-pointer)))
+
+(export 'file-chooser-remove-shortcut-folder-uri)
+
+(defcfun (file-chooser-shortcut-folder-uris "gtk_file_chooser_list_shortcut_folder_uris") (gslist (g-string :free-from-foreign t))
+  (file-chooser g-object))
+
+(export 'file-chooser-shortcut-folder-uris)
+
+; TODO: gtk_file_chooser_get_current_folder_file
+
+; TODO: gtk_file_chooser_get_file
+
+; TODO: gtk_file_chooser_get_files
+
+; TODO: gtk_file_chooser_get_preview_file
+
+; TODO: gtk_file_chooser_select_file
+
+; TODO: gtk_file_chooser_set_current_folder_file
+
+; TODO: gtk_file_chooser_set_file
+
+; TODO: gtk_file_chooser_unselect_file
+
+(defcfun (file-filter-add-pattern "gtk_file_filter_add_pattern") :void
+  (file-filter g-object)
+  (pattern :string))
+
+(export 'file-filter-add-pattern)
+
+(defcfun (file-filter-add-pixbuf-formats "gtk_file_filter_add_pixbuf_formats") :void
+  (file-filter g-object))
+
+(export 'file-filter-add-pixbuf-formats)
+
+; TODO: gtk_file_filter_add_custom
+
+; TODO: gtk_file_filter_get_needed
+
+; TODO: gtk_file_filter_filter
+
+(defcfun (font-selection-face "gtk_font_selection_get_face") g-object
+  (font-selection g-object))
+
+(export 'font-selection-face)
+
+(defcfun (font-selection-face-list "gtk_font_selection_get_face_list") g-object
+  (font-selection g-object))
+
+(export 'font-selection-face-list)
+
+(defcfun (font-selection-family "gtk_font_selection_get_family") g-object
+  (font-selection g-object))
+
+(export 'font-selection-family)
+
+(defcfun (font-selection-size "gtk_font_selection_get_size") :int
+  (font-selection g-object))
+
+(export 'font-selection-size)
+
+(defcfun (font-selection-family-list "gtk_font_selection_get_family_list") g-object
+  (font-selection g-object))
+
+(export 'font-selection-family-list)
+
+(defcfun (font-selection-preview-entry "gtk_font_selection_get_preview_entry") g-object
+  (font-selection g-object))
+
+(export 'font-selection-preview-entry)
+
+(defcfun (font-selection-size-entry "gtk_font_selection_get_size_entry") g-object
+  (font-selection g-object))
+
+(export 'font-selection-size-entry)
+
+(defcfun (font-selection-size-list "gtk_font_selection_get_size_list") g-object
+  (font-selection g-object))
+
+(export 'font-selection-size-list)
\ No newline at end of file