(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)
(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)
(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)
(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)
(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)