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