Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/output In directory clnet:/tmp/cvs-serv30166/Backends/beagle/output

Modified Files: fonts.lisp Log Message: Beagle backend fixes * functionality not tested, but it loads under clozure cl snapshot * Patches by Greg Pfeil

Signed-off-by: Rudi Schlatte rudi@constantly.at

--- /project/mcclim/cvsroot/mcclim/Backends/beagle/output/fonts.lisp 2006/03/23 15:27:24 1.3 +++ /project/mcclim/cvsroot/mcclim/Backends/beagle/output/fonts.lisp 2007/12/18 10:54:22 1.4 @@ -226,11 +226,11 @@ (text-size medium (string s) :text-style text-style :start start :end end))

(defmethod text-size ((medium beagle-medium) (string string) - &key (text-style (medium-text-style medium)) - (start 0) - ( end (length string))) + &key text-style (start 0) end) (declare (special *default-text-style*)) ;; Check for 'empty string' case + (unless end (setf end (length string))) + (unless text-style (setf text-style (medium-text-style medium))) (when (>= start end) ;; XXX is 0 value for the baseline correct? (return-from text-size (values 0 0 0 0 0)))