equal
deleted
inserted
replaced
1253 |cachedType newType| |
1253 |cachedType newType| |
1254 |
1254 |
1255 aString class == self ifTrue:[^ aString]. |
1255 aString class == self ifTrue:[^ aString]. |
1256 |
1256 |
1257 CachedTypes isNil ifTrue:[ |
1257 CachedTypes isNil ifTrue:[ |
1258 CachedTypes := CacheDictionary new:100. |
1258 CachedTypes := Dictionary new:100. |
1259 ]. |
1259 ]. |
1260 cachedType := CachedTypes at:aString ifAbsent:nil. |
1260 cachedType := CachedTypes at:aString ifAbsent:nil. |
1261 cachedType notNil ifTrue:[^ cachedType]. |
1261 cachedType notNil ifTrue:[^ cachedType]. |
1262 |
1262 |
1263 newType := aString copy changeClassTo:self. |
1263 newType := aString copy changeClassTo:self. |
1266 |
1266 |
1267 " |
1267 " |
1268 self fromString:'text/html' |
1268 self fromString:'text/html' |
1269 " |
1269 " |
1270 |
1270 |
1271 "Modified: / 20-07-2012 / 17:32:37 / cg" |
1271 "Modified: / 20-07-2012 / 17:36:31 / cg" |
1272 ! ! |
1272 ! ! |
1273 |
1273 |
1274 !MIMETypes::MIMEType methodsFor:'queries'! |
1274 !MIMETypes::MIMEType methodsFor:'queries'! |
1275 |
1275 |
1276 isArchive |
1276 isArchive |
1336 ! ! |
1336 ! ! |
1337 |
1337 |
1338 !MIMETypes class methodsFor:'documentation'! |
1338 !MIMETypes class methodsFor:'documentation'! |
1339 |
1339 |
1340 version |
1340 version |
1341 ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.121 2012-07-20 15:34:32 cg Exp $' |
1341 ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.122 2012-07-20 15:37:50 cg Exp $' |
1342 ! |
1342 ! |
1343 |
1343 |
1344 version_CVS |
1344 version_CVS |
1345 ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.121 2012-07-20 15:34:32 cg Exp $' |
1345 ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.122 2012-07-20 15:37:50 cg Exp $' |
1346 ! ! |
1346 ! ! |
1347 |
1347 |
1348 MIMETypes initialize! |
1348 MIMETypes initialize! |