--- a/MIMETypes.st Fri May 18 18:50:04 2001 +0200
+++ b/MIMETypes.st Fri May 18 19:32:38 2001 +0200
@@ -440,12 +440,13 @@
"Modified: / 1.8.1998 / 17:02:40 / cg"
!
-mimeTypeForFilename:filename
+mimeTypeForFilename:filenameArg
"given a filename, return the mime-type or nil, if unknown"
- |type lcFilename suff|
+ |type filename lcFilename suff|
- lcFilename := filename asFilename name asLowercase.
+ filename := filenameArg asFilename.
+ lcFilename := filename name asLowercase.
type := FilenameToTypeMapping at:lcFilename ifAbsent:nil.
type isNil ifTrue:[
"/ allow for fallback ...
@@ -463,7 +464,7 @@
].
type isNil ifTrue:[
- suff := filename asFilename suffix.
+ suff := filename suffix.
suff size ~~ 0 ifTrue:[
^ self mimeTypeForSuffix:suff
]
@@ -529,6 +530,6 @@
!MIMETypes class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.29 2001-05-18 16:50:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.30 2001-05-18 17:32:38 cg Exp $'
! !
MIMETypes initialize!