[mcclim-cvs] CVS mcclim/Backends/Graphic-Forms

[junrue]

Update of /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms
In directory clnet:/tmp/cvs-serv7676

Modified Files:
	medium.lisp 
Log Message:
medium-draw-text works better with an explicit call to sync-text-style

--- /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms/medium.lisp	2007/03/16 15:31:56	1.5
+++ /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms/medium.lisp	2007/03/18 17:15:55	1.6
@@ -426,6 +426,9 @@
                               toward-x toward-y transform-glyphs)
   #+nil (gfs::debug-format "medium-draw-text: ~d, ~d  ~s~%" x y string)
   (when (target-of medium)
+    (sync-text-style medium
+                     (merge-text-styles (medium-text-style medium)
+                                        (medium-default-text-style medium)))
     (setf string (normalize-text-data string))
     (gfw:with-graphics-context (gc (target-of medium))
       (let ((font (font-of medium)))