[mcclim-cvs] CVS mcclim/Experimental/freetype - mcclim-cvs@common-lisp.net - mailman3.common-lisp.net

14 Jun 2009

Update of /project/mcclim/cvsroot/mcclim/Experimental/freetype
In directory cl-net:/tmp/cvs-serv3498
Modified Files:
    xrender-fonts.lisp 
Log Message:
Transform :fixed to :fix during font lookup. Apparently necessary to run
on a machine without fontconfig.

--- /project/mcclim/cvsroot/mcclim/Experimental/freetype/xrender-fonts.lisp	2008/01/31 08:58:20	1.1
+++ /project/mcclim/cvsroot/mcclim/Experimental/freetype/xrender-fonts.lisp	2009/06/14 18:37:39	1.2
@@ -439,6 +439,7 @@
                  (setf face (or face :roman))
                  (setf family (or family :fix))
                  (setf size (or size :normal))
+                 (when (eq family :fixed) (setf family :fix))                   
                  (cond (size
                         (setf size (getf *sizes* size size))
                         (let ((val (gethash (list display family face size) *display-face-hash*)))

    