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

[Andy Hefner]

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

Modified Files:
	port.lisp 
Log Message:
Add wheel left/right constants. 

TODO: Support left/right scrolling of panes (I don't have an appropriate
input device to test this, so I leave it for someone else).


Date: Wed Jan 11 09:30:57 2006
Author: ahefner

Index: mcclim/Backends/CLX/port.lisp
diff -u mcclim/Backends/CLX/port.lisp:1.114 mcclim/Backends/CLX/port.lisp:1.115
--- mcclim/Backends/CLX/port.lisp:1.114	Mon Nov 28 15:21:45 2005
+++ mcclim/Backends/CLX/port.lisp	Wed Jan 11 09:30:56 2006
@@ -571,11 +571,12 @@
                                   +pointer-middle-button+
                                   +pointer-right-button+
                                   +pointer-wheel-up+
-                                  +pointer-wheel-down+)))
-    (if (and (> code 0)
-             (<= code (1+ (length button-mapping))))
-        (aref button-mapping (1- code))
-        nil)))
+                                  +pointer-wheel-down+
+                                  +pointer-wheel-left+
+                                  +pointer-wheel-right+)))
+    (and (> code 0)
+         (<= code (1+ (length button-mapping)))
+         (aref button-mapping (1- code)))))
 
 ;; From "Inter-Client Communication Conventions Manual", Version 2.0.xf86.1,
 ;; section 4.1.5: