--- a/FontPanel.st	Fri Jan 15 22:53:54 2016 +0100
+++ b/FontPanel.st	Sat Jan 16 01:35:54 2016 +0100
@@ -535,7 +535,8 @@
     "sigh: hand-crafted box creation; TODO: rewrite using UI painter"
     
     |familyLabel faceLabel sizeLabel panel panel2 fontBrowserView fp v1 v2 v3
-     mm fH l box1 box2 showFontNameLabel xftCheckBox vPanel changeInAllCheckBox|
+     mm fH l box1 box2 showFontNameLabel xftCheckBox vPanel changeInAllCheckBox
+     xftFlushFontList|
 
     super initialize.
 
@@ -613,6 +614,9 @@
         xftCheckBox := CheckBox label:(resources string:'XFT Fonts Only') in:box1.
         xftCheckBox model:xftFontsOnlyHolder.
         xftFontsOnlyHolder onChangeEvaluate:[ self xftFontsOnlyChanged ].
+
+        xftFlushFontList := Button label:(resources string:'Flush Cached List of Fonts') in:box1.
+        xftFlushFontList action:[ self flushListOfAvailableFonts].
     ].
 
 "/    sep := View in:box1.
@@ -1557,6 +1561,11 @@
     "Modified: 26.5.1996 / 15:04:29 / cg"
 !
 
+flushListOfAvailableFonts
+    XftFontDescription flushListOfAvailableFonts.
+    self updateFamilyList
+!
+
 okPressed
     "ok was pressed; hide myself and evaluate the okAction, passing
      family, face, style and size as arguments"