--- a/HierarchicalFileList.st	Thu Apr 18 11:54:31 2002 +0200
+++ b/HierarchicalFileList.st	Wed Apr 24 13:35:01 2002 +0200
@@ -263,6 +263,10 @@
      visible within the physical directory
     "
     ^ matchBlock        
+!
+
+validateIcon:anIcon for:anItem
+    ^ anIcon
 ! !
 
 !HierarchicalFileList methodsFor:'searching'!
@@ -351,14 +355,13 @@
     "
     |model|
 
+    model := self model.
+    model ifNil:[^ nil].
+
     icon isNil ifTrue:[
-        (model := self model) notNil ifTrue:[
-            icon := model iconFor:self
-        ]
+        icon := model iconFor:self
     ].
-    ^ icon
-
-
+    ^ model validateIcon:icon for:self
 !
 
 label
@@ -581,5 +584,5 @@
 !HierarchicalFileList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.10 2001-04-03 06:45:31 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.11 2002-04-24 11:35:01 penk Exp $'
 ! !