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