--- a/MIMETypes.st Thu Nov 11 10:14:01 2004 +0100
+++ b/MIMETypes.st Fri Nov 12 12:00:57 2004 +0100
@@ -436,6 +436,10 @@
^ self windowsSpecificTypeList
].
^ self unixSpecificTypeList
+
+"
+ self osSpecificTypeList
+"
!
textTypeList
@@ -671,6 +675,16 @@
^ FileSuffixToTypeMapping
!
+mimeTypeFromString:mimeTypeString
+ "given a mime-type for a string"
+
+ ^ MIMEType fromString:mimeTypeString
+
+ "
+ self mimeTypeFromString:'image/gif'
+ "
+!
+
mimeTypeOfContents:filename
"given a filename, scan the contents, return the mime-type or nil, if unknown"
@@ -957,7 +971,7 @@
!MIMETypes class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.75 2004-10-18 13:48:30 penk Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.76 2004-11-12 11:00:57 penk Exp $'
! !
MIMETypes initialize!