--- a/MIMETypes.st	Mon Jun 30 22:35:35 1997 +0200
+++ b/MIMETypes.st	Mon Jun 30 22:56:45 1997 +0200
@@ -95,6 +95,22 @@
 
 !MIMETypes class methodsFor:'accessing'!
 
+defineImageType:mimeType suffix:aSuffix reader:aReaderClass
+    "register an image reader."
+
+    aSuffix notNil ifTrue:[
+        self imageReaderForSuffix:aSuffix put:aReaderClass.
+    ].
+
+    mimeType notNil ifTrue:[
+        self imageReaderForType:mimeType put:aReaderClass
+    ].
+
+    (aSuffix notNil and:[mimeType notNil]) ifTrue:[
+        self mimeTypeForSuffix:aSuffix put:mimeType
+    ].
+!
+
 fileSuffixToImageReaderMapping
     ^ FileSuffixToImageReaderClassMapping ? #()
 
@@ -185,6 +201,6 @@
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.3 1997-06-30 20:35:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.4 1997-06-30 20:55:58 cg Exp $'
 ! !
 MIMETypes initialize!