#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Fri, 13 Jul 2018 16:59:25 +0200
changeset 18266 0e62cddf5604
parent 18265 3970782ebc21
child 18267 47442c2abf83
#UI_ENHANCEMENT by cg class: FileApplicationNoteBook::XMLViewApplication class changed: #canOpenItem:
FileApplicationNoteBook.st
--- a/FileApplicationNoteBook.st	Thu Jul 12 21:45:02 2018 +0200
+++ b/FileApplicationNoteBook.st	Fri Jul 13 16:59:25 2018 +0200
@@ -7218,11 +7218,15 @@
     |mime|
     
     (Smalltalk at:#'XML::XMLInspector') isNil ifTrue:[^ false].
-    ((mime := anItem mimeType) isNil or:[ mime == #unknown]) ifTrue:[^ false].
+    ((mime := anItem mimeType) isNil or:[ mime == #unknown]) ifTrue:[
+        mime := anItem fileName mimeTypeOfContents
+    ].    
+    (mime isNil or:[ mime == #unknown]) ifTrue:[^ false].
     
     ^ mime isXmlType
 
     "Modified: / 17-02-2011 / 13:34:08 / cg"
+    "Modified: / 13-07-2018 / 16:59:03 / Claus Gittinger"
 !
 
 wantNewApplicationAnyway