1;; -*- lisp -*- 2 3;; Enums 4 5(define-enum GtkFileChooserAction 6 (open GTK_FILE_CHOOSER_ACTION_OPEN) 7 (save GTK_FILE_CHOOSER_ACTION_SAVE) 8 (select-folder GTK_FILE_CHOOSER_ACTION_SELECT_FOLDER) 9 (create-folder GTK_FILE_CHOOSER_ACTION_CREATE_FOLDER)) 10 11(define-enum GtkFileChooserConfirmation 12 (confirm GTK_FILE_CHOOSER_CONFIRMATION_CONFIRM) 13 (accept-filename GTK_FILE_CHOOSER_CONFIRMATION_ACCEPT_FILENAME) 14 (select-again GTK_FILE_CHOOSER_CONFIRMATION_SELECT_AGAIN)) 15 16(define-enum GtkFileChooserError 17 (nonexistent GTK_FILE_CHOOSER_ERROR_NONEXISTENT) 18 (bad-filename GTK_FILE_CHOOSER_ERROR_BAD_FILENAME) 19 (already-exists GTK_FILE_CHOOSER_ERROR_ALREADY_EXISTS)) 20 21(define-enum GtkFileFilterFlags 22 (filename GTK_FILE_FILTER_FILENAME) 23 (uri GTK_FILE_FILTER_URI) 24 (display-name GTK_FILE_FILTER_DISPLAY_NAME) 25 (mime-type GTK_FILE_FILTER_MIME_TYPE)) 26 27;; GtkFileChooser [Base] 28 29(define-object GtkFileChooser (GObject)) 30 31(define-func gtk_file_chooser_set_action 32 none 33 ((GtkFileChooser chooser) 34 (GtkFileChooserAction action))) 35 36(define-func gtk_file_chooser_get_action 37 GtkFileChooserAction 38 ((GtkFileChooser chooser))) 39 40(define-func gtk_file_chooser_set_local_only 41 none 42 ((GtkFileChooser chooser) 43 (bool local_only))) 44 45(define-func gtk_file_chooser_get_local_only 46 bool 47 ((GtkFileChooser chooser))) 48 49(define-func gtk_file_chooser_set_select_multiple 50 none 51 ((GtkFileChooser chooser) 52 (bool select_multiple))) 53 54(define-func gtk_file_chooser_get_select_multiple 55 bool 56 ((GtkFileChooser chooser))) 57 58(define-func gtk_file_chooser_set_show_hidden 59 none 60 ((GtkFileChooser chooser) 61 (bool show_hidden))) 62 63(define-func gtk_file_chooser_get_show_hidden 64 bool 65 ((GtkFileChooser chooser))) 66 67(define-func gtk_file_chooser_set_do_overwrite_confirmation 68 none 69 ((GtkFileChooser chooser) 70 (bool confirm))) 71 72(define-func gtk_file_chooser_get_do_overwrite_confirmation 73 bool 74 ((GtkFileChooser chooser))) 75 76;; GtkFileChooser [Filenames] 77 78(define-func gtk_file_chooser_set_filename 79 none 80 ((GtkFileChooser chooser) 81 (string filename))) 82 83(define-func gtk_file_chooser_get_filename 84 string 85 ((GtkFileChooser chooser))) 86 87(define-func gtk_file_chooser_select_filename 88 bool 89 ((GtkFileChooser chooser) 90 (string filename))) 91 92(define-func gtk_file_chooser_unselect_filename 93 none 94 ((GtkFileChooser chooser) 95 ((tvec string in) filename))) 96 97(define-func gtk_file_chooser_select_all 98 none 99 ((GtkFileChooser chooser))) 100 101(define-func gtk_file_chooser_unselect_all 102 none 103 ((GtkFileChooser chooser))) 104 105;;; XXX need GSList return type support 106;;(define-func gtk_file_chooser_get_filenames 107;; GSList 108;; ((GtkFileChooser chooser))) 109 110(define-func gtk_file_chooser_set_current_folder 111 bool 112 ((GtkFileChooser chooser) 113 ((tvec string in) folder))) 114 115(define-func gtk_file_chooser_get_current_folder 116 string 117 ((GtkFileChooser chooser))) 118 119;; GtkFileChooser [URI] 120 121(define-func gtk_file_chooser_set_uri 122 bool 123 ((GtkFileChooser chooser) 124 ((tvec string in) uri))) 125 126(define-func gtk_file_chooser_get_uri 127 string 128 ((GtkFileChooser chooser))) 129 130(define-func gtk_file_chooser_select_uri 131 bool 132 ((GtkFileChooser chooser) 133 ((tvec string in) uri))) 134 135(define-func gtk_file_chooser_unselect_uri 136 none 137 ((GtkFileChooser chooser) 138 ((tvec string in) uri))) 139 140;;; XXX need GSList return type support 141;;(define-func gtk_file_chooser_get_uris 142;; GSList 143;; ((GtkFileChooser chooser))) 144 145(define-func gtk_file_chooser_set_current_folder_uri 146 bool 147 ((GtkFileChooser chooser) 148 ((tvec string in) uri))) 149 150(define-func gtk_file_chooser_get_current_folder_uri 151 string 152 ((GtkFileChooser chooser))) 153 154;; GtkFileChooser [Preview] 155 156(define-func gtk_file_chooser_set_preview_widget 157 none 158 ((GtkFileChooser chooser) 159 (GtkWidget widget))) 160 161(define-func gtk_file_chooser_get_preview_widget 162 GtkWidget 163 ((GtkFileChooser chooser))) 164 165(define-func gtk_file_chooser_set_preview_widget_active 166 none 167 ((GtkFileChooser chooser) 168 (bool active))) 169 170(define-func gtk_file_chooser_get_preview_widget_active 171 bool 172 ((GtkFileChooser chooser))) 173 174(define-func gtk_file_chooser_set_use_preview_label 175 none 176 ((GtkFileChooser chooser) 177 (bool use_label))) 178 179(define-func gtk_file_chooser_get_use_preview_label 180 bool 181 ((GtkFileChooser chooser))) 182 183(define-func gtk_file_chooser_get_preview_filename 184 string 185 ((GtkFileChooser chooser))) 186 187(define-func gtk_file_chooser_get_preview_uri 188 string 189 ((GtkFileChooser chooser))) 190 191;; GtkFileChooser [Extra] 192 193(define-func gtk_file_chooser_set_extra_widget 194 none 195 ((GtkFileChooser chooser) 196 (GtkWidget widget))) 197 198(define-func gtk_file_chooser_get_extra_widget 199 GtkWidget 200 ((GtkFileChooser chooser))) 201 202;; GtkFileFilter 203 204(define-object GtkFileFilter (GObject)) 205 206(define-func gtk_file_filter_new 207 GtkFileFilter 208 ()) 209 210(define-func gtk_file_filter_set_name 211 none 212 ((GtkFileFilter filter) 213 ((tvec string in) name))) 214 215(define-func gtk_file_filter_get_name 216 string 217 ((GtkFileFilter filter))) 218 219(define-func gtk_file_filter_add_mime_type 220 none 221 ((GtkFileFilter filter) 222 ((tvec string in) mimetype))) 223 224(define-func gtk_file_filter_add_pattern 225 none 226 ((GtkFileFilter filter) 227 ((tvec string in) pattern))) 228 229(define-func gtk_file_filter_add_pixbuf_formats 230 none 231 ((GtkFileFilter filter))) 232 233;;; XXX Need GtkFileFilterFunc 234;; (define-func gtk_file_filter_add_custom 235;; none 236;; ((GtkFileFilter filter) 237;; (GtkFileFilterFlags flags) 238;; (GtkFileFilterFunc func) 239;; (GPointer data) 240;; (GDestroyNotify notify))) 241 242(define-func gtk_file_filter_get_needed 243 GtkFileFilterFlags 244 ((GtkFileFilter filter))) 245 246;;; XXX Need GtkFileFilterInfo 247;; (define-func gtk_file_filter_filter 248;; bool 249;; ((GtkFileFilter filter) 250;; (GtkFileFilterInfo info))) 251 252;; GtkFileChooser [Filter] 253 254(define-func gtk_file_chooser_add_filter 255 none 256 ((GtkFileChooser chooser) 257 (GtkFileFilter filter))) 258 259(define-func gtk_file_chooser_remove_filter 260 none 261 ((GtkFileChooser chooser) 262 (GtkFileFilter filter))) 263 264;; XXX Need GSList Returntype support 265;; (define-func gtk_file_chooser_list_filters 266;; GSList 267;; ((GtkFileChooser chooser))) 268 269(define-func gtk_file_chooser_set_filter 270 none 271 ((GtkFileChooser chooser) 272 (GtkFileFilter filter))) 273 274(define-func gtk_file_chooser_get_filter 275 GtkFileFilter 276 ((GtkFileChooser chooser))) 277 278;; GtkFileChooser [Shortcuts] 279 280(define-func gtk_file_chooser_add_shortcut_folder 281 bool 282 ((GtkFileChooser chooser) 283 ((tvec string in) folder) 284 (GPointer gerror error))) 285 286(define-func gtk_file_chooser_remove_shortcut_folder 287 bool 288 ((GtkFileChooser chooser) 289 ((tvec string in) folder) 290 (GPointer gerror error))) 291 292;; XXX Need GSList Returntype support 293;; (define-func gtk_file_chooser_list_shortcut_folders 294;; GSList 295;; ((GtkFileChooser chooser))) 296 297(define-func gtk_file_chooser_add_shortcut_folder_uri 298 bool 299 ((GtkFileChooser chooser) 300 ((tvec string in) folder) 301 (GPointer gerror error))) 302 303(define-func gtk_file_chooser_remove_shortcut_folder_uri 304 bool 305 ((GtkFileChooser chooser) 306 ((tvec string in) folder) 307 (GPointer gerror error))) 308 309;; XXX Need GSList Returntype support 310;; (define-func gtk_file_chooser_list_shortcut_folder_uris 311;; GSList 312;; ((GtkFileChooser chooser))) 313 314;; GtkFileChooserWidget 315 316(define-object GtkFileChooserWidget (GtkVBox)) 317 318(define-func gtk_file_chooser_widget_new 319 GtkWidget 320 ((GtkFileChooserAction action))) 321 322(define-func gtk_file_chooser_widget_new_with_backend 323 GtkWidget 324 ((GtkFileChooserAction action) 325 ((tvec string in) backend))) 326