--- a/MIMETypeIconLibrary.st	Sun Nov 23 03:23:55 2014 +0100
+++ b/MIMETypeIconLibrary.st	Sun Nov 23 14:42:46 2014 +0100
@@ -36,6 +36,16 @@
 
 !MIMETypeIconLibrary class methodsFor:'initialization'!
 
+flushIcons
+    "remove any cached icons. Call this eg. after a style change"
+
+    Icons := nil
+
+    "
+     self flushIcons
+    "
+!
+
 initialize
     "/ now done lazily, when the first icon is asked for
     "/ self initializeIcons
@@ -226,6 +236,10 @@
 !
 
 fileTypeIconKeyFor:aFilename
+    "return an icon-key for a fileName.
+     This does not look at the file's suffix or into the file's contents,
+     for more detailed key i.e. it only returns keys for the common broad categories"
+
     |info|
 
     info := aFilename linkInfo.
@@ -561,11 +575,11 @@
 !MIMETypeIconLibrary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypeIconLibrary.st,v 1.21 2014-11-23 02:23:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypeIconLibrary.st,v 1.22 2014-11-23 13:42:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypeIconLibrary.st,v 1.21 2014-11-23 02:23:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypeIconLibrary.st,v 1.22 2014-11-23 13:42:46 cg Exp $'
 ! !