class: DirectoryContentsBrowser
authorStefan Vogel <sv@exept.de>
Wed, 09 Apr 2014 09:16:22 +0200
changeset 14190 928d16f1fa55
parent 14189 70f7d9eb749b
child 14191 80b1adf0313d
class: DirectoryContentsBrowser changed: #getIconFor:
DirectoryContentsBrowser.st
--- 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 $'
 ! !