gtk/gtk.selectors.lisp

   1 (in-package :gtk)
   2
   3 (defcfun (color-selection-adjusting-p "gtk_color_selection_is_adjusting") :boolean
   4   (color-selection g-object))
   5
   6 (export 'color-selection-adjusting-p)
   7
   8 ; TODO: gtk_color_selection_palette_from_string
   9
  10 ; TODO: gtk_color_selection_palette_to_string
  11
  12 ; TODO: gtk_color_selection_set_change_palette_with_screen_hook
  13
  14 (defcfun (file-chooser-select-filename "gtk_file_chooser_select_filename") :boolean
  15   (file-chooser g-object)
  16   (filename :string))
  17
  18 (export 'file-chooser-select-filename)
  19
  20 (defcfun (file-chooser-unselect-filename "gtk_file_chooser_unselect_filename") :void
  21   (file-chooser g-object)
  22   (filename :string))
  23
  24 (export 'file-chooser-unselect-filename)
  25
  26 (defcfun (file-chooser-select-all "gtk_file_chooser_select_all") :void
  27   (file-chooser g-object))
  28
  29 (export 'file-chooser-select-all)
  30
  31 (defcfun (file-chooser-unselect-all "gtk_file_chooser_unselect_all") :void
  32   (file-chooser g-object))
  33
  34 (export 'file-chooser-unselect-all)
  35
  36 (defcfun (file-chooser-filenames "gtk_file_chooser_get_filenames") (gslist (g-string :free-from-foreign t))
  37   (file-chooser g-object))
  38
  39 (export 'file-chooser-filenames)
  40
  41 (defcfun (file-chooser-select-uri "gtk_file_chooser_select_uri") :boolean
  42   (file-chooser g-object)
  43   (uri :string))
  44
  45 (export 'file-chooser-select-uri)
  46
  47 (defcfun (file-chooser-unselect-uri "gtk_file_chooser_unselect_uri") :void
  48   (file-chooser g-object)
  49   (uri :string))
  50
  51 (export 'file-chooser-unselect-uri)
  52
  53 (defcfun (file-chooser-uris "gtk_file_chooser_get_uris") (gslist (g-string :free-from-foreign t))
  54   (file-chooser g-object))
  55
  56 (export 'file-chooser-uris)
  57
  58 ; TODO: gtk_file_chooser_add_filter
  59 ; --- ownership issues
  60
  61 ; TODO: gtk_file_chooser_remove_filter
  62
  63 ; TODO: gtk_file_chooser_list_filters
  64
  65 (defcfun gtk-file-chooser-add-shortcut-folder :boolean
  66   (file-chooser g-object)
  67   (folder :string)
  68   (error :pointer))
  69
  70 (defun file-chooser-add-shortcut-folder (file-chooser folder)
  71   (gtk-file-chooser-add-shortcut-folder file-chooser folder (null-pointer)))
  72
  73 (export 'file-chooser-add-shortcut-folder)
  74
  75 (defcfun gtk-file-chooser-remove-shortcut-folder :boolean
  76   (file-chooser g-object)
  77   (folder :string)
  78   (error :pointer))
  79
  80 (defun file-chooser-remove-shortcut-folder (file-chooser folder)
  81   (gtk-file-chooser-remove-shortcut-folder file-chooser folder (null-pointer)))
  82
  83 (export 'file-chooser-remove-shortcut-folder)
  84
  85 (defcfun (file-chooser-shortcut-folders "gtk_file_chooser_list_shortcut_folders") (gslist (g-string :free-from-foreign t))
  86   (file-chooser g-object))
  87
  88 (export 'file-chooser-shortcut-folders)
  89
  90 (defcfun gtk-file-chooser-add-shortcut-folder-uri :boolean
  91   (file-chooser g-object)
  92   (folder-uri :string)
  93   (error :pointer))
  94
  95 (defun file-chooser-add-shortcut-folder-uri (file-chooser folder-uri)
  96   (gtk-file-chooser-add-shortcut-folder-uri file-chooser folder-uri (null-pointer)))
  97
  98 (export 'file-chooser-add-shortcut-folder-uri)
  99
 100 (defcfun gtk-file-chooser-remove-shortcut-folder-uri :boolean
 101   (file-chooser g-object)
 102   (folder-uri :string)
 103   (error :pointer))
 104
 105 (defun file-chooser-remove-shortcut-folder-uri (file-chooser folder-uri)
 106   (gtk-file-chooser-remove-shortcut-folder-uri file-chooser folder-uri (null-pointer)))
 107
 108 (export 'file-chooser-remove-shortcut-folder-uri)
 109
 110 (defcfun (file-chooser-shortcut-folder-uris "gtk_file_chooser_list_shortcut_folder_uris") (gslist (g-string :free-from-foreign t))
 111   (file-chooser g-object))
 112
 113 (export 'file-chooser-shortcut-folder-uris)
 114
 115 ; TODO: gtk_file_chooser_get_current_folder_file
 116
 117 ; TODO: gtk_file_chooser_get_file
 118
 119 ; TODO: gtk_file_chooser_get_files
 120
 121 ; TODO: gtk_file_chooser_get_preview_file
 122
 123 ; TODO: gtk_file_chooser_select_file
 124
 125 ; TODO: gtk_file_chooser_set_current_folder_file
 126
 127 ; TODO: gtk_file_chooser_set_file
 128
 129 ; TODO: gtk_file_chooser_unselect_file
 130
 131 (defcfun (file-filter-add-pattern "gtk_file_filter_add_pattern") :void
 132   (file-filter g-object)
 133   (pattern :string))
 134
 135 (export 'file-filter-add-pattern)
 136
 137 (defcfun (file-filter-add-pixbuf-formats "gtk_file_filter_add_pixbuf_formats") :void
 138   (file-filter g-object))
 139
 140 (export 'file-filter-add-pixbuf-formats)
 141
 142 ; TODO: gtk_file_filter_add_custom
 143
 144 ; TODO: gtk_file_filter_get_needed
 145
 146 ; TODO: gtk_file_filter_filter
 147
 148 (defcfun (font-selection-face "gtk_font_selection_get_face") g-object
 149   (font-selection g-object))
 150
 151 (export 'font-selection-face)
 152
 153 (defcfun (font-selection-face-list "gtk_font_selection_get_face_list") g-object
 154   (font-selection g-object))
 155
 156 (export 'font-selection-face-list)
 157
 158 (defcfun (font-selection-family "gtk_font_selection_get_family") g-object
 159   (font-selection g-object))
 160
 161 (export 'font-selection-family)
 162
 163 (defcfun (font-selection-size "gtk_font_selection_get_size") :int
 164   (font-selection g-object))
 165
 166 (export 'font-selection-size)
 167
 168 (defcfun (font-selection-family-list "gtk_font_selection_get_family_list") g-object
 169   (font-selection g-object))
 170
 171 (export 'font-selection-family-list)
 172
 173 (defcfun (font-selection-preview-entry "gtk_font_selection_get_preview_entry") g-object
 174   (font-selection g-object))
 175
 176 (export 'font-selection-preview-entry)
 177
 178 (defcfun (font-selection-size-entry "gtk_font_selection_get_size_entry") g-object
 179   (font-selection g-object))
 180
 181 (export 'font-selection-size-entry)
 182
 183 (defcfun (font-selection-size-list "gtk_font_selection_get_size_list") g-object
 184   (font-selection g-object))
 185
 186 (export 'font-selection-size-list)