--- 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 $'
! !