equal
deleted
inserted
replaced
229 ! ! |
229 ! ! |
230 |
230 |
231 !MIMETypeIconLibrary class methodsFor:'accessing'! |
231 !MIMETypeIconLibrary class methodsFor:'accessing'! |
232 |
232 |
233 addOnIconsFor:aFilename to:anIcon |
233 addOnIconsFor:aFilename to:anIcon |
234 "given a fileName, return an appropriate icon, |
234 "given a fileName, return an appropriate multi-icon, |
235 especially an overlaid icon if linked or locked" |
235 which adds more symbols to the incoming arg, anIcon. |
|
236 A multi-icon is returned if linked or locked" |
236 |
237 |
237 |addOnIcon addIcns| |
238 |addOnIcon addIcns| |
238 |
239 |
239 aFilename isNil ifTrue:[^ anIcon ]. |
240 aFilename isNil ifTrue:[^ anIcon ]. |
240 anIcon isNil ifTrue:[^ anIcon ]. |
241 anIcon isNil ifTrue:[^ anIcon ]. |
252 addIcns notEmpty ifTrue:[ |
253 addIcns notEmpty ifTrue:[ |
253 addIcns addFirst:anIcon. |
254 addIcns addFirst:anIcon. |
254 ^ MultiImage images:addIcns. |
255 ^ MultiImage images:addIcns. |
255 ]. |
256 ]. |
256 ^ anIcon |
257 ^ anIcon |
|
258 |
|
259 "Modified (comment): / 17-03-2019 / 11:21:25 / Claus Gittinger" |
257 ! |
260 ! |
258 |
261 |
259 fileTypeIconKeyFor:aFilename |
262 fileTypeIconKeyFor:aFilename |
260 "return an icon-key for a fileName. |
263 "return an icon-key for a fileName. |
261 This does not look at the file's suffix or into the file's contents, |
264 This does not look at the file's suffix or into the file's contents, |