Index: Experimental/freetype/freetype-fonts.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Experimental/freetype/freetype-fonts.lisp,v
retrieving revision 1.6
diff -u -r1.6 freetype-fonts.lisp
--- Experimental/freetype/freetype-fonts.lisp	15 Jun 2005 01:34:06 -0000	1.6
+++ Experimental/freetype/freetype-fonts.lisp	1 Aug 2005 16:45:29 -0000
@@ -290,15 +290,21 @@
 
 (fmakunbound 'clim-clx::text-style-to-x-font)
 
-(defmethod clim-clx::text-style-to-X-font :around ((port clim-clx::clx-port) text-style)
+(defmethod clim-clx::text-style-to-X-font :around 
+    ((port clim-clx::clx-port) (text-style climi::device-font-text-style))
+  (make-free-type-face (slot-value port 'clim-clx::display)
+		       (climi::device-font-name text-style)
+		       12))
+
+(defmethod clim-clx::text-style-to-X-font :around ((port clim-clx::clx-port) (text-style standard-text-style))
   (multiple-value-bind (family face size) (clim:text-style-components text-style)
     (setf face (or face :roman))
     (setf size (or size :normal))
     (cond (size
            (setf size (getf *sizes* size size))
            (let* ((font-path-relative (cdr (assoc (list family face) *families/faces*
-                                                  :test #'equal)))
-                  (font-path (namestring (merge-pathnames font-path-relative *freetype-font-path*))))
+						  :test #'equal)))
+		  (font-path (namestring (merge-pathnames font-path-relative *freetype-font-path*))))
              (if (and font-path (probe-file font-path))
                  (make-free-type-face (slot-value port 'clim-clx::display)
                                       font-path
