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