equal
deleted
inserted
replaced
2153 ! |
2153 ! |
2154 |
2154 |
2155 getIconFor:anItem |
2155 getIconFor:anItem |
2156 |icon| |
2156 |icon| |
2157 |
2157 |
2158 icon := self class iconForKeyMatching:anItem iconKey. |
2158 icon := MIMETypeIconLibrary iconForKeyMatching:anItem iconKey. |
2159 anItem isRemoteDirectory ifTrue:[ |
2159 anItem isRemoteDirectory ifTrue:[ |
2160 ^ icon "/ do not query attributes |
2160 ^ icon "/ do not query attributes |
2161 ]. |
2161 ]. |
2162 ^ MIMETypeIconLibrary addOnIconsFor:(anItem fileName) to:icon. |
2162 ^ MIMETypeIconLibrary addOnIconsFor:(anItem fileName) to:icon. |
2163 ! |
2163 ! |
3447 ! ! |
3447 ! ! |
3448 |
3448 |
3449 !DirectoryContentsBrowser class methodsFor:'documentation'! |
3449 !DirectoryContentsBrowser class methodsFor:'documentation'! |
3450 |
3450 |
3451 version |
3451 version |
3452 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.259 2014-04-08 22:31:38 stefan Exp $' |
3452 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.260 2014-04-09 07:16:22 stefan Exp $' |
3453 ! |
3453 ! |
3454 |
3454 |
3455 version_CVS |
3455 version_CVS |
3456 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.259 2014-04-08 22:31:38 stefan Exp $' |
3456 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.260 2014-04-09 07:16:22 stefan Exp $' |
3457 ! ! |
3457 ! ! |
3458 |
3458 |