--- a/DirectoryTreeBrowser.st	Thu Oct 10 10:01:48 2002 +0200
+++ b/DirectoryTreeBrowser.st	Thu Oct 10 11:26:26 2002 +0200
@@ -11,7 +11,7 @@
 !
 
 HierarchicalFileList subclass:#DirTreeBrowserHFL
-	instanceVariableNames:'draggedItem'
+	instanceVariableNames:'draggedItem grayDirectoryIcon'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:DirectoryTreeBrowser
@@ -1165,16 +1165,26 @@
 
 !DirectoryTreeBrowser::DirTreeBrowserHFL methodsFor:'protocol'!
 
-validateIcon:icon for:anItem
+grayDirectoryIcon
+
+    grayDirectoryIcon isNil ifTrue:[
+        grayDirectoryIcon := (FileBrowser iconForKeyMatching:#directoryOpenGray).
+    ].
+    ^ grayDirectoryIcon
+!
+
+iconFor:anItem
+    "returns the icon for an item
+    "
 
     draggedItem == anItem ifTrue:[
-        ^ (FileBrowser iconForKeyMatching:#directoryOpenGray) ? icon.
+        ^ self grayDirectoryIcon.
     ].
-    ^ icon
+    ^ super iconFor:anItem.
 ! !
 
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.15 2002-10-10 08:01:48 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.16 2002-10-10 09:26:26 penk Exp $'
 ! !