# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1522241542 -7200
# Node ID 90b625be9e29725efe93e2e2d6f9215682ab75b5
# Parent  294c4b32e0d0c52a84e30337565af140070ce993
#FEATURE by cg
class: MIMETypes class
comment/format in:
	#imageReaderForSuffix:
	#mimeTypeForFilename:
changed: #defineImageType:suffix:reader:info:

diff -r 294c4b32e0d0 -r 90b625be9e29 MIMETypes.st
--- a/MIMETypes.st	Wed Mar 28 14:43:32 2018 +0200
+++ b/MIMETypes.st	Wed Mar 28 14:52:22 2018 +0200
@@ -921,6 +921,9 @@
 defineImageType:mimeType suffix:aSuffix reader:aReaderClass info:info
     "register an image reader."
 
+    "/ flush caches
+    LastSuffix := LastType := nil.
+
     aSuffix notNil ifTrue:[
         self imageReaderForSuffix:aSuffix put:aReaderClass.
     ].
@@ -1396,6 +1399,10 @@
     ].
     ^ FileSuffixToImageReaderClassMapping at:aSuffix asLowercase ifAbsent:nil
 
+    "
+     self imageReaderForSuffix:'wbmp'
+    "
+
     "Created: / 30-06-1997 / 21:59:11 / cg"
     "Modified: / 01-08-1998 / 17:01:58 / cg"
     "Modified (comment): / 01-03-2018 / 18:57:59 / mawalch"