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 "gtk_file_chooser_select_filename") :boolean
  47   (file-chooser g-object)
  48   (filename :string))
  49
  50 (export 'file-chooser-select-filename)
  51
  52 (defcfun (file-chooser-unselect-filename "gtk_file_chooser_unselect_filename") :void
  53   (file-chooser g-object)
  54   (filename :string))
  55
  56 (export 'file-chooser-unselect-filename)
  57
  58 (defcfun (file-chooser-select-all "gtk_file_chooser_select_all") :void
  59   (file-chooser g-object))
  60
  61 (export 'file-chooser-select-all)
  62
  63 (defcfun (file-chooser-unselect-all "gtk_file_chooser_unselect_all") :void
  64   (file-chooser g-object))
  65
  66 (export 'file-chooser-unselect-all)
  67
  68 (defcfun (file-chooser-filenames "gtk_file_chooser_get_filenames") (gslist (g-string :free-from-foreign t))
  69   (file-chooser g-object))
  70
  71 (export 'file-chooser-filenames)
  72
  73 (defcfun (file-chooser-select-uri "gtk_file_chooser_select_uri") :boolean
  74   (file-chooser g-object)
  75   (uri :string))
  76
  77 (export 'file-chooser-select-uri)
  78
  79 (defcfun (file-chooser-unselect-uri "gtk_file_chooser_unselect_uri") :void
  80   (file-chooser g-object)
  81   (uri :string))
  82
  83 (export 'file-chooser-unselect-uri)
  84
  85 (defcfun (file-chooser-uris "gtk_file_chooser_get_uris") (gslist (g-string :free-from-foreign t))
  86   (file-chooser g-object))
  87
  88 (export 'file-chooser-uris)
  89
  90 ; TODO: gtk_file_chooser_add_filter
  91 ; --- ownership issues
  92
  93 ; TODO: gtk_file_chooser_remove_filter
  94
  95 ; TODO: gtk_file_chooser_list_filters
  96
  97 (defcfun gtk-file-chooser-add-shortcut-folder :boolean
  98   (file-chooser g-object)
  99   (folder :string)
 100   (error :pointer))
 101
 102 (defun file-chooser-add-shortcut-folder (file-chooser folder)
 103   (gtk-file-chooser-add-shortcut-folder file-chooser folder (null-pointer)))
 104
 105 (export 'file-chooser-add-shortcut-folder)
 106
 107 (defcfun gtk-file-chooser-remove-shortcut-folder :boolean
 108   (file-chooser g-object)
 109   (folder :string)
 110   (error :pointer))
 111
 112 (defun file-chooser-remove-shortcut-folder (file-chooser folder)
 113   (gtk-file-chooser-remove-shortcut-folder file-chooser folder (null-pointer)))
 114
 115 (export 'file-chooser-remove-shortcut-folder)
 116
 117 (defcfun (file-chooser-shortcut-folders "gtk_file_chooser_list_shortcut_folders") (gslist (g-string :free-from-foreign t))
 118   (file-chooser g-object))
 119
 120 (export 'file-chooser-shortcut-folders)
 121
 122 (defcfun gtk-file-chooser-add-shortcut-folder-uri :boolean
 123   (file-chooser g-object)
 124   (folder-uri :string)
 125   (error :pointer))
 126
 127 (defun file-chooser-add-shortcut-folder-uri (file-chooser folder-uri)
 128   (gtk-file-chooser-add-shortcut-folder-uri file-chooser folder-uri (null-pointer)))
 129
 130 (export 'file-chooser-add-shortcut-folder-uri)
 131
 132 (defcfun gtk-file-chooser-remove-shortcut-folder-uri :boolean
 133   (file-chooser g-object)
 134   (folder-uri :string)
 135   (error :pointer))
 136
 137 (defun file-chooser-remove-shortcut-folder-uri (file-chooser folder-uri)
 138   (gtk-file-chooser-remove-shortcut-folder-uri file-chooser folder-uri (null-pointer)))
 139
 140 (export 'file-chooser-remove-shortcut-folder-uri)
 141
 142 (defcfun (file-chooser-shortcut-folder-uris "gtk_file_chooser_list_shortcut_folder_uris") (gslist (g-string :free-from-foreign t))
 143   (file-chooser g-object))
 144
 145 (export 'file-chooser-shortcut-folder-uris)
 146
 147 ; TODO: gtk_file_chooser_get_current_folder_file
 148
 149 ; TODO: gtk_file_chooser_get_file
 150
 151 ; TODO: gtk_file_chooser_get_files
 152
 153 ; TODO: gtk_file_chooser_get_preview_file
 154
 155 ; TODO: gtk_file_chooser_select_file
 156
 157 ; TODO: gtk_file_chooser_set_current_folder_file
 158
 159 ; TODO: gtk_file_chooser_set_file
 160
 161 ; TODO: gtk_file_chooser_unselect_file
 162
 163 (defcfun (file-filter-add-pattern "gtk_file_filter_add_pattern") :void
 164   (file-filter g-object)
 165   (pattern :string))
 166
 167 (export 'file-filter-add-pattern)
 168
 169 (defcfun (file-filter-add-pixbuf-formats "gtk_file_filter_add_pixbuf_formats") :void
 170   (file-filter g-object))
 171
 172 (export 'file-filter-add-pixbuf-formats)
 173
 174 ; TODO: gtk_file_filter_add_custom
 175
 176 ; TODO: gtk_file_filter_get_needed
 177
 178 ; TODO: gtk_file_filter_filter
 179
 180 (defcfun (font-selection-face "gtk_font_selection_get_face") g-object
 181   (font-selection g-object))
 182
 183 (export 'font-selection-face)
 184
 185 (defcfun (font-selection-face-list "gtk_font_selection_get_face_list") g-object
 186   (font-selection g-object))
 187
 188 (export 'font-selection-face-list)
 189
 190 (defcfun (font-selection-family "gtk_font_selection_get_family") g-object
 191   (font-selection g-object))
 192
 193 (export 'font-selection-family)
 194
 195 (defcfun (font-selection-size "gtk_font_selection_get_size") :int
 196   (font-selection g-object))
 197
 198 (export 'font-selection-size)
 199
 200 (defcfun (font-selection-family-list "gtk_font_selection_get_family_list") g-object
 201   (font-selection g-object))
 202
 203 (export 'font-selection-family-list)
 204
 205 (defcfun (font-selection-preview-entry "gtk_font_selection_get_preview_entry") g-object
 206   (font-selection g-object))
 207
 208 (export 'font-selection-preview-entry)
 209
 210 (defcfun (font-selection-size-entry "gtk_font_selection_get_size_entry") g-object
 211   (font-selection g-object))
 212
 213 (export 'font-selection-size-entry)
 214
 215 (defcfun (font-selection-size-list "gtk_font_selection_get_size_list") g-object
 216   (font-selection g-object))
 217
 218 (export 'font-selection-size-list)