--- a/DirectoryContentsBrowser.st Wed Apr 09 09:16:22 2014 +0200
+++ b/DirectoryContentsBrowser.st Wed Apr 09 09:36:00 2014 +0200
@@ -2165,7 +2165,7 @@
getIconForMimeType:mime for:anItem
|currentIcon newIcon images|
- newIcon := self class iconForKeyMatching:mime.
+ newIcon := MIMETypeIconLibrary iconForKeyMatching:mime.
currentIcon := anItem iconOrNil.
(currentIcon notNil and:[currentIcon class == MultiImage]) ifTrue:[
@@ -3449,10 +3449,10 @@
!DirectoryContentsBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.260 2014-04-09 07:16:22 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.261 2014-04-09 07:36:00 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.260 2014-04-09 07:16:22 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.261 2014-04-09 07:36:00 stefan Exp $'
! !