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