equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2002 by eXept Software AG |
4 COPYRIGHT (c) 2002 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
3246 |
3248 |
3247 ^ fileName info isDirectory |
3249 ^ fileName info isDirectory |
3248 ! |
3250 ! |
3249 |
3251 |
3250 mimeType |
3252 mimeType |
3251 mimeType isNil ifTrue:[ |
3253 (mimeType isNil or:[mimeType == #unknown]) ifTrue:[ |
3252 mimeType := MIMETypes mimeTypeForFilename:(self fileName). |
3254 mimeType := MIMETypes mimeTypeForFilename:(self fileName). |
3253 mimeType isNil ifTrue:[ |
3255 mimeType isNil ifTrue:[ |
3254 mimeType := #unknown |
3256 mimeType := #unknown |
3255 ] |
3257 ] |
3256 ]. |
3258 ]. |