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

[pdenno]

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

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

--- /project/cells-gtk/cvsroot/root/cells-gtk/textview.lisp	2006/02/16 18:17:22	1.8
+++ /project/cells-gtk/cvsroot/root/cells-gtk/textview.lisp	2006/02/19 20:13:26	1.9
@@ -72,8 +72,8 @@
 (cffi:defcallback text-view-populate-popup-handler :void
                   ((widget :pointer) (signal :pointer) (data :pointer))
   (let ((popup-menu (gtk-adds-text-view-popup-menu widget)))
-    (bwhen (text-view (gtk-object-find widget))
-      (bwhen (cb (callback-recover text-view :populate-popup))
+    (when-bind (text-view (gtk-object-find widget))
+      (when-bind (cb (callback-recover text-view :populate-popup))
         (funcall cb popup-menu))))
   1)
 
@@ -93,7 +93,7 @@
                  item)))
       #'(lambda (popup-menu)
           (loop for old in (old-popups text-view) do 
-               (bwhen (sub (submenu old)) 
+               (when-bind (sub (submenu old)) 
                  (gtk-object-forget (id sub) sub))
                (gtk-object-forget (id old) old))
           (let ((tops (mapcar #'do-padds p-adds)))