X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.tree-view.lisp;h=34cf773b63fe29bc32a1d17ccef2bea51aa5e1cf;hb=804b4c8f24b3725eb90f29d7e6910b2598b68771;hp=f9a1e1989839acb47119f434aba749737cc0098d;hpb=5fe17678137c04ece910ae65a35ee58a0c7761c7;p=cl-gtk2.git

diff --git a/gtk/gtk.tree-view.lisp b/gtk/gtk.tree-view.lisp
index f9a1e19..34cf773 100644
--- a/gtk/gtk.tree-view.lisp
+++ b/gtk/gtk.tree-view.lisp
@@ -452,4 +452,16 @@
 
 (export 'tree-view-get-tooltip-context)
 
-; TODO: GtkTreeView drag-and-drop
\ No newline at end of file
+; TODO: GtkTreeView drag-and-drop
+
+(defcfun gtk-cell-view-get-size-of-row :boolean
+  (cell-view (g-object cell-view))
+  (path (g-boxed-foreign tree-path))
+  (requisition (g-boxed-foreign requisition)))
+
+(defun cell-view-get-size-of-row (cell-view path)
+  (let ((requisition (make-requisition)))
+    (gtk-cell-view-get-size-of-row cell-view path requisition)
+    requisition))
+
+(export 'cell-view-get-size-of-row)