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