--- a/UserPreferences.st	Wed Nov 26 20:29:35 2014 +0100
+++ b/UserPreferences.st	Wed Nov 26 21:44:38 2014 +0100
@@ -2035,6 +2035,32 @@
     "
 !
 
+useXFontsOnly
+    "experimental:
+     a flag to suppress any use of Xft Fonts on X window displays"
+
+    ^ self at:#useXFontsOnly ifAbsent:[ false ]
+
+    "
+     UserPreferences current useXFontsOnly
+    "
+!
+
+useXFontsOnly:aBoolean
+    "experimental:
+     a flag to suppress any use of Xft Fonts on X window displays"
+
+    self at:#useXFontsOnly put:aBoolean
+
+    "
+     UserPreferences current useXFontsOnly
+     UserPreferences current useXFontsOnly:true
+     UserPreferences current useXFontsOnly:false
+     UserPreferences current useXftFontsOnly:true
+     UserPreferences current useXftFontsOnly:false
+    "
+!
+
 useXftFontsOnly
     "experimental:
      return the flag which controls if ONLY Xft fonts should be used.
@@ -4959,11 +4985,11 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.386 2014-11-20 16:57:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.387 2014-11-26 20:44:38 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.386 2014-11-20 16:57:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.387 2014-11-26 20:44:38 cg Exp $'
 !
 
 version_SVN