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