gtk/gtk.tree-view-column.lisp

   1 (in-package :gtk)
   2
   3 (defcfun gtk-tree-view-column-pack-start :void
   4   (tree-column (g-object tree-view-column))
   5   (cell (g-object cell-renderer))
   6   (expand :boolean))
   7
   8 (defun tree-view-column-pack-start (tree-column cell &key (expand t))
   9   (gtk-tree-view-column-pack-start tree-column cell expand))
  10
  11 (export 'tree-view-column-pack-start)
  12
  13 (defcfun gtk-tree-view-column-pack-end :void
  14   (tree-column (g-object tree-view-column))
  15   (cell (g-object cell-renderer))
  16   (expand :boolean))
  17
  18 (defun tree-view-column-pack-end (tree-column cell &key (expand t))
  19   (gtk-tree-view-column-pack-end tree-column cell expand))
  20
  21 (export 'tree-view-column-pack-end)
  22
  23 (defcfun (tree-view-column-clear "gtk_tree_view_column_clear") :void
  24   (tree-column (g-object tree-view-column)))
  25
  26 (export 'tree-view-column-clear)
  27
  28 (defcfun (tree-view-column-add-attribute "gtk_tree_view_column_add_attribute") :void
  29   (tree-column (g-object tree-view-column))
  30   (cell-renderer (g-object cell-renderer))
  31   (attribute :string)
  32   (column :int))
  33
  34 (export 'tree-view-column-add-attribute)
  35
  36 (defcallback gtk-tree-cell-data-func-cb :void
  37     ((tree-column (g-object tree-column))
  38      (cell (g-object cell-renderer))
  39      (tree-model (g-object tree-model))
  40      (iter (g-boxed-foreign tree-iter))
  41      (data :pointer))
  42   (let ((fn (get-stable-pointer-value data)))
  43     (restart-case
  44         (funcall fn tree-column cell tree-model iter)
  45       (return-from-tree-cell-data-function () nil))))
  46
  47 (defcallback gtk-tree-cell-data-func-destroy-cb :void ((data :pointer))
  48   (free-stable-pointer data))
  49
  50 (defcfun gtk-tree-view-column-set-cell-data-func :void
  51   (tree-column (g-object tree-view-column))
  52   (cell-renderer (g-object cell-renderer))
  53   (func :pointer)
  54   (func-data :pointer)
  55   (destroy-notify :pointer))
  56
  57 (defun tree-view-column-set-cell-data-function (tree-column cell-renderer function)
  58   (gtk-tree-view-column-set-cell-data-func
  59    tree-column
  60    cell-renderer
  61    (callback gtk-tree-cell-data-func-cb)
  62    (allocate-stable-pointer function)
  63    (callback gtk-tree-cell-data-func-destroy-cb)))
  64
  65 (export 'tree-view-column-set-cell-data-function)
  66
  67 (defcfun (tree-view-column-clear-attributes "gtk_tree_view_column_clear_attributes") :void
  68   (tree-column (g-object tree-column))
  69   (cell-renderer (g-object cell-renderer)))
  70
  71 (export 'tree-view-column-clear-attributes)
  72
  73 (defcfun (tree-view-column-cell-set-cell-data "gtk_tree_view_column_cell_set_cell_data") :void
  74   (tree-column (g-object tree-view-column))
  75   (tree-model (g-object tree-model))
  76   (iter (g-boxed-foreign tree-iter))
  77   (is-expander :boolean)
  78   (is-expanded :boolean))
  79
  80 (export 'tree-view-column-cell-set-data)
  81
  82 (defcfun gtk-tree-view-column-cell-get-size :void
  83   (tree-column (g-object tree-view-column))
  84   (cell-area (g-boxed-foreign rectangle))
  85   (x-offset (:pointer :int))
  86   (y-offset (:pointer :int))
  87   (width (:pointer :int))
  88   (height (:pointer :int)))
  89
  90 (defun tree-view-column-cell-size (tree-column cell-area)
  91   (with-foreign-objects ((x :int) (y :int) (width :int) (height :int))
  92     (gtk-tree-view-column-cell-get-size tree-column cell-area x y width height)
  93     (values (mem-ref x :int) (mem-ref y :int) (mem-ref width :int) (mem-ref height :int))))
  94
  95 (export 'tree-view-column-cell-size)
  96
  97 (defcfun gtk-tree-view-column-cell-get-position :boolean
  98   (tree-column (g-object tree-view-column))
  99   (cell-renderer (g-object cell-renderer))
 100   (start-pos (:pointer :int))
 101   (width (:pointer :int)))
 102
 103 (defun tree-view-column-cell-position (tree-column cell-renderer)
 104   (with-foreign-objects ((start :int) (width :int))
 105     (when (gtk-tree-view-column-cell-get-position tree-column cell-renderer start width)
 106       (list (mem-ref start :int) (mem-ref width :int)))))
 107
 108
 109 (defcfun (tree-view-column-focus-cell "gtk_tree_view_column_focus_cell") :void
 110   (tree-column (g-object tree-view-column))
 111   (cell-renderer (g-object cell-renderer)))
 112
 113 (export 'tree-view-column-focus-cell)
 114
 115 (defcfun (tree-view-column-queue-resize "gtk_tree_view_column_queue_resize") :void
 116   (tree-column (g-object tree-view-column)))
 117
 118 (export 'tree-view-column-queue-resize)