[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	drei-redisplay.lisp 
Log Message:
Fixed width calculation of Drei views.


--- /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp	2008/01/22 15:21:07	1.48
+++ /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp	2008/01/22 22:35:38	1.49
@@ -960,7 +960,7 @@
             (last-line (last-displayed-line view)))
         (values (x1 (line-dimensions first-line))
                 (y1 (line-dimensions first-line))
-                (max-line-width view)
+                (+ (x1 (line-dimensions first-line)) (max-line-width view))
                 (y2 (line-dimensions last-line))))))
 
 (defmethod bounding-rectangle-width ((view drei-buffer-view))