--- a/DirectoryContentsBrowser.st Sat May 24 02:10:56 2014 +0200
+++ b/DirectoryContentsBrowser.st Sat May 24 19:34:39 2014 +0200
@@ -1740,7 +1740,8 @@
anItem notNil ifTrue:[
anItem isDirectory ifTrue:[
- anItem icon:(self class iconForKeyMatching:#directoryOpenGray).
+ anItem icon:(MIMETypeIconLibrary iconForKeyMatching:#directoryOpenGray)
+ "/ (self class iconForKeyMatching:#directoryOpenGray).
].
].
browser shown ifTrue:[
@@ -3459,10 +3460,10 @@
!DirectoryContentsBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.262 2014-05-23 09:29:35 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.263 2014-05-24 17:34:39 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.262 2014-05-23 09:29:35 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.263 2014-05-24 17:34:39 cg Exp $'
! !