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