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

[pdenno]

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

Modified Files:
	menus.lisp 
Log Message:
use pod-utils

--- /project/cells-gtk/cvsroot/root/cells-gtk/menus.lisp	2006/02/16 18:16:28	1.12
+++ /project/cells-gtk/cvsroot/root/cells-gtk/menus.lisp	2006/02/19 20:12:16	1.13
@@ -78,12 +78,12 @@
 				     '(:string :string) pfunc (children-fn self)))
       ;; Spec says iter must correspond to a path of depth one. But then there would be no point 
       ;; in set-active-iter.  Well, the spec seems to be wrong (or poorly worded).
-      (bwhen (path (init self))
+      (when-bind (path (init self))
 	     (cgtk-set-active-item-by-path self path)))))
 
 (defmethod cgtk-set-active-item-by-path ((self combo-box) path)
   "Sets the value of the tree-model type combo-box to the item at the path. Path is a list of integers."
-  (bwhen (tree (tree-model self))
+  (when-bind (tree (tree-model self))
     (with-tree-iters (it)
        (when (gtk-tree-model-get-iter-from-string (id tree) it (format nil "~{~A~^:~}" path))
 	 (gtk-combo-box-set-active-iter (id self) it)
@@ -97,7 +97,7 @@
   (when new-value
     (dolist (item (items self))
       (gtk-combo-box-append-text (id self) (funcall (print-fn self) item)))
-    (bif (index (position (init self) (items self)))
+    (if-bind (index (position (init self) (items self)))
 	 (progn (gtk-combo-box-set-active (id self) index)
 		(setf (md-value self) (init self)))
 	 (progn (gtk-combo-box-set-active (id self) 0)