--- a/DirectoryContentsBrowser.st Wed Apr 09 08:54:01 2014 +0200
+++ b/DirectoryContentsBrowser.st Wed Apr 09 09:16:22 2014 +0200
@@ -2155,7 +2155,7 @@
getIconFor:anItem
|icon|
- icon := self class iconForKeyMatching:anItem iconKey.
+ icon := MIMETypeIconLibrary iconForKeyMatching:anItem iconKey.
anItem isRemoteDirectory ifTrue:[
^ icon "/ do not query attributes
].
@@ -3449,10 +3449,10 @@
!DirectoryContentsBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.259 2014-04-08 22:31:38 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.260 2014-04-09 07:16:22 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.259 2014-04-08 22:31:38 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.260 2014-04-09 07:16:22 stefan Exp $'
! !