[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv7023/Drei

Modified Files:
	drei-redisplay.lisp 
Log Message:
The brave new world of output records with baselines was not properly interned everywhere.

Fixed.


--- /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp	2008/02/03 18:49:56	1.60
+++ /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp	2008/02/03 19:17:26	1.61
@@ -57,9 +57,7 @@
 object, or display the `princ'ed representation.)")
   (:method :around ((stream extended-output-stream) (view drei-view))
            (letf (((stream-default-view stream) view))
-             (call-next-method)))
-  (:method ((stream extended-output-stream) (view drei-syntax-view))
-    (call-next-method)))
+             (call-next-method))))
 
 (defgeneric display-drei-view-cursor (stream view cursor)
   (:documentation "The purpose of this function is to display a
@@ -748,15 +746,14 @@
             ;; like the changing position is ignored. So add some
             ;; minuscule amount to it, and all will be well. 0.1
             ;; device units shouldn't even be visible.
-            (let ((width (bounding-rectangle-width output-record))
-                  (height (bounding-rectangle-height output-record)))
+            (let ((width (bounding-rectangle-width output-record)))
               (setf (output-record-position output-record)
                     (values (+ cursor-x 0.1) (- cursor-y baseline)))
               (when draw
                 (replay output-record stream))
 	      (setf (aref widths 1) width)
               (record-stroke stroke parts widths
-                             cursor-x (- cursor-y height)
+                             cursor-x (- cursor-y baseline)
                              (+ width cursor-x) cursor-y
                              draw baseline)))))))