[mcclim-cvs] CVS mcclim
ahefner
ahefner at common-lisp.net
Wed Jun 3 20:38:17 UTC 2009
Update of /project/mcclim/cvsroot/mcclim
In directory cl-net:/tmp/cvs-serv24386
Modified Files:
medium.lisp
Log Message:
Change *default-text-style* to a sans-serif face.
--- /project/mcclim/cvsroot/mcclim/medium.lisp 2008/01/21 01:26:42 1.64
+++ /project/mcclim/cvsroot/mcclim/medium.lisp 2009/06/03 20:38:15 1.65
@@ -158,7 +158,7 @@
(equal (text-style-face style1) (text-style-face style2))
(eql (text-style-size style1) (text-style-size style2))))
-(defconstant *default-text-style* (make-text-style :fix :roman :normal))
+(defconstant *default-text-style* (make-text-style :sans-serif :roman :normal))
(defconstant *undefined-text-style* *default-text-style*)
(defconstant *smaller-sizes* '(:huge :very-large :large :normal
More information about the Mcclim-cvs
mailing list