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