--- a/FontPanel.st	Sat Feb 22 16:55:26 2014 +0100
+++ b/FontPanel.st	Sat Feb 22 17:14:55 2014 +0100
@@ -869,6 +869,7 @@
             encodingLabel label:enc.
             currentEncoding := enc.
             fontName := deviceFont fullName.
+            (font isKindOf:XftFontDescription) ifTrue:[fontName := fontName,' (xft)'].
             previewField contents:(self class defaultSampleStringForEncoding:enc).
         ] ifFalse:[
             previewField contents:nil.
@@ -1228,10 +1229,10 @@
 !FontPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.110 2014-02-18 14:40:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.111 2014-02-22 16:14:55 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.110 2014-02-18 14:40:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.111 2014-02-22 16:14:55 cg Exp $'
 ! !