Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv8060 Modified Files: events.lisp Log Message: Avoid compiler warnings about implicit creation of generic functions. --- /project/mcclim/cvsroot/mcclim/events.lisp 2006/03/29 10:43:36 1.29 +++ /project/mcclim/cvsroot/mcclim/events.lisp 2007/07/18 16:57:14 1.30 @@ -158,13 +158,19 @@ (defmethod pointer-event-y ((event pointer-event)) (get-pointer-position ((event-sheet event) event) y)) +(defgeneric pointer-event-position* (pointer-event)) + (defmethod pointer-event-position* ((event pointer-event)) (get-pointer-position ((event-sheet event) event) (values x y))) +(defgeneric device-event-x (device-event)) + (defmethod device-event-x ((event device-event)) (get-pointer-position ((event-sheet event) event) x)) +(defgeneric device-event-y (device-event)) + (defmethod device-event-y ((event device-event)) (get-pointer-position ((event-sheet event) event) y)) @@ -237,9 +243,13 @@ (declare (ignorable x y)) ,@body)) +(defgeneric window-configuration-event-x (window-configuration-event)) + (defmethod window-configuration-event-x ((event window-configuration-event)) (get-window-position ((event-sheet event) event) x)) +(defgeneric window-configuration-event-y (window-configuration-event)) + (defmethod window-configuration-event-y ((event window-configuration-event)) (get-window-position ((event-sheet event) event) y))