gtk/gtk.selectors.lisp

   1 (in-package :gtk)
   2
   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)))
   6
   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)
  10     color))
  11
  12 (defcfun gtk-color-selection-set-previous-color :void
  13   (color-selection (g-object color-selection))
  14   (color (g-boxed-foreign color)))
  15
  16 (defcfun (color-selection-adjusting-p "gtk_color_selection_is_adjusting") :boolean
  17   (color-selection g-object))
  18
  19 (export 'color-selection-adjusting-p)
  20
  21 (defcfun gtk-color-selection-palette-from-string :boolean
  22   (str :string)
  23   (colors :pointer)
  24   (n-colors :pointer))
  25
  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))
  31             (for color-ptr =
  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)))
  35             (collect color)
  36             (finally (g-free colors-ar))))))
  37
  38 (defcfun gtk-color-selection-palette-to-string (g-string :free-from-foreign t)
  39   (colors :pointer)
  40   (n-colors :int))
  41
  42 ; TODO: gtk_color_selection_palette_to_string
  43
  44 ; TODO: gtk_color_selection_set_change_palette_with_screen_hook
  45
  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)
  49   (filename :string))
  50
  51 (export 'file-chooser-select-filename)
  52
  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)
  56   (filename :string))
  57
  58 (export 'file-chooser-unselect-filename)
  59
  60 (defcfun (file-chooser-select-all "gtk_file_chooser_select_all") :void
  61   (file-chooser g-object))
  62
  63 (export 'file-chooser-select-all)
  64
  65 (defcfun (file-chooser-unselect-all "gtk_file_chooser_unselect_all") :void
  66   (file-chooser g-object))
  67
  68 (export 'file-chooser-unselect-all)
  69
  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))
  73
  74 (export 'file-chooser-filenames)
  75
  76 (defcfun (file-chooser-select-uri "gtk_file_chooser_select_uri") :boolean
  77   (file-chooser g-object)
  78   (uri :string))
  79
  80 (export 'file-chooser-select-uri)
  81
  82 (defcfun (file-chooser-unselect-uri "gtk_file_chooser_unselect_uri") :void
  83   (file-chooser g-object)
  84   (uri :string))
  85
  86 (export 'file-chooser-unselect-uri)
  87
  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))
  90
  91 (export 'file-chooser-uris)
  92
  93 (defcfun (file-chooser-add-filter "gtk_file_chooser_add_filter") :void
  94   (chooser (g-object file-chooser))
  95   (filter (g-object file-filter)))
  96
  97 (export 'file-chooser-add-filter)
  98
  99 (defcfun (file-chooser-remove-filter "gtk_file_chooser_remove_filter") :void
 100   (chooser (g-object file-chooser))
 101   (filter (g-object file-filter)))
 102
 103 (export 'file-chooser-remove-filter)
 104
 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)))
 107
 108 (export 'file-chooser-filters)
 109
 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)
 113   (folder :string)
 114   (error :pointer))
 115
 116 (defun file-chooser-add-shortcut-folder (file-chooser folder)
 117   (gtk-file-chooser-add-shortcut-folder file-chooser folder (null-pointer)))
 118
 119 (export 'file-chooser-add-shortcut-folder)
 120
 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)
 124   (folder :string)
 125   (error :pointer))
 126
 127 (defun file-chooser-remove-shortcut-folder (file-chooser folder)
 128   (gtk-file-chooser-remove-shortcut-folder file-chooser folder (null-pointer)))
 129
 130 (export 'file-chooser-remove-shortcut-folder)
 131
 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))
 135
 136 (export 'file-chooser-shortcut-folders)
 137
 138 (defcfun gtk-file-chooser-add-shortcut-folder-uri :boolean
 139   (file-chooser g-object)
 140   (folder-uri :string)
 141   (error :pointer))
 142
 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)))
 145
 146 (export 'file-chooser-add-shortcut-folder-uri)
 147
 148 (defcfun gtk-file-chooser-remove-shortcut-folder-uri :boolean
 149   (file-chooser g-object)
 150   (folder-uri :string)
 151   (error :pointer))
 152
 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)))
 155
 156 (export 'file-chooser-remove-shortcut-folder-uri)
 157
 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))
 160
 161 (export 'file-chooser-shortcut-folder-uris)
 162
 163 (defcfun (file-chooser-get-current-folder-file "gtk_file_chooser_get_current_folder_file") g-object
 164   (chooser (g-object file-chooser)))
 165
 166 (defcfun gtk-file-chooser-set-current-folder-file :boolean
 167   (file-chooser (g-object file-chooser))
 168   (file g-object)
 169   (error :pointer))
 170
 171 (defun file-chooser-set-current-folder-file (file-chooser file)
 172   (gtk-file-chooser-set-current-folder-file file-chooser file (null-pointer)))
 173
 174 (export '(file-chooser-get-current-folder-file file-chooser-set-current-folder-file))
 175
 176 (defcfun (file-chooser-get-file "gtk_file_chooser_get_file") g-object
 177   (file-chooser (g-object file-chooser)))
 178
 179 (defcfun gtk-file-chooser-set-file g-object
 180   (file-chooser (g-object file-chooser))
 181   (file g-object)
 182   (error :pointer))
 183
 184 (defun file-chooser-set-file (file-chooser file)
 185   (gtk-file-chooser-set-file file-chooser file (null-pointer)))
 186
 187 (export '(file-chooser-get-file file-chooser-set-file))
 188
 189 (defcfun (file-chooser-unselect-file "gtk_file_chooser_unselect_file") :void
 190   (file-chooser (g-object file-chooser))
 191   (file g-object))
 192
 193 (export 'file-chooser-unselect-file)
 194
 195 (defcfun (file-filter-add-pattern "gtk_file_filter_add_pattern") :void
 196   (file-filter g-object)
 197   (pattern :string))
 198
 199 (export 'file-filter-add-pattern)
 200
 201 (defcfun (file-filter-add-pixbuf-formats "gtk_file_filter_add_pixbuf_formats") :void
 202   (file-filter g-object))
 203
 204 (export 'file-filter-add-pixbuf-formats)
 205
 206 ; TODO: gtk_file_filter_add_custom
 207
 208 ; TODO: gtk_file_filter_get_needed
 209
 210 ; TODO: gtk_file_filter_filter
 211
 212 (defcfun (font-selection-face "gtk_font_selection_get_face") g-object
 213   (font-selection g-object))
 214
 215 (export 'font-selection-face)
 216
 217 (defcfun (font-selection-face-list "gtk_font_selection_get_face_list") g-object
 218   (font-selection g-object))
 219
 220 (export 'font-selection-face-list)
 221
 222 (defcfun (font-selection-family "gtk_font_selection_get_family") g-object
 223   (font-selection g-object))
 224
 225 (export 'font-selection-family)
 226
 227 (defcfun (font-selection-size "gtk_font_selection_get_size") :int
 228   (font-selection g-object))
 229
 230 (export 'font-selection-size)
 231
 232 (defcfun (font-selection-family-list "gtk_font_selection_get_family_list") g-object
 233   (font-selection g-object))
 234
 235 (export 'font-selection-family-list)
 236
 237 (defcfun (font-selection-preview-entry "gtk_font_selection_get_preview_entry") g-object
 238   (font-selection g-object))
 239
 240 (export 'font-selection-preview-entry)
 241
 242 (defcfun (font-selection-size-entry "gtk_font_selection_get_size_entry") g-object
 243   (font-selection g-object))
 244
 245 (export 'font-selection-size-entry)
 246
 247 (defcfun (font-selection-size-list "gtk_font_selection_get_size_list") g-object
 248   (font-selection g-object))
 249
 250 (export 'font-selection-size-list)