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

[tmoore]

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

Modified Files:
	medium.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/output/medium.lisp	2005/05/28 19:56:07	1.4
+++ /project/mcclim/cvsroot/mcclim/Backends/beagle/output/medium.lisp	2006/03/29 10:43:38	1.5
@@ -93,7 +93,7 @@
       (send (medium-bezier-path medium) :set-line-width width)
 
       (when dashes
-	(when (eq dashes T)
+	(when (eq dashes t)
 	  ;; Provide default dash pattern... no idea why, but when I use
 	  ;; #(5.0 5.0) as the dafault dash, it gets displayed as a solid
 	  ;; line (no dashing). So the default is larger than it needs to
@@ -694,7 +694,7 @@
 (defmethod medium-draw-point* ((medium beagle-medium) x y)
   (let ((width (coerce (line-style-thickness (medium-line-style medium))
 		       'short-float)))
-    (medium-draw-circle* medium x y (/ width 2) 0 (* 2 pi) T)))
+    (medium-draw-circle* medium x y (/ width 2) 0 (* 2 pi) t)))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -709,7 +709,7 @@
   (with-transformed-positions ((sheet-native-transformation (medium-sheet medium)) coord-seq)
     (let ((width (coerce (line-style-thickness (medium-line-style medium)) 'short-float)))
       (do-sequence ((x y) coord-seq)
-        (medium-draw-circle* medium x y (/ width 2) 0 (* 2 pi) T)))))
+        (medium-draw-circle* medium x y (/ width 2) 0 (* 2 pi) t)))))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;