--- 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!