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