[mcclim-cvs] CVS mcclim/Experimental/freetype

[ahefner]

Update of /project/mcclim/cvsroot/mcclim/Experimental/freetype
In directory clnet:/tmp/cvs-serv16465

Modified Files:
	freetype-fonts.lisp 
Log Message:
Attempt to workaround nil text style issue.


--- /project/mcclim/cvsroot/mcclim/Experimental/freetype/freetype-fonts.lisp	2008/01/13 20:23:59	1.16
+++ /project/mcclim/cvsroot/mcclim/Experimental/freetype/freetype-fonts.lisp	2008/01/13 23:02:34	1.17
@@ -461,6 +461,7 @@
             
                (let ((display (clim-clx::clx-port-display port)))
                  (setf face (or face :roman))
+                 (setf family (or family :fix))
                  (setf size (or size :normal))
                  (cond (size
                         (setf size (getf *sizes* size size))