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