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: