[mcclim-cvs] CVS mcclim/Backends/CLX

[ahefner]

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX
In directory cl-net:/tmp/cvs-serv28749

Modified Files:
	port.lisp 
Log Message:
Fix off by one error in CLX button decoding, based on patch by Mike
Watters.


--- /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp	2008/05/13 03:04:39	1.134
+++ /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp	2008/10/20 17:31:41	1.135
@@ -617,7 +617,7 @@
                                   +pointer-wheel-left+
                                   +pointer-wheel-right+)))
     (and (> code 0)
-         (<= code (1+ (length button-mapping)))
+         (<= code (length button-mapping))
          (aref button-mapping (1- code)))))
 
 ;; From "Inter-Client Communication Conventions Manual", Version 2.0.xf86.1,