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

[pdenno]

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

Modified Files:
	drawing.lisp 
Log Message:
Use pod-utils

--- /project/cells-gtk/cvsroot/root/cells-gtk/drawing.lisp	2006/02/16 18:13:57	1.5
+++ /project/cells-gtk/cvsroot/root/cells-gtk/drawing.lisp	2006/02/19 20:11:03	1.6
@@ -19,7 +19,7 @@
 (cffi:defcallback drawing-expose-event-handler :int
   ((drawing-area :pointer) (signal :pointer) (data :pointer))
   (declare (ignorable data signal gkd-event-expose widget))
-  (bwhen (self (gtk-object-find drawing-area))
+  (when-bind (self (gtk-object-find drawing-area))
     (init-graphics-context drawing-area)
     (gdk-draw-drawable
      *window*
@@ -31,7 +31,7 @@
 (cffi:defcallback drawing-button-events-handler :int
   ((drawing-area :pointer) (signal :pointer) (data :pointer))
   (declare (ignorable data))
-  (bwhen (self (gtk-object-find drawing-area))
+  (when-bind (self (gtk-object-find drawing-area))
     (let ((event (gdk-event-button-type signal)))
       (when (and (eql (event-type event) :button_press)
                  (= (gdk-event-button-button signal) 1))
@@ -47,8 +47,8 @@
 (cffi:defcallback drawing-pointer-motion-handler :int
   ((drawing-area :pointer) (signal :pointer) (data :pointer))
   (declare (ignorable data signal widget))
-  (bwhen (self (gtk-object-find drawing-area))
-    (bwhen (button1 (button1-down self))
+  (when-bind (self (gtk-object-find drawing-area))
+    (when-bind (button1 (button1-down self))
       (let ((dx (- (truncate (gdk-event-motion-x signal)) (car button1)))
             (dy(- (truncate (gdk-event-motion-y signal)) (cdr button1))))
         (loop for drawable being the hash-value of (gobjects self) do