Update of /project/mcclim/cvsroot/mcclim/Backends/CLX In directory clnet:/tmp/cvs-serv11135

Modified Files: medium.lisp Log Message: * Backends/CLX/medium.lisp (climi::text-bounding-rectangle*): Do not error out when the string contains newlines. [Whether the return values are right is a different matter...]

--- /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp 2006/03/23 11:59:00 1.73 +++ /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp 2006/04/17 18:12:16 1.74 @@ -757,7 +757,7 @@ font-ascent font-descent direction first-not-done)) (multiple-value-bind (minx miny maxx maxy) - (text-bounding-rectangle* + (climi::text-bounding-rectangle* medium string :text-style text-style :start (1+ position-newline) :end end) (values (min minx left) (- ascent)