[mcclim-cvs] CVS mcclim/Backends/beagle/windowing

[tmoore]

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/windowing
In directory clnet:/tmp/cvs-serv13084/Backends/beagle/windowing

Modified Files:
	mirror.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/Backends/beagle/windowing/mirror.lisp	2005/06/05 19:52:57	1.6
+++ /project/mcclim/cvsroot/mcclim/Backends/beagle/windowing/mirror.lisp	2006/03/29 10:43:38	1.7
@@ -455,7 +455,7 @@
 	    (send (send mirror 'window)
 		  :frame-rect-for-content-rect rect
 		  :style-mask (%beagle-style-mask-for-frame sheet))
-	    :display T))))
+	    :display t))))
 
 
 (defun %beagle-style-mask-for-frame (sheet)