--- a/DirectoryTreeBrowser.st	Tue Jan 14 12:04:39 2003 +0100
+++ b/DirectoryTreeBrowser.st	Wed Jan 15 11:15:39 2003 +0100
@@ -916,12 +916,14 @@
     current ifNotNil:[
         current isDirectory ifTrue:[
             self removeExpandItemTimedBlock.
+            current makeIconGray:false.
             current changed:#icon.
         ]
     ].
 
     anItem ifNotNil:[
         anItem isDirectory ifTrue:[
+            anItem makeIconGray:true.
             anItem changed:#icon.
             (anItem notNil and:[anItem isDirectory and:[anItem fileName isWritable]]) ifTrue:[
                 expandItemTimedBlock := [
@@ -1355,7 +1357,7 @@
 iconFor:anItem
     "returns the icon for an item
     "
-
+    Transcript showCR:'iconFor:anItem'.
     draggedItem == anItem ifTrue:[
         ^ self grayDirectoryIcon.
     ].
@@ -1365,5 +1367,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.40 2003-01-14 09:55:46 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.41 2003-01-15 10:15:39 penk Exp $'
 ! !