equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2002 by eXept Software AG |
2 COPYRIGHT (c) 2002 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
3164 <resource: #programImage> |
3162 <resource: #programImage> |
3165 |
3163 |
3166 "answer the icon displayed in the table widget; if the icon is unspecified, |
3164 "answer the icon displayed in the table widget; if the icon is unspecified, |
3167 and the fileInfo is set a default icon is returned otherwise nil" |
3165 and the fileInfo is set a default icon is returned otherwise nil" |
3168 |
3166 |
3169 |key| |
3167 |key target| |
3170 |
3168 |
3171 icon notNil ifTrue:[^ icon ]. |
3169 icon notNil ifTrue:[^ icon ]. |
3172 |
3170 |
3173 key := #file. "/ default |
3171 key := #file. "/ default |
3174 |
3172 |
3180 |
3178 |
3181 self isDirectory ifTrue:[ |
3179 self isDirectory ifTrue:[ |
3182 key := #directory. |
3180 key := #directory. |
3183 ] ifFalse:[ |
3181 ] ifFalse:[ |
3184 self isSymbolicLink ifTrue:[ |
3182 self isSymbolicLink ifTrue:[ |
3185 key := #fileLink |
3183 ((target := fileInfo targetPath asFilename) exists |
|
3184 and:[target isDirectory ]) ifTrue:[ |
|
3185 key := #directoryLink |
|
3186 ] ifFalse:[ |
|
3187 key := #fileLink |
|
3188 ]. |
3186 ] ifFalse:[ |
3189 ] ifFalse:[ |
3187 key := #file |
3190 key := #file |
3188 ]. |
3191 ]. |
3189 ]. |
3192 ]. |
3190 ]. |
3193 ]. |
3191 ^ MIMETypeIconLibrary iconForKey:key. |
3194 ^ MIMETypeIconLibrary iconForKey:key. |
3192 |
3195 |
3193 "Modified: / 30-07-2018 / 16:30:16 / Claus Gittinger" |
3196 "Modified: / 25-10-2018 / 11:04:22 / Claus Gittinger" |
3194 ! |
3197 ! |
3195 |
3198 |
3196 icon:anIcon |
3199 icon:anIcon |
3197 |
3200 |
3198 icon := anIcon. |
3201 icon := anIcon. |