[mcclim-cvs] CVS mcclim

[rstrandh]

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