gtk/gtk.tree-view.lisp

   1 (in-package :gtk)
   2
   3 (defcfun (tree-view-columns-autosize "gtk_tree_view_columns_autosize") :void
   4   (tree-view g-object))
   5
   6 (export 'tree-view-columns-autosize)
   7
   8 (defcfun (tree-view-append-column "gtk_tree_view_append_column") :int
   9   (tree-view (g-object gtk:tree-view))
  10   (column (g-object gtk:tree-view-column)))
  11
  12 (export 'tree-view-append-column)
  13
  14 (defcfun (tree-view-remove-column "gtk_tree_view_remove_column") :int
  15   (tree-view (g-object gtk:tree-view))
  16   (column (g-object gtk:tree-view-column)))
  17
  18 (export 'tree-view-remove-column)
  19
  20 (defcfun (tree-view-insert-column "gtk_tree_view_insert_column") :int
  21   (tree-view g-object)
  22   (column g-object)
  23   (position :int))
  24
  25 (export 'tree-view-insert-column)
  26
  27 (defcfun (tree-view-get-column "gtk_tree_view_get_column") g-object
  28   (tree-view g-object)
  29   (position :int))
  30
  31 (export 'tree-view-get-column)
  32
  33 (defcfun (tree-view-columns "gtk_tree_view_columns") (glist g-object)
  34   (tree-view g-object))
  35
  36 (export 'tree-view-columns)
  37
  38 (defcfun (tree-view-move-column-after "gtk_tree_view_move_column_after") :void
  39   (tree-view g-object)
  40   (column g-object)
  41   (base-column g-object))
  42
  43 (export 'tree-view-move-column-after)
  44
  45 (defcallback gtk-tree-view-column-drop-func-callback :boolean
  46     ((tree-view g-object) (column g-object) (prev-column g-object) (next-column g-object) (data :pointer))
  47   (let ((fn (get-stable-pointer-value data)))
  48     (funcall fn tree-view column prev-column next-column)))
  49
  50 (defcfun gtk-tree-view-set-column-drag-function :void
  51   (tree-view g-object)
  52   (func :pointer)
  53   (data :pointer)
  54   (destroy-notify :pointer))
  55
  56 (defun tree-view-set-column-drag-fuction (tree-view function)
  57   (gtk-tree-view-set-column-drag-function tree-view
  58                                           (callback gtk-tree-view-column-drop-func-callback)
  59                                           (allocate-stable-pointer function)
  60                                           (callback stable-pointer-free-destroy-notify-callback)))
  61
  62 (defcfun (tree-view-scroll-to-point "gtk_tree_view_scroll_to_point") :void
  63   (tree-view g-object)
  64   (tree-x :int)
  65   (tree-y :int))
  66
  67 (export 'tree-view-scroll-to-point)
  68
  69 (defcfun gtk-tree-view-scroll-to-cell :void
  70   (tree-view g-object)
  71   (path (g-boxed-ref tree-path))
  72   (column g-object)
  73   (use-align :boolean)
  74   (row-align :float)
  75   (col-align :float))
  76
  77 (defun tree-view-scroll-to-cell (tree-view path column &optional (row-align 0.5 row-align-supplied-p) (col-align 0.5 col-align-supplied-p))
  78   (gtk-tree-view-scroll-to-cell tree-view path column (or row-align-supplied-p col-align-supplied-p) row-align col-align))
  79
  80 (export 'tree-view-scroll-to-cell)
  81
  82 (defcfun gtk-tree-view-set-cursor :void
  83   (tree-view g-object)
  84   (path (g-boxed-ref tree-path))
  85   (focus-column g-object)
  86   (start-editing :boolean))
  87
  88 (defun tree-view-set-cursor (tree-view path &key focus-column start-editing)
  89   (gtk-tree-view-set-cursor tree-view path focus-column start-editing))
  90
  91 (export 'tree-view-set-cursor)
  92
  93 (defcfun gtk-tree-view-set-cursor-on-cell :void
  94   (tree-view g-object)
  95   (path (g-boxed-ref tree-path))
  96   (focus-column g-object)
  97   (focus-cell g-object)
  98   (start-editing :boolean))
  99
 100 (defun tree-view-set-cursor-on-cell (tree-view path &key focus-column focus-cell start-editing)
 101   (gtk-tree-view-set-cursor-on-cell tree-view path focus-column focus-cell start-editing))
 102
 103 (export 'tree-view-set-cursor-on-cell)
 104
 105 (defcfun gtk-tree-view-get-cursor :void
 106   (tree-view g-object)
 107   (path :pointer)
 108   (focus-column :pointer))
 109
 110 (defun tree-view-get-cursor (tree-view)
 111   (with-foreign-objects ((path :pointer) (focus-column :pointer))
 112     (gtk-tree-view-get-cursor tree-view path focus-column)
 113     (values (mem-ref path '(g-boxed-ref tree-path :owner :lisp))
 114             (mem-ref focus-column 'g-object))))
 115
 116 (export 'tree-view-get-cursor)
 117
 118 (defcfun (tree-view-expand-all "gtk_tree_view_expand_all") :void
 119   (tree-view g-object))
 120
 121 (export 'tree-view-expand-all)
 122
 123 (defcfun (tree-view-collapse-all "gtk_tree_view_collapse_all") :void
 124   (tree-view g-object))
 125
 126 (export 'tree-view-collapse-all)
 127
 128 (defcfun (tree-view-expand-to-path "gtk_tree_view_expand_to_path") :void
 129   (tree-view g-object)
 130   (path (g-boxed-ref tree-path)))
 131
 132 (export 'tree-view-expand-to-path)
 133
 134 (defcfun (tree-view-expand-row "gtk_tree_view_expand_row") :boolean
 135   (tree-view g-object)
 136   (path (g-boxed-ref tree-path)))
 137
 138 (export 'tree-view-expand-row)
 139
 140 (defcfun (tree-view-collapse-row "gtk_tree_view_collapse_row") :boolean
 141   (tree-view g-object)
 142   (path (g-boxed-ref tree-path)))
 143
 144 (export 'tree-view-collapse-row)
 145
 146 (defcallback gtk-tree-view-mapping-func-callback :void
 147     ((tree-view g-object) (path (g-boxed-ref tree-path)) (data :pointer))
 148   (funcall (get-stable-pointer-value data)
 149            tree-view path))
 150
 151 (defcfun gtk-tree-view-map-expanded-rows :void
 152   (tree-view g-object)
 153   (func :pointer)
 154   (data :pointer))
 155
 156 (defun tree-view-map-expanded-rows (tree-view function)
 157   (with-stable-pointer (ptr function)
 158     (gtk-tree-view-map-expanded-rows tree-view (callback gtk-tree-view-mapping-func-callback) ptr)))
 159
 160 (export 'tree-view-map-expanded-rows)
 161
 162 (defcfun (tree-view-row-expanded-p "gtk_tree_view_row_expanded") :boolean
 163   (tree-view g-object)
 164   (path (g-boxed-ref tree-path)))
 165
 166 (export 'tree-view-row-expanded-p)
 167
 168 (defcfun gtk-tree-view-get-path-at-pos :boolean
 169   (tree-view g-object)
 170   (x :int)
 171   (y :int)
 172   (path :pointer)
 173   (column :pointer)
 174   (cell-x :pointer)
 175   (cell-y :pointer))
 176
 177 (defun tree-view-get-path-at-pos (tree-view x y)
 178   (with-foreign-objects ((path :pointer) (column :pointer) (cell-x :int) (cell-y :int))
 179     (when (gtk-tree-view-get-path-at-pos tree-view x y path column cell-x cell-y)
 180       (values (mem-ref path '(g-boxed-ref tree-path :owner :lisp))
 181               (mem-ref column 'g-object)
 182               (mem-ref cell-x :int)
 183               (mem-ref cell-y :int)))))
 184
 185 (export 'tree-view-get-path-at-pos)
 186
 187 (defcfun gtk-tree-view-get-cell-area :void
 188   (tree-view g-object)
 189   (path (g-boxed-ref tree-path))
 190   (column g-object)
 191   (rectangle (g-boxed-ptr rectangle)))
 192
 193 (defun tree-view-get-cell-area (tree-view path column)
 194   (aprog1 (make-rectangle :x 0 :y 0 :width 0 :height 0)
 195     (gtk-tree-view-get-cell-area tree-view path column it)))
 196
 197 (export 'tree-view-get-cell-area)
 198
 199 (defcfun gtk-tree-view-get-background-area :void
 200   (tree-view g-object)
 201   (path (g-boxed-ref tree-path))
 202   (column g-object)
 203   (rectangle (g-boxed-ptr rectangle)))
 204
 205 (defun tree-view-get-background-area (tree-view path column)
 206   (aprog1 (make-rectangle :x 0 :y 0 :width 0 :height 0)
 207     (gtk-tree-view-get-background-area tree-view path column it)))
 208
 209 (export 'tree-view-get-background-area)
 210
 211 (defcfun gtk-tree-view-get-visible-rect :void
 212   (tree-view g-object)
 213   (rectangle (g-boxed-ptr rectangle)))
 214
 215 (defun tree-view-get-visible-rect (tree-view)
 216   (aprog1 (make-rectangle :x 0 :y 0 :width 0 :height 0)
 217     (gtk-tree-view-get-visible-rect tree-view it)))
 218
 219 (export 'tree-view-get-visible-rect)
 220
 221 (defcfun gtk-tree-view-get-visible-range :boolean
 222   (tree-view g-object)
 223   (start-path :pointer)
 224   (end-path :pointer))
 225
 226 (defun tree-view-get-visible-range (tree-view)
 227   (with-foreign-objects ((start-path :pointer) (end-path :pointer))
 228     (when (gtk-tree-view-get-visible-range tree-view start-path end-path)
 229       (values (mem-ref start-path '(g-boxed-ref tree-path :owner :lisp))
 230               (mem-ref end-path '(g-boxed-ref tree-path :owner :lisp))))))
 231
 232 (export 'tree-view-get-visible-range)
 233
 234 (defcfun gtk-tree-view-convert-bin-window-to-tree-coords :void
 235   (tree-view g-object)
 236   (x :int)
 237   (y :int)
 238   (rx :pointer)
 239   (ry :pointer))
 240
 241 (defun tree-view-convert-bin-window-to-tree-coords (tree-view x y)
 242   (with-foreign-objects ((rx :int) (ry :int))
 243     (gtk-tree-view-convert-bin-window-to-tree-coords tree-view x y rx ry)
 244     (values (mem-ref rx :int)
 245             (mem-ref ry :int))))
 246
 247 (export 'tree-view-convert-bin-window-to-tree-coords)
 248
 249 (defcfun gtk-tree-view-convert-bin-window-to-widget-coords :void
 250   (tree-view g-object)
 251   (x :int)
 252   (y :int)
 253   (rx :pointer)
 254   (ry :pointer))
 255
 256 (defun tree-view-convert-bin-window-to-widget-coords (tree-view x y)
 257   (with-foreign-objects ((rx :int) (ry :int))
 258     (gtk-tree-view-convert-bin-window-to-widget-coords tree-view x y rx ry)
 259     (values (mem-ref rx :int)
 260             (mem-ref ry :int))))
 261
 262 (export 'tree-view-convert-bin-window-to-widget-coords)
 263
 264 (defcfun gtk-tree-view-convert-tree-to-bin-window-coords :void
 265   (tree-view g-object)
 266   (x :int)
 267   (y :int)
 268   (rx :pointer)
 269   (ry :pointer))
 270
 271 (defun tree-view-convert-tree-to-bin-window-coords (tree-view x y)
 272   (with-foreign-objects ((rx :int) (ry :int))
 273     (gtk-tree-view-convert-tree-to-bin-window-coords tree-view x y rx ry)
 274     (values (mem-ref rx :int)
 275             (mem-ref ry :int))))
 276
 277 (export 'tree-view-convert-tree-to-bin-window-coords)
 278
 279 (defcfun gtk-tree-view-convert-tree-to-widget-coords :void
 280   (tree-view g-object)
 281   (x :int)
 282   (y :int)
 283   (rx :pointer)
 284   (ry :pointer))
 285
 286 (defun tree-view-convert-tree-to-widget-coords (tree-view x y)
 287   (with-foreign-objects ((rx :int) (ry :int))
 288     (gtk-tree-view-convert-tree-to-widget-coords tree-view x y rx ry)
 289     (values (mem-ref rx :int)
 290             (mem-ref ry :int))))
 291
 292 (export 'tree-view-convert-tree-to-widget-coords)
 293
 294 (defcfun gtk-tree-view-convert-widget-to-bin-window-coords :void
 295   (tree-view g-object)
 296   (x :int)
 297   (y :int)
 298   (rx :pointer)
 299   (ry :pointer))
 300
 301 (defun tree-view-convert-widget-to-bin-window-coords (tree-view x y)
 302   (with-foreign-objects ((rx :int) (ry :int))
 303     (gtk-tree-view-convert-widget-to-bin-window-coords tree-view x y rx ry)
 304     (values (mem-ref rx :int)
 305             (mem-ref ry :int))))
 306
 307 (export 'tree-view-convert-widget-to-bin-window-coords)
 308
 309 (defcfun gtk-tree-view-convert-widget-to-tree-coords :void
 310   (tree-view g-object)
 311   (x :int)
 312   (y :int)
 313   (rx :pointer)
 314   (ry :pointer))
 315
 316 (defun tree-view-convert-widget-to-tree-coords (tree-view x y)
 317   (with-foreign-objects ((rx :int) (ry :int))
 318     (gtk-tree-view-convert-widget-to-tree-coords tree-view x y rx ry)
 319     (values (mem-ref rx :int)
 320             (mem-ref ry :int))))
 321
 322 (export 'tree-view-convert-widget-to-tree-coords)
 323
 324 ; TODO: gtk_tree_view_enable_model_drag_dest
 325
 326 ; TODO: gtk_tree_view_enable_model_drag_source
 327
 328 ; TODO: gtk_tree_view_unset_rows_drag_source
 329
 330 ; TODO: gtk_tree_view_unset_rows_drag_dest
 331
 332 ; TOOD: gtk_tree_view_set_drag_dest_row
 333
 334 ; TOOD: gtk_tree_view_get_drag_dest_row
 335
 336 ; TOOD: gtk_tree_view_get_dest_row_at_pos
 337
 338 ; TOOD: gtk_tree_view_create_drag_icon
 339
 340 (defcallback gtk-tree-view-search-equal-func-callback :boolean
 341     ((model g-object) (column :int) (key (:string :free-from-foreign nil)) (iter (g-boxed-ref tree-iter)) (data :pointer))
 342   (restart-case
 343       (funcall (get-stable-pointer-value data)
 344                model column key iter)
 345     (return-true () t)
 346     (return-false () t)))
 347
 348 (defcfun gtk-tree-view-set-search-equal-func :void
 349   (tree-view g-object)
 350   (func :pointer)
 351   (data :pointer)
 352   (destroy-notify :pointer))
 353
 354 (defun tree-view-set-search-equal-func (tree-view func)
 355   (gtk-tree-view-set-search-equal-func tree-view
 356                                        (callback gtk-tree-view-search-equal-func-callback)
 357                                        (allocate-stable-pointer func)
 358                                        (callback stable-pointer-free-destroy-notify-callback)))
 359
 360 (defcallback gtk-tree-view-search-position-func :void
 361     ((tree-view g-object) (search-dialog g-object) (data :pointer))
 362   (restart-case
 363       (funcall (get-stable-pointer-value data)
 364                tree-view
 365                search-dialog)
 366     (return () nil)))
 367
 368 (defcfun gtk-tree-view-set-search-position-func :void
 369   (tree-view g-object)
 370   (func :pointer)
 371   (data :pointer)
 372   (destroy-notify :pointer))
 373
 374 (defun tree-view-set-search-position-func (tree-view func)
 375   (if func
 376       (gtk-tree-view-set-search-position-func tree-view
 377                                               (callback gtk-tree-view-set-search-position-func)
 378                                               (allocate-stable-pointer func)
 379                                               (callback stable-pointer-free-destroy-notify-callback))
 380       (gtk-tree-view-set-search-position-func tree-view
 381                                               (null-pointer)
 382                                               (null-pointer)
 383                                               (null-pointer))))
 384
 385 ; TODO: gtk_tree_view_set_destroy_count_func
 386
 387 (defcallback gtk-tree-view-row-separator-func-callback :boolean
 388     ((tree-model g-object) (iter (g-boxed-ref tree-iter)) (data :pointer))
 389   (restart-case
 390       (funcall (get-stable-pointer-value data)
 391                tree-model
 392                iter)
 393     (return-true () t)
 394     (return-false () nil)))
 395
 396 (defcfun gtk-tree-view-set-row-separator-func :void
 397   (tree-view g-object)
 398   (func :pointer)
 399   (data :pointer)
 400   (destroy-notify :pointer))
 401
 402 (defun tree-view-set-row-separartor-func (tree-view func)
 403   (if func
 404       (gtk-tree-view-set-row-separator-func tree-view
 405                                             (callback gtk-tree-view-row-separator-func-callback)
 406                                             (allocate-stable-pointer func)
 407                                             (callback stable-pointer-free-destroy-notify-callback))
 408       (gtk-tree-view-set-row-separator-func tree-view (null-pointer) (null-pointer) (null-pointer))))
 409
 410 (defcfun (tree-view-rubber-banding-active "gtk_tree_view_get_rubber_banding_active") :boolean
 411   (tree-view g-object))
 412
 413 (export 'tree-view-rubber-banding-active)
 414
 415 (defcfun (tree-view-set-tooltip-row "gtk_tree_view_set_tooltip_row") :void
 416   (tree-view g-object)
 417   (tooltip g-object)
 418   (tree-path (g-boxed-ref tree-path)))
 419
 420 (export 'tree-view-set-tooltip-row)
 421
 422 (defcfun (tree-view-set-tooltip-cell "gtk_tree_view_set_tooltip_cell") :void
 423   (tree-view g-object)
 424   (tooltip g-object)
 425   (path (g-boxed-ref tree-path))
 426   (column g-object)
 427   (cell g-object))
 428
 429 (export 'tree-view-set-tooltip-cell)
 430
 431 (defcfun gtk-tree-view-get-tooltip-context :boolean
 432   (tree-view g-object)
 433   (x :int)
 434   (y :int)
 435   (keyboard-tip :boolean)
 436   (model :pointer)
 437   (path :pointer)
 438   (iter :pointer))
 439
 440 (defun tree-view-get-tooltip-context (tree-view)
 441   (with-foreign-objects ((x :int) (y :int) (keyboard-tip :boolean) (model :pointer) (path :pointer) (iter :pointer))
 442     (when (gtk-tree-view-get-tooltip-context tree-view x y keyboard-tip model path iter)
 443       (values (mem-ref x :int)
 444               (mem-ref y :int)
 445               (mem-ref keyboard-tip :boolean)
 446               (mem-ref model 'g-object)
 447               (mem-ref path '(g-boxed-ref tree-path :owner :lisp))
 448               (mem-ref iter '(g-boxed-ref tree-iter :owner :lisp))))))
 449
 450 (export 'tree-view-get-tooltip-context)
 451
 452 ; TODO: GtkTreeView drag-and-drop