--- a/FileBrowser.st	Mon Dec 01 15:53:04 2003 +0100
+++ b/FileBrowser.st	Mon Dec 01 18:17:01 2003 +0100
@@ -262,22 +262,6 @@
     ^ aIcon
 !
 
-fileTypeIconKeyFor:aFilename
-    aFilename isSymbolicLink ifTrue:[
-        ^ #symbolicLink.
-    ].
-    aFilename isDirectory ifTrue:[
-        ^ #directory.
-    ].
-    aFilename isSpecialFile ifTrue:[
-        ^ #specialFile.
-    ].
-    aFilename isExecutableProgram ifTrue:[
-        ^ #executableFile
-    ].
-    ^ #file.
-!
-
 iconForFile:aFilename
     "given a fileName, return an appropriate icon"
 
@@ -294,31 +278,13 @@
 iconKeyForFile:aFilenameArg
     "given a fileName, return an appropriate icon"
 
-    |aFilename fileType mimeType suffix|
-
-    aFilename := aFilenameArg.
-
-    aFilenameArg isFilename ifTrue:[
-        fileType := self fileTypeIconKeyFor:aFilename.
-    ] ifFalse:[
-        fileType := #file
-    ].
-
-    (fileType == #directory) ifFalse:[
-        suffix := aFilename suffix.
-        (suffix = 'bak' or:[suffix = 'sav']) ifTrue:[
-            aFilename := aFilename withoutSuffix.
-        ].
-        mimeType := MIMETypes mimeTypeForFilename:aFilename.
-    ].
-
-    ^ (mimeType ? fileType).
+    ^ MimeTypeIconLibrary iconKeyForFile:aFilenameArg
 !
 
 iconKeyForRemoteDirectory:aFilenameArg
     "given a fileName, return an appropriate icon"
 
-    ^ #directoryNetwork
+    ^ MimeTypeIconLibrary iconKeyForRemoteDirectory:aFilenameArg
 ! !
 
 !FileBrowser class methodsFor:'interface specs'!
@@ -7646,5 +7612,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.551 2003-12-01 14:53:04 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.552 2003-12-01 17:17:01 penk Exp $'
 ! !