--- a/FontPanel.st	Thu Apr 03 16:38:24 2014 +0200
+++ b/FontPanel.st	Thu Apr 03 21:36:31 2014 +0200
@@ -488,7 +488,7 @@
     |encoding|
 
     selectedFont := aFont.
-    xftFontsOnlyHolder value:(aFont isXftFont).
+    self xftFontsOnlyHolder value:(aFont isXftFont).
     encoding := aFont encoding.    
     sizeUnit := aFont sizeUnit.
 
@@ -498,6 +498,13 @@
     self showSelectedFont.
 
     "Modified: 23.2.1996 / 00:51:32 / cg"
+!
+
+xftFontsOnlyHolder
+    xftFontsOnlyHolder isNil ifTrue:[
+        xftFontsOnlyHolder := true asValue
+    ].
+    ^ xftFontsOnlyHolder
 ! !
 
 !FontPanel methodsFor:'initialization'!
@@ -581,9 +588,9 @@
 
     XftFontDescription notNil ifTrue:[
         UserPreferences current useXftFontsOnly ifTrue:[
-            xftFontsOnlyHolder := true asValue.
+            self xftFontsOnlyHolder value: true.
         ] ifFalse:[
-            xftFontsOnlyHolder := false asValue.
+            self xftFontsOnlyHolder value: false.
             xftCheckBox := CheckBox label:'XFT Fonts Only' in:box1.
             xftCheckBox model:xftFontsOnlyHolder.
             xftFontsOnlyHolder onChangeEvaluate:[ self xftFontsOnlyChanged ].
@@ -807,7 +814,7 @@
         ^ nil.
     ].
 
-    font := (xftFontsOnlyHolder value
+    font := (self xftFontsOnlyHolder value
                 ifTrue:[XftFontDescription]
                 ifFalse:[Font])
               family:currentFamily 
@@ -1219,7 +1226,7 @@
     okAction notNil ifTrue:[
         currentFamily notNil ifTrue:[
             okAction value:
-                ((xftFontsOnlyHolder value
+                ((self xftFontsOnlyHolder value
                         ifTrue:[XftFontDescription]
                         ifFalse:[FontDescription])
                       family:currentFamily 
@@ -1284,10 +1291,10 @@
 !FontPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.122 2014-04-03 14:38:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.123 2014-04-03 19:36:31 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.122 2014-04-03 14:38:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FontPanel.st,v 1.123 2014-04-03 19:36:31 cg Exp $'
 ! !