--- a/FileBrowser.st	Tue Dec 02 10:41:24 2003 +0100
+++ b/FileBrowser.st	Tue Dec 02 11:09:45 2003 +0100
@@ -272,19 +272,19 @@
 !
 
 iconForKeyMatching:mimeTypeOrKey
-    ^ MimeTypeIconLibrary iconForKeyMatching:mimeTypeOrKey.
+    ^ MIMETypeIconLibrary iconForKeyMatching:mimeTypeOrKey.
 !
 
 iconKeyForFile:aFilenameArg
     "given a fileName, return an appropriate icon"
 
-    ^ MimeTypeIconLibrary iconKeyForFile:aFilenameArg
+    ^ MIMETypeIconLibrary iconKeyForFile:aFilenameArg
 !
 
 iconKeyForRemoteDirectory:aFilenameArg
     "given a fileName, return an appropriate icon"
 
-    ^ MimeTypeIconLibrary iconKeyForRemoteDirectory:aFilenameArg
+    ^ MIMETypeIconLibrary iconKeyForRemoteDirectory:aFilenameArg
 ! !
 
 !FileBrowser class methodsFor:'interface specs'!
@@ -7038,7 +7038,7 @@
 
     "/ global icons
 
-    icn := MimeTypeIconLibrary iconForKey:mimeTypeOrKey.
+    icn := MIMETypeIconLibrary iconForKey:mimeTypeOrKey.
     icn notNil ifTrue:[
         icn := icn copy onDevice:device.
         icn clearMaskedPixels.
@@ -7046,7 +7046,7 @@
         ^ icn
     ].
 
-    assoc := MimeTypeIconLibrary iconForMatchKey:mimeTypeOrKey.
+    assoc := MIMETypeIconLibrary iconForMatchKey:mimeTypeOrKey.
     assoc notNil ifTrue:[
         icn := assoc value copy onDevice:device.
         icn clearMaskedPixels.
@@ -7612,5 +7612,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.552 2003-12-01 17:17:01 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.553 2003-12-02 10:09:45 cg Exp $'
 ! !