3 (defcfun (tree-view-columns-autosize "gtk_tree_view_columns_autosize") :void
6 (export 'tree-view-columns-autosize)
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)))
12 (export 'tree-view-append-column)
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)))
18 (export 'tree-view-remove-column)
20 (defcfun (tree-view-insert-column "gtk_tree_view_insert_column") :int
25 (export 'tree-view-insert-column)
27 (defcfun (tree-view-get-column "gtk_tree_view_get_column") g-object
31 (export 'tree-view-get-column)
33 (defcfun (tree-view-columns "gtk_tree_view_get_columns") (glist g-object)
36 (export 'tree-view-columns)
38 (defcfun (tree-view-move-column-after "gtk_tree_view_move_column_after") :void
41 (base-column g-object))
43 (export 'tree-view-move-column-after)
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)))
50 (defcfun gtk-tree-view-set-column-drag-function :void
54 (destroy-notify :pointer))
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)))
62 (defcfun (tree-view-scroll-to-point "gtk_tree_view_scroll_to_point") :void
67 (export 'tree-view-scroll-to-point)
69 (defcfun gtk-tree-view-scroll-to-cell :void
71 (path (g-boxed-ref tree-path))
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))
80 (export 'tree-view-scroll-to-cell)
82 (defcfun gtk-tree-view-set-cursor :void
84 (path (g-boxed-ref tree-path))
85 (focus-column g-object)
86 (start-editing :boolean))
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))
91 (export 'tree-view-set-cursor)
93 (defcfun gtk-tree-view-set-cursor-on-cell :void
95 (path (g-boxed-ref tree-path))
96 (focus-column g-object)
98 (start-editing :boolean))
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))
103 (export 'tree-view-set-cursor-on-cell)
105 (defcfun gtk-tree-view-get-cursor :void
108 (focus-column :pointer))
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))))
116 (export 'tree-view-get-cursor)
118 (defcfun (tree-view-expand-all "gtk_tree_view_expand_all") :void
119 (tree-view g-object))
121 (export 'tree-view-expand-all)
123 (defcfun (tree-view-collapse-all "gtk_tree_view_collapse_all") :void
124 (tree-view g-object))
126 (export 'tree-view-collapse-all)
128 (defcfun (tree-view-expand-to-path "gtk_tree_view_expand_to_path") :void
130 (path (g-boxed-ref tree-path)))
132 (export 'tree-view-expand-to-path)
134 (defcfun (tree-view-expand-row "gtk_tree_view_expand_row") :boolean
136 (path (g-boxed-ref tree-path)))
138 (export 'tree-view-expand-row)
140 (defcfun (tree-view-collapse-row "gtk_tree_view_collapse_row") :boolean
142 (path (g-boxed-ref tree-path)))
144 (export 'tree-view-collapse-row)
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)
151 (defcfun gtk-tree-view-map-expanded-rows :void
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)))
160 (export 'tree-view-map-expanded-rows)
162 (defcfun (tree-view-row-expanded-p "gtk_tree_view_row_expanded") :boolean
164 (path (g-boxed-ref tree-path)))
166 (export 'tree-view-row-expanded-p)
168 (defcfun gtk-tree-view-get-path-at-pos :boolean
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)))))
185 (export 'tree-view-get-path-at-pos)
187 (defcfun gtk-tree-view-get-cell-area :void
189 (path (g-boxed-ref tree-path))
191 (rectangle (g-boxed-ptr rectangle)))
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)))
197 (export 'tree-view-get-cell-area)
199 (defcfun gtk-tree-view-get-background-area :void
201 (path (g-boxed-ref tree-path))
203 (rectangle (g-boxed-ptr rectangle)))
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)))
209 (export 'tree-view-get-background-area)
211 (defcfun gtk-tree-view-get-visible-rect :void
213 (rectangle (g-boxed-ptr rectangle)))
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)))
219 (export 'tree-view-get-visible-rect)
221 (defcfun gtk-tree-view-get-visible-range :boolean
223 (start-path :pointer)
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))))))
232 (export 'tree-view-get-visible-range)
234 (defcfun gtk-tree-view-convert-bin-window-to-tree-coords :void
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)
247 (export 'tree-view-convert-bin-window-to-tree-coords)
249 (defcfun gtk-tree-view-convert-bin-window-to-widget-coords :void
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)
262 (export 'tree-view-convert-bin-window-to-widget-coords)
264 (defcfun gtk-tree-view-convert-tree-to-bin-window-coords :void
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)
277 (export 'tree-view-convert-tree-to-bin-window-coords)
279 (defcfun gtk-tree-view-convert-tree-to-widget-coords :void
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)
292 (export 'tree-view-convert-tree-to-widget-coords)
294 (defcfun gtk-tree-view-convert-widget-to-bin-window-coords :void
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)
307 (export 'tree-view-convert-widget-to-bin-window-coords)
309 (defcfun gtk-tree-view-convert-widget-to-tree-coords :void
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)
322 (export 'tree-view-convert-widget-to-tree-coords)
324 ; TODO: gtk_tree_view_enable_model_drag_dest
326 ; TODO: gtk_tree_view_enable_model_drag_source
328 ; TODO: gtk_tree_view_unset_rows_drag_source
330 ; TODO: gtk_tree_view_unset_rows_drag_dest
332 ; TOOD: gtk_tree_view_set_drag_dest_row
334 ; TOOD: gtk_tree_view_get_drag_dest_row
336 ; TOOD: gtk_tree_view_get_dest_row_at_pos
338 ; TOOD: gtk_tree_view_create_drag_icon
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))
343 (funcall (get-stable-pointer-value data)
344 model column key iter)
346 (return-false () t)))
348 (defcfun gtk-tree-view-set-search-equal-func :void
352 (destroy-notify :pointer))
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)))
360 (defcallback gtk-tree-view-search-position-func :void
361 ((tree-view g-object) (search-dialog g-object) (data :pointer))
363 (funcall (get-stable-pointer-value data)
368 (defcfun gtk-tree-view-set-search-position-func :void
372 (destroy-notify :pointer))
374 (defun tree-view-set-search-position-func (tree-view 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
385 ; TODO: gtk_tree_view_set_destroy_count_func
387 (defcallback gtk-tree-view-row-separator-func-callback :boolean
388 ((tree-model g-object) (iter (g-boxed-ref tree-iter)) (data :pointer))
390 (funcall (get-stable-pointer-value data)
394 (return-false () nil)))
396 (defcfun gtk-tree-view-set-row-separator-func :void
400 (destroy-notify :pointer))
402 (defun tree-view-set-row-separartor-func (tree-view 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))))
410 (defcfun (tree-view-rubber-banding-active "gtk_tree_view_is_rubber_banding_active") :boolean
411 (tree-view g-object))
413 (export 'tree-view-rubber-banding-active)
415 (defcfun (tree-view-set-tooltip-row "gtk_tree_view_set_tooltip_row") :void
418 (tree-path (g-boxed-ref tree-path)))
420 (export 'tree-view-set-tooltip-row)
422 (defcfun (tree-view-set-tooltip-cell "gtk_tree_view_set_tooltip_cell") :void
425 (path (g-boxed-ref tree-path))
429 (export 'tree-view-set-tooltip-cell)
431 (defcfun gtk-tree-view-get-tooltip-context :boolean
435 (keyboard-tip :boolean)
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)
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))))))
450 (export 'tree-view-get-tooltip-context)
452 ; TODO: GtkTreeView drag-and-drop