3 (defcfun gtk-tree-view-column-pack-start :void
4 (tree-column (g-object tree-view-column))
5 (cell (g-object cell-renderer))
8 (defun tree-view-column-pack-start (tree-column cell &key (expand t))
9 (gtk-tree-view-column-pack-start tree-column cell expand))
11 (export 'tree-view-column-pack-start)
13 (defcfun gtk-tree-view-column-pack-end :void
14 (tree-column (g-object tree-view-column))
15 (cell (g-object cell-renderer))
18 (defun tree-view-column-pack-end (tree-column cell &key (expand t))
19 (gtk-tree-view-column-pack-end tree-column cell expand))
21 (export 'tree-view-column-pack-end)
23 (defcfun (tree-view-column-clear "gtk_tree_view_column_clear") :void
24 (tree-column (g-object tree-view-column)))
26 (export 'tree-view-column-clear)
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))
34 (export 'tree-view-column-add-attribute)
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))
42 (let ((fn (get-stable-pointer-value data)))
44 (funcall fn tree-column cell tree-model iter)
45 (return-from-tree-cell-data-function () nil))))
47 (defcallback gtk-tree-cell-data-func-destroy-cb :void ((data :pointer))
48 (free-stable-pointer data))
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))
55 (destroy-notify :pointer))
57 (defun tree-view-column-set-cell-data-function (tree-column cell-renderer function)
58 (gtk-tree-view-column-set-cell-data-func
61 (callback gtk-tree-cell-data-func-cb)
62 (allocate-stable-pointer function)
63 (callback gtk-tree-cell-data-func-destroy-cb)))
65 (export 'tree-view-column-set-cell-data-function)
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)))
71 (export 'tree-view-column-clear-attributes)
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))
80 (export 'tree-view-column-cell-set-data)
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)))
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))))
95 (export 'tree-view-column-cell-size)
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)))
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)))))
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)))
113 (export 'tree-view-column-focus-cell)
115 (defcfun (tree-view-column-queue-resize "gtk_tree_view_column_queue_resize") :void
116 (tree-column (g-object tree-view-column)))
118 (export 'tree-view-column-queue-resize)