[mcclim-cvs] CVS mcclim/Backends/beagle/output

[rschlatte]

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 at 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)))