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)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;