[mcclim-cvs] CVS mcclim
rstrandh
rstrandh at common-lisp.net
Wed Jul 18 16:57:14 UTC 2007
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))
, at 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))
More information about the Mcclim-cvs
mailing list