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