[mcclim-cvs] CVS update: mcclim/Experimental/freetype/freetype-fonts.lisp

[Christophe Rhodes]

Update of /project/mcclim/cvsroot/mcclim/Experimental/freetype
In directory common-lisp.net:/tmp/cvs-serv10311

Modified Files:
	freetype-fonts.lisp 
Log Message:
The text style contains (:bold :italic), not :bold-italic.  Fix the 
alist.

Date: Fri Jun 10 15:58:32 2005
Author: crhodes

Index: mcclim/Experimental/freetype/freetype-fonts.lisp
diff -u mcclim/Experimental/freetype/freetype-fonts.lisp:1.3 mcclim/Experimental/freetype/freetype-fonts.lisp:1.4
--- mcclim/Experimental/freetype/freetype-fonts.lisp:1.3	Sun Jun  5 22:50:29 2005
+++ mcclim/Experimental/freetype/freetype-fonts.lisp	Fri Jun 10 15:58:31 2005
@@ -259,18 +259,18 @@
 (defparameter *families/faces*
   '(((:fix :roman) . "VeraMono.ttf")
     ((:fix :italic) . "VeraMoIt.ttf")
-    ((:fix :bold-italic) . "VeraMoBI.ttf")
-    ((:fix :italic-bold) . "VeraMoBI.ttf")
+    ((:fix (:bold italic)) . "VeraMoBI.ttf")
+    ((:fix (:italic bold)) . "VeraMoBI.ttf")
     ((:fix :bold) . "VeraMoBd.ttf")
     ((:serif :roman) . "VeraSe.ttf")
     ((:serif :italic) . "VeraSe.ttf")
-    ((:serif :bold-italic) . "VeraSeBd.ttf")
-    ((:serif :italic-bold) . "VeraSeBd.ttf")
+    ((:serif (:bold italic)) . "VeraSeBd.ttf")
+    ((:serif (:italic bold)) . "VeraSeBd.ttf")
     ((:serif :bold) . "VeraSeBd.ttf")
     ((:sans-serif :roman) . "Vera.ttf")
     ((:sans-serif :italic) . "VeraIt.ttf")
-    ((:sans-serif :bold-italic) . "VeraBI.ttf")
-    ((:sans-serif :italic-bold) . "VeraBI.ttf")
+    ((:sans-serif (:bold italic)) . "VeraBI.ttf")
+    ((:sans-serif (:italic bold)) . "VeraBI.ttf")
     ((:sans-serif :bold) . "VeraBd.ttf")))
 
 (defvar *freetype-font-path*)