equal
deleted
inserted
replaced
2163 ! |
2163 ! |
2164 |
2164 |
2165 getIconForMimeType:mime for:anItem |
2165 getIconForMimeType:mime for:anItem |
2166 |currentIcon newIcon images| |
2166 |currentIcon newIcon images| |
2167 |
2167 |
2168 newIcon := self class iconForKeyMatching:mime. |
2168 newIcon := MIMETypeIconLibrary iconForKeyMatching:mime. |
2169 currentIcon := anItem iconOrNil. |
2169 currentIcon := anItem iconOrNil. |
2170 |
2170 |
2171 (currentIcon notNil and:[currentIcon class == MultiImage]) ifTrue:[ |
2171 (currentIcon notNil and:[currentIcon class == MultiImage]) ifTrue:[ |
2172 images := currentIcon images. |
2172 images := currentIcon images. |
2173 images removeFirst. |
2173 images removeFirst. |
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.260 2014-04-09 07:16:22 stefan Exp $' |
3452 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.261 2014-04-09 07:36:00 stefan Exp $' |
3453 ! |
3453 ! |
3454 |
3454 |
3455 version_CVS |
3455 version_CVS |
3456 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.260 2014-04-09 07:16:22 stefan Exp $' |
3456 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.261 2014-04-09 07:36:00 stefan Exp $' |
3457 ! ! |
3457 ! ! |
3458 |
3458 |