[mcclim-cvs] CVS mcclim/Backends/CLX

[dlichteblau]

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)