[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-serv16770/Experimental/freetype

Modified Files:
	freetype-fonts.lisp 
Log Message:
The cache for glyphs must have the display as part of the key, otherwise
closing a port will cause subsequent programs using freetype to break.

Date: Tue Jul 12 13:45:58 2005
Author: crhodes

Index: mcclim/Experimental/freetype/freetype-fonts.lisp
diff -u mcclim/Experimental/freetype/freetype-fonts.lisp:1.7 mcclim/Experimental/freetype/freetype-fonts.lisp:1.8
--- mcclim/Experimental/freetype/freetype-fonts.lisp:1.7	Sat Jun 18 03:56:43 2005
+++ mcclim/Experimental/freetype/freetype-fonts.lisp	Tue Jul 12 13:45:58 2005
@@ -246,8 +246,8 @@
 
 (let ((cache (make-hash-table :test #'equal)))
   (defun make-free-type-face (display font size)
-    (or (gethash (list font size) cache)
-        (setf (gethash (list font size) cache)
+    (or (gethash (list display font size) cache)
+        (setf (gethash (list display font size) cache)
               (let* ((f.font (or (gethash font *font-hash*)
                                  (setf (gethash font *font-hash*)
                                        (make-vague-font font))))