Added documentation of GObject high-level layer

[cl-gtk2.git] / gtk / gtk.tree-view.lisp

diff --git a/gtk/gtk.tree-view.lisp b/gtk/gtk.tree-view.lisp
index 487ddb2..42664e5 100644 (file)
--- a/gtk/gtk.tree-view.lisp
+++ b/gtk/gtk.tree-view.lisp
@@ -30,7 +30,7 @@
 
 (export 'tree-view-get-column)
 
-(defcfun (tree-view-columns "gtk_tree_view_columns") (glist g-object)
+(defcfun (tree-view-columns "gtk_tree_view_get_columns") (glist g-object)
   (tree-view g-object))
 
 (export 'tree-view-columns)
@@ -191,8 +191,9 @@
   (rectangle (g-boxed-ptr rectangle)))
 
 (defun tree-view-get-cell-area (tree-view path column)
-  (aprog1 (make-rectangle :x 0 :y 0 :width 0 :height 0)
-    (gtk-tree-view-get-cell-area tree-view path column it)))
+  (let ((rect (make-rectangle :x 0 :y 0 :width 0 :height 0)))
+    (gtk-tree-view-get-cell-area tree-view path column rect)
+    rect))
 
 (export 'tree-view-get-cell-area)
 
@@ -203,8 +204,9 @@
   (rectangle (g-boxed-ptr rectangle)))
 
 (defun tree-view-get-background-area (tree-view path column)
-  (aprog1 (make-rectangle :x 0 :y 0 :width 0 :height 0)
-    (gtk-tree-view-get-background-area tree-view path column it)))
+  (let ((rect (make-rectangle :x 0 :y 0 :width 0 :height 0)))
+    (gtk-tree-view-get-background-area tree-view path column rect)
+    rect))
 
 (export 'tree-view-get-background-area)
 
@@ -213,8 +215,9 @@
   (rectangle (g-boxed-ptr rectangle)))
 
 (defun tree-view-get-visible-rect (tree-view)
-  (aprog1 (make-rectangle :x 0 :y 0 :width 0 :height 0)
-    (gtk-tree-view-get-visible-rect tree-view it)))
+  (let ((rect (make-rectangle :x 0 :y 0 :width 0 :height 0)))
+    (gtk-tree-view-get-visible-rect tree-view rect)
+    rect))
 
 (export 'tree-view-get-visible-rect)
 
@@ -407,7 +410,7 @@
                                             (callback stable-pointer-free-destroy-notify-callback))
       (gtk-tree-view-set-row-separator-func tree-view (null-pointer) (null-pointer) (null-pointer))))
 
-(defcfun (tree-view-rubber-banding-active "gtk_tree_view_get_rubber_banding_active") :boolean
+(defcfun (tree-view-rubber-banding-active "gtk_tree_view_is_rubber_banding_active") :boolean
   (tree-view g-object))
 
 (export 'tree-view-rubber-banding-active)