--- a/FontPanel.st	Mon Mar 17 18:01:13 2014 +0100
+++ b/FontPanel.st	Tue Mar 18 11:11:21 2014 +0100
@@ -513,7 +513,7 @@
 
 initialize
     |familyLabel faceLabel sizeLabel panel fontBrowserView v1 v2 v3
-     mm fH eH l box1 box2 showFontNameLabel sep xftCheckBox|
+     mm fH eH l box1 box2 showFontNameLabel xftCheckBox|
 
     super initialize.
 
@@ -580,10 +580,14 @@
     ].
 
     XftFontDescription notNil ifTrue:[
-        xftFontsOnlyHolder := false asValue.
-        xftCheckBox := CheckBox label:'XFT Fonts Only' in:box1.
-        xftCheckBox model:xftFontsOnlyHolder.
-        xftFontsOnlyHolder onChangeEvaluate:[ self xftFontsOnlyChanged ].
+        UserPreferences current useXftFontsOnly ifTrue:[
+            xftFontsOnlyHolder := true asValue.
+        ] ifFalse:[
+            xftFontsOnlyHolder := false asValue.
+            xftCheckBox := CheckBox label:'XFT Fonts Only' in:box1.
+            xftCheckBox model:xftFontsOnlyHolder.
+            xftFontsOnlyHolder onChangeEvaluate:[ self xftFontsOnlyChanged ].
+        ].
     ].
 
 "/    sep := View in:box1.
@@ -1280,10 +1284,10 @@
 !FontPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.119 2014-03-17 17:01:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.120 2014-03-18 10:11:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.119 2014-03-17 17:01:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.120 2014-03-18 10:11:21 cg Exp $'
 ! !