[mcclim-cvs] CVS mcclim/Experimental

[tmoore]

Update of /project/mcclim/cvsroot/mcclim/Experimental
In directory clnet:/tmp/cvs-serv13084/Experimental

Modified Files:
	pointer-doc-hack.lisp 
Log Message:


Take out dependencies on case in symbol names. This makes McCLIM sort
of work in ACL's so-called modern mode; there have been some CLX fixes
recently that may get it all the way there.

Clean up events.lisp.

Add a callback-event, which will be used in ports that get high-level
gadget notifications in the event process and need to deliver them to
applications.

Changed the implementation of scroll bars. When the drag callback is
called, just move the sheet; assume that the gadget itself has updated
the value and the graphic representation. add a scroll-bar-values
interface that gets and sets all scroll bar values and only updates
the bar once. This will break the Beagle back end momentarily.




--- /project/mcclim/cvsroot/mcclim/Experimental/pointer-doc-hack.lisp	2003/06/01 15:07:58	1.1
+++ /project/mcclim/cvsroot/mcclim/Experimental/pointer-doc-hack.lisp	2006/03/29 10:43:44	1.2
@@ -235,7 +235,7 @@
 			      ((eql button +pointer-left-button+)   *icon-mouse-left*)
 			      ((eql button +pointer-middle-button+) *icon-mouse-middle*)
 			      ((eql button +pointer-right-button+)  *icon-mouse-right*)
-			      (T name)))
+			      (t name)))
 		 (if (not (typep name 'indexed-pattern))  (format pstream "~A: " name)
 		   (multiple-value-bind (x y)  (stream-cursor-position pstream)
 		     (draw-pattern* pstream name x y)