Update of /project/mcclim/cvsroot/mcclim In directory common-lisp.net:/tmp/cvs-serv1768 Modified Files: events.lisp package.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:56 2006 Author: ahefner Index: mcclim/events.lisp diff -u mcclim/events.lisp:1.26 mcclim/events.lisp:1.27 --- mcclim/events.lisp:1.26 Thu Oct 14 08:30:11 2004 +++ mcclim/events.lisp Wed Jan 11 09:30:55 2006 @@ -304,6 +304,8 @@ (defconstant +pointer-right-button+ #x04) (defconstant +pointer-wheel-up+ #x08) (defconstant +pointer-wheel-down+ #x10) +(defconstant +pointer-wheel-left+ #x20) +(defconstant +pointer-wheel-right+ #x40) (defconstant +shift-key+ #x0100) (defconstant +control-key+ #x0200) Index: mcclim/package.lisp diff -u mcclim/package.lisp:1.50 mcclim/package.lisp:1.51 --- mcclim/package.lisp:1.50 Fri Aug 12 04:26:00 2005 +++ mcclim/package.lisp Wed Jan 11 09:30:55 2006 @@ -1638,6 +1638,8 @@ (:export #:+pointer-wheel-up+ #:+pointer-wheel-down+ + #:+pointer-wheel-left+ + #:+pointer-wheel-right+ #:sheet-pointer-cursor) ;;; x11 color names - some are not in the spec - mikemac