[cells-gtk-cvs] CVS root/cells-gtk

[pdenno]

Update of /project/cells-gtk/cvsroot/root/cells-gtk
In directory common-lisp:/tmp/cvs-serv14780/root/cells-gtk

Modified Files:
	tree-view.lisp 
Log Message:
use pod-utils

--- /project/cells-gtk/cvsroot/root/cells-gtk/tree-view.lisp	2006/02/16 18:18:02	1.14
+++ /project/cells-gtk/cvsroot/root/cells-gtk/tree-view.lisp	2006/02/19 20:13:51	1.15
@@ -113,7 +113,7 @@
 
 (cffi:defcallback tree-view-select-handler :void
  ((column-widget :pointer) (event :pointer) (data :pointer))
-  (bif (tree-view (gtk-object-find column-widget))
+  (if-bind (tree-view (gtk-object-find column-widget))
        (let ((cb (callback-recover tree-view :on-select)))
          (funcall cb tree-view column-widget event data))
        (trc "Clean up old widgets after runs" column-widget))
@@ -211,7 +211,7 @@
 (cffi:defcallback tree-view-render-cell-callback :int
   ((tree-column :pointer) (cell-renderer :pointer) (tree-model :pointer) 
    (iter :pointer) (data :pointer))
-  (bif (self (gtk-object-find tree-column))
+  (if-bind (self (gtk-object-find tree-column))
        (let ((cb (callback-recover self :render-cell)))
          (assert cb nil "no :render-cell callback for ~a" self)
          (funcall cb tree-column cell-renderer tree-model iter data))