--- a/Tools__FontSettingsApplication.st	Thu Nov 20 15:49:41 2014 +0100
+++ b/Tools__FontSettingsApplication.st	Thu Nov 20 16:17:23 2014 +0100
@@ -808,7 +808,7 @@
 changeToSTXLookXft
     |fixFont variableFont|
 
-    (Display supportsXFTFonts and:[XftFontDescription notNil]) ifTrue:[
+    (Screen current supportsXFTFonts and:[XftFontDescription notNil]) ifTrue:[
         self changeToSTXLook.
         ^ self.
     ].
@@ -1189,16 +1189,16 @@
 !
 
 hasXftFonts
-    ^ (Display supportsXFTFonts) and:[ XftFontDescription notNil ]
+    ^ (Screen current supportsXFTFonts) and:[ XftFontDescription notNil ]
 ! !
 
 !FontSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__FontSettingsApplication.st,v 1.9 2014-07-11 13:40:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__FontSettingsApplication.st,v 1.10 2014-11-20 15:17:23 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__FontSettingsApplication.st,v 1.9 2014-07-11 13:40:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__FontSettingsApplication.st,v 1.10 2014-11-20 15:17:23 stefan Exp $'
 ! !