--- a/MIMETypeIconLibrary.st	Wed Jun 09 17:33:32 2010 +0200
+++ b/MIMETypeIconLibrary.st	Wed Jul 07 15:42:18 2010 +0200
@@ -48,6 +48,7 @@
     matchedIcons := OrderedCollection new.
     fileNameToImageMap := Dictionary new.
 
+
     defaults := Dictionary new.
     #(
         "/ internal-type to icon mappings.
@@ -145,6 +146,9 @@
         'application/x-shar'                            'tiny_file_archive.xpm'
         'application/java-archive'                      'tiny_file_archive.xpm'
 
+        'application/x-expecco-testsuite'               'tiny_file_ets.gif'
+        'application/x-expecco-logfile'                 'tiny_file_elf.gif'
+
         '*'                                             'tiny_file_plain.xpm'
      ) pairWiseDo:[:fileTypeOrMimeTypePattern :baseName |
         defaults at:fileTypeOrMimeTypePattern put:baseName.
@@ -277,7 +281,11 @@
 !MIMETypeIconLibrary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypeIconLibrary.st,v 1.15 2007-12-11 10:45:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypeIconLibrary.st,v 1.16 2010-07-07 13:42:18 ca Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypeIconLibrary.st,v 1.16 2010-07-07 13:42:18 ca Exp $'
 ! !
 
 MIMETypeIconLibrary initialize!