[mcclim-cvs] CVS update: mcclim/events.lisp mcclim/package.lisp

[Andy Hefner]

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