3 (defcfun (%gtk-color-selection-get-previous-color
"gtk_color_selection_get_previous_color") :void
4 (color-selection (g-object color-selection
))
5 (color (g-boxed-foreign color
)))
7 (defun gtk-color-selection-get-previous-color (color-selection)
8 (let ((color (make-color)))
9 (%gtk-color-selection-get-previous-color color-selection color
)
12 (defcfun gtk-color-selection-set-previous-color
:void
13 (color-selection (g-object color-selection
))
14 (color (g-boxed-foreign color
)))
16 (defcfun (color-selection-adjusting-p "gtk_color_selection_is_adjusting") :boolean
17 (color-selection g-object
))
19 (export 'color-selection-adjusting-p
)
21 (defcfun gtk-color-selection-palette-from-string
:boolean
26 (defun color-selection-palette-from-string (str)
27 (with-foreign-objects ((colors :pointer
) (n-colors :int
))
28 (when (gtk-color-selection-palette-from-string str colors n-colors
)
29 (iter (with colors-ar
= (mem-ref colors
:pointer
))
30 (for i from
0 below
(mem-ref n-colors
:int
))
32 (inc-pointer colors-ar
33 (* i
(foreign-type-size 'gdk
::color-cstruct
))))
34 (for color
= (convert-from-foreign color-ptr
'(g-boxed-foreign color
)))
36 (finally (g-free colors-ar
))))))
38 (defcfun gtk-color-selection-palette-to-string
(g-string :free-from-foreign t
)
42 ; TODO: gtk_color_selection_palette_to_string
44 ; TODO: gtk_color_selection_set_change_palette_with_screen_hook
46 (defcfun (file-chooser-select-filename #+win32
"gtk_file_chooser_select_filename_utf8"
47 #-win32
"gtk_file_chooser_select_filename") :boolean
48 (file-chooser g-object
)
51 (export 'file-chooser-select-filename
)
53 (defcfun (file-chooser-unselect-filename #+win32
"gtk_file_chooser_unselect_filename_utf8"
54 #-win32
"gtk_file_chooser_unselect_filename") :void
55 (file-chooser g-object
)
58 (export 'file-chooser-unselect-filename
)
60 (defcfun (file-chooser-select-all "gtk_file_chooser_select_all") :void
61 (file-chooser g-object
))
63 (export 'file-chooser-select-all
)
65 (defcfun (file-chooser-unselect-all "gtk_file_chooser_unselect_all") :void
66 (file-chooser g-object
))
68 (export 'file-chooser-unselect-all
)
70 (defcfun (file-chooser-filenames #+win32
"gtk_file_chooser_get_filenames_utf8"
71 #-win32
"gtk_file_chooser_get_filenames") (gslist (g-string :free-from-foreign t
))
72 (file-chooser g-object
))
74 (export 'file-chooser-filenames
)
76 (defcfun (file-chooser-select-uri "gtk_file_chooser_select_uri") :boolean
77 (file-chooser g-object
)
80 (export 'file-chooser-select-uri
)
82 (defcfun (file-chooser-unselect-uri "gtk_file_chooser_unselect_uri") :void
83 (file-chooser g-object
)
86 (export 'file-chooser-unselect-uri
)
88 (defcfun (file-chooser-uris "gtk_file_chooser_get_uris") (gslist (g-string :free-from-foreign t
) :free-from-foreign t
)
89 (file-chooser g-object
))
91 (export 'file-chooser-uris
)
93 (defcfun (file-chooser-add-filter "gtk_file_chooser_add_filter") :void
94 (chooser (g-object file-chooser
))
95 (filter (g-object file-filter
)))
97 (export 'file-chooser-add-filter
)
99 (defcfun (file-chooser-remove-filter "gtk_file_chooser_remove_filter") :void
100 (chooser (g-object file-chooser
))
101 (filter (g-object file-filter
)))
103 (export 'file-chooser-remove-filter
)
105 (defcfun (file-chooser-filters "gtk_file_chooser_list_filters") (glist (g-string :free-from-foreign t
) :free-from-foreign t
)
106 (chooser (g-object file-chooser
)))
108 (export 'file-chooser-filters
)
110 (defcfun (gtk-file-chooser-add-shortcut-folder #+win32
"gtk_file_chooser_add_shortcut_folder_utf8"
111 #-win32
"gtk_file_chooser_add_shortcut_folder") :boolean
112 (file-chooser g-object
)
116 (defun file-chooser-add-shortcut-folder (file-chooser folder
)
117 (gtk-file-chooser-add-shortcut-folder file-chooser folder
(null-pointer)))
119 (export 'file-chooser-add-shortcut-folder
)
121 (defcfun (gtk-file-chooser-remove-shortcut-folder #+win32
"gtk_file_chooser_remove_shortcut_folder_utf8"
122 #-win32
"gtk_file_chooser_remove_shortcut_folder") :boolean
123 (file-chooser g-object
)
127 (defun file-chooser-remove-shortcut-folder (file-chooser folder
)
128 (gtk-file-chooser-remove-shortcut-folder file-chooser folder
(null-pointer)))
130 (export 'file-chooser-remove-shortcut-folder
)
132 (defcfun (file-chooser-shortcut-folders #+win32
"gtk_file_chooser_list_shortcut_folders_utf8"
133 #-win32
"gtk_file_chooser_list_shortcut_folders") (gslist (g-string :free-from-foreign t
))
134 (file-chooser g-object
))
136 (export 'file-chooser-shortcut-folders
)
138 (defcfun gtk-file-chooser-add-shortcut-folder-uri
:boolean
139 (file-chooser g-object
)
143 (defun file-chooser-add-shortcut-folder-uri (file-chooser folder-uri
)
144 (gtk-file-chooser-add-shortcut-folder-uri file-chooser folder-uri
(null-pointer)))
146 (export 'file-chooser-add-shortcut-folder-uri
)
148 (defcfun gtk-file-chooser-remove-shortcut-folder-uri
:boolean
149 (file-chooser g-object
)
153 (defun file-chooser-remove-shortcut-folder-uri (file-chooser folder-uri
)
154 (gtk-file-chooser-remove-shortcut-folder-uri file-chooser folder-uri
(null-pointer)))
156 (export 'file-chooser-remove-shortcut-folder-uri
)
158 (defcfun (file-chooser-shortcut-folder-uris "gtk_file_chooser_list_shortcut_folder_uris") (gslist (g-string :free-from-foreign t
))
159 (file-chooser g-object
))
161 (export 'file-chooser-shortcut-folder-uris
)
163 (defcfun (file-chooser-get-current-folder-file "gtk_file_chooser_get_current_folder_file") g-object
164 (chooser (g-object file-chooser
)))
166 (defcfun gtk-file-chooser-set-current-folder-file
:boolean
167 (file-chooser (g-object file-chooser
))
171 (defun file-chooser-set-current-folder-file (file-chooser file
)
172 (gtk-file-chooser-set-current-folder-file file-chooser file
(null-pointer)))
174 (export '(file-chooser-get-current-folder-file file-chooser-set-current-folder-file
))
176 (defcfun (file-chooser-get-file "gtk_file_chooser_get_file") g-object
177 (file-chooser (g-object file-chooser
)))
179 (defcfun gtk-file-chooser-set-file g-object
180 (file-chooser (g-object file-chooser
))
184 (defun file-chooser-set-file (file-chooser file
)
185 (gtk-file-chooser-set-file file-chooser file
(null-pointer)))
187 (export '(file-chooser-get-file file-chooser-set-file
))
189 (defcfun (file-chooser-unselect-file "gtk_file_chooser_unselect_file") :void
190 (file-chooser (g-object file-chooser
))
193 (export 'file-chooser-unselect-file
)
195 (defcfun (file-filter-add-pattern "gtk_file_filter_add_pattern") :void
196 (file-filter g-object
)
199 (export 'file-filter-add-pattern
)
201 (defcfun (file-filter-add-pixbuf-formats "gtk_file_filter_add_pixbuf_formats") :void
202 (file-filter g-object
))
204 (export 'file-filter-add-pixbuf-formats
)
206 ; TODO: gtk_file_filter_add_custom
208 ; TODO: gtk_file_filter_get_needed
210 ; TODO: gtk_file_filter_filter
212 (defcfun (font-selection-face "gtk_font_selection_get_face") g-object
213 (font-selection g-object
))
215 (export 'font-selection-face
)
217 (defcfun (font-selection-face-list "gtk_font_selection_get_face_list") g-object
218 (font-selection g-object
))
220 (export 'font-selection-face-list
)
222 (defcfun (font-selection-family "gtk_font_selection_get_family") g-object
223 (font-selection g-object
))
225 (export 'font-selection-family
)
227 (defcfun (font-selection-size "gtk_font_selection_get_size") :int
228 (font-selection g-object
))
230 (export 'font-selection-size
)
232 (defcfun (font-selection-family-list "gtk_font_selection_get_family_list") g-object
233 (font-selection g-object
))
235 (export 'font-selection-family-list
)
237 (defcfun (font-selection-preview-entry "gtk_font_selection_get_preview_entry") g-object
238 (font-selection g-object
))
240 (export 'font-selection-preview-entry
)
242 (defcfun (font-selection-size-entry "gtk_font_selection_get_size_entry") g-object
243 (font-selection g-object
))
245 (export 'font-selection-size-entry
)
247 (defcfun (font-selection-size-list "gtk_font_selection_get_size_list") g-object
248 (font-selection g-object
))
250 (export 'font-selection-size-list
)