[mcclim-cvs] CVS update: mcclim/Backends/CLX/medium.lisp

[Gilbert Baumann]

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX
In directory common-lisp.net:/tmp/cvs-serv20807

Modified Files:
	medium.lisp 
Log Message:
TEXT-SIZE, CLIMI::TEXT-BOUNDING-RECTANGLE*
        end argument was not handled properly in case of multi-line strings

Date: Mon Nov 28 12:53:42 2005
Author: gbaumann

Index: mcclim/Backends/CLX/medium.lisp
diff -u mcclim/Backends/CLX/medium.lisp:1.68 mcclim/Backends/CLX/medium.lisp:1.69
--- mcclim/Backends/CLX/medium.lisp:1.68	Thu Oct 27 03:21:35 2005
+++ mcclim/Backends/CLX/medium.lisp	Mon Nov 28 12:53:41 2005
@@ -795,7 +795,7 @@
     (cond ((= start end)
            (values 0 0 0 0 0))
           (t
-           (let ((position-newline (position #\newline string :start start)))
+           (let ((position-newline (position #\newline string :start start :end end)))
              (cond ((not (null position-newline))
                     (multiple-value-bind (width ascent descent left right
                                                 font-ascent font-descent direction
@@ -834,7 +834,7 @@
     (cond ((= start end)
            (values 0 0 0 0))
           (t
-           (let ((position-newline (position #\newline string :start start)))
+           (let ((position-newline (position #\newline string :start start :end end)))
              (cond ((not (null position-newline))
                     (multiple-value-bind (width ascent descent left right
                                                 font-ascent font-descent direction
@@ -875,7 +875,7 @@
     (cond ((= start end)
            (values 0 0 0 0 0))
           (t
-           (let ((position-newline (position #\newline string :start start)))
+           (let ((position-newline (position #\newline string :start start :end end)))
              (cond ((not (null position-newline))
                     (multiple-value-bind (width ascent descent left right
                                                 font-ascent font-descent direction