--- a/HierarchicalFileList.st	Tue Jan 14 10:28:18 2003 +0100
+++ b/HierarchicalFileList.st	Wed Jan 15 11:15:57 2003 +0100
@@ -35,7 +35,7 @@
 !
 
 HierarchicalFileList::HierarchicalFileItem subclass:#Directory
-	instanceVariableNames:'modificationTime fetchOperation'
+	instanceVariableNames:'modificationTime fetchOperation makeIconGray'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:HierarchicalFileList
@@ -818,14 +818,26 @@
     "returns the icon key
     "
     isExpanded ifTrue:[
+        makeIconGray == true ifTrue:[
+            ^ FileBrowser iconForKeyMatching:#directoryOpenGray
+        ].
         ^ FileBrowser iconForKeyMatching:#directoryOpen
     ].
+    makeIconGray == true ifTrue:[
+        ^ FileBrowser iconForKeyMatching:#directoryGray
+    ].
     icon isNil ifTrue:[
         ^ super icon
     ].
     ^ icon
 !
 
+makeIconGray:something
+    "set the value of the instance variable 'makeIconGray' (automatically generated)"
+
+    makeIconGray := something.
+!
+
 modificationTime:something
     "set the value of the instance variable 'modificationTime' (automatically generated)"
 
@@ -1131,5 +1143,5 @@
 !HierarchicalFileList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.40 2003-01-09 14:39:09 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.41 2003-01-15 10:15:57 penk Exp $'
 ! !