#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Wed, 28 Mar 2018 14:43:53 +0200
changeset 18028 a2b4f242df66
parent 18027 4be2b1bb3a66
child 18029 9a6d028b27ad
#FEATURE by cg class: DirectoryContentsBrowser::DirectoryContentsItem changed: #mimeType
DirectoryContentsBrowser.st
--- a/DirectoryContentsBrowser.st	Tue Mar 27 20:12:53 2018 +0200
+++ b/DirectoryContentsBrowser.st	Wed Mar 28 14:43:53 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -3248,7 +3250,7 @@
 !
 
 mimeType
-    mimeType isNil ifTrue:[
+    (mimeType isNil or:[mimeType == #unknown]) ifTrue:[
         mimeType := MIMETypes mimeTypeForFilename:(self fileName).
         mimeType isNil ifTrue:[
             mimeType := #unknown