--- a/Image.st	Fri Jun 27 16:47:09 1997 +0200
+++ b/Image.st	Fri Jun 27 19:13:19 1997 +0200
@@ -1562,6 +1562,27 @@
     "
 
     "Created: 18.4.1997 / 14:55:28 / cg"
+!
+
+mimeTypeFromSuffix:suffix
+    "search my suffix information for a mime type and
+     return it; return nil if unknown"
+
+    |rdr|
+
+    rdr := FileFormats at:suffix ifAbsent:nil.
+    rdr isNil ifTrue:[
+        ^ nil
+    ].
+    ^ MIMETypes keyAtValue:rdr ifAbsent:nil
+
+    "
+     Image mimeTypeFromSuffix:'gif'      
+     Image mimeTypeFromSuffix:'tiff'    
+     Image mimeTypeFromSuffix:'foobar'  
+    "
+
+    "Modified: 27.6.1997 / 19:10:24 / cg"
 ! !
 
 !Image class methodsFor:'screen capture'!
@@ -10966,6 +10987,6 @@
 !Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.211 1997-06-27 14:47:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.212 1997-06-27 17:13:19 cg Exp $'
 ! !
 Image initialize!