[mcclim-cvs] CVS update: mcclim/Backends/CLX/port.lisp

[Clemens Fruhwirth]

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX
In directory common-lisp.net:/tmp/cvs-serv12046

Modified Files:
	port.lisp 
Log Message:
Enable :pointer-motion in default event mask for
realize-mirror-aux.  This unbreaks tracking-pointer's pointer-motion
for all regular sheets. Previously, it only worked for
clim-stream-pane, because clim-stream-pane overrode the defaults.

This will cause additional traffic between the X11
server and CLIM, however the CLIM spec does not provide a way to
selectively enable or disable events (only total muting is
possible). Therefore, we must shove all events to a sheet as we have
no way to find out if an event is handled or not.

Date: Fri Jan 13 12:05:06 2006
Author: cfruhwirth

Index: mcclim/Backends/CLX/port.lisp
diff -u mcclim/Backends/CLX/port.lisp:1.116 mcclim/Backends/CLX/port.lisp:1.117
--- mcclim/Backends/CLX/port.lisp:1.116	Thu Jan 12 22:08:06 2006
+++ mcclim/Backends/CLX/port.lisp	Fri Jan 13 12:05:06 2006
@@ -345,8 +345,8 @@
 					      :button-press :button-release
 					      :enter-window :leave-window
 					      :structure-notify
-					     ;:pointer-motion
-                                              :button-motion)))
+					      :pointer-motion
+					      :button-motion)))
   (when (null (port-lookup-mirror port sheet))
     (update-mirror-geometry sheet)
     (let* ((desired-color (typecase sheet