[mcclim-cvs] CVS mcclim/Backends/Null

[crhodes]

Update of /project/mcclim/cvsroot/mcclim/Backends/Null
In directory clnet:/tmp/cvs-serv13432

Modified Files:
	medium.lisp 
Log Message:
Implement (kind of) text-bounding-rectangle* for the Null backend.

Somewhat astoundingly, now climacs runs well enough to inspect
the text in the info pane:
   #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 0,0 ("   " 
"--" "  " "*scratch*                " "  " "  " "(" "Basic)") 
{100B89E371}>


--- /project/mcclim/cvsroot/mcclim/Backends/Null/medium.lisp	2006/03/24 11:45:03	1.1
+++ /project/mcclim/cvsroot/mcclim/Backends/Null/medium.lisp	2006/03/24 12:03:31	1.2
@@ -126,6 +126,10 @@
 	(setf height (+ height (text-style-height text-style medium)))
 	(setf baseline (+ baseline (text-style-height text-style medium)))))))
 
+(defmethod climi::text-bounding-rectangle*
+    ((medium null-medium) string &key text-style (start 0) end)
+  (text-size medium string :text-style text-style :start start :end end))
+
 (defmethod medium-draw-text* ((medium null-medium) string x y
                               start end
                               align-x align-y