[mcclim-cvs] CVS mcclim/Backends/CLX - mcclim-cvs@common-lisp.net - mailman3.common-lisp.net

23 Oct 2008

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX
In directory cl-net:/tmp/cvs-serv10847/Backends/CLX
Modified Files:
    port.lisp 
Log Message:
`decode-x-button-code' fix from Mike Watters.

--- /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp	2008/10/20 17:31:41	1.135
+++ /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp	2008/10/23 20:49:12	1.136
@@ -615,10 +615,11 @@
                                   +pointer-wheel-up+
                                   +pointer-wheel-down+
                                   +pointer-wheel-left+
-                                  +pointer-wheel-right+)))
-    (and (> code 0)
-         (<= code (length button-mapping))
-         (aref button-mapping (1- code)))))
+                                  +pointer-wheel-right+))
+        (code (1- code)))
+    (when (and (>= code 0)
+               (< code (length button-mapping)))
+      (aref button-mapping code))))
;; From "Inter-Client Communication Conventions Manual", Version 2.0.xf86.1,
 ;; section 4.1.5:

    