# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1486660904 -3600
# Node ID 5d4df7d04f64489301f3fd499f0a13271871b9c0
# Parent  d60663c87c6190b0af4ae9520d00fa95fed42fec
#REFACTORING by stefan
class: MIMETypeIconLibrary
changed: #iconKeyForFile:
    Refactor: use #asNonBackupFilename

diff -r d60663c87c61 -r 5d4df7d04f64 MIMETypeIconLibrary.st
--- a/MIMETypeIconLibrary.st	Wed Feb 08 19:44:06 2017 +0100
+++ b/MIMETypeIconLibrary.st	Thu Feb 09 18:21:44 2017 +0100
@@ -332,7 +332,6 @@
     |filename fileType mimeType suffix|
 
     filename := aFilenameArg asFilename.
-
     fileType := self fileTypeIconKeyFor:filename.
 
     (fileType ~~ #directory) ifTrue:[
@@ -340,10 +339,12 @@
         (suffix = 'bak' or:[suffix = 'sav']) ifTrue:[
             filename := filename withoutSuffix.
         ].
-        mimeType := MIMETypes mimeTypeForFilename:filename.
+        mimeType := MIMETypes mimeTypeForFilename:filename asNonBackupFilename.
     ].
 
     ^ mimeType ? fileType.
+
+    "Modified: / 09-02-2017 / 14:03:16 / stefan"
 !
 
 iconKeyForRemoteDirectory:aFilenameArg
@@ -623,11 +624,11 @@
 !MIMETypeIconLibrary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypeIconLibrary.st,v 1.30 2015-01-26 10:11:25 stefan Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypeIconLibrary.st,v 1.30 2015-01-26 10:11:25 stefan Exp $'
+    ^ '$Header$'
 ! !