#FEATURE
authorClaus Gittinger <cg@exept.de>
Thu, 12 Nov 2015 20:46:17 +0100
changeset 15935 db25457b04b4
parent 15933 6d96850e24d3
child 15936 4d0368c047f5
#FEATURE class: FileApplicationNoteBook xml/xsd presentation
FileApplicationNoteBook.st
--- a/FileApplicationNoteBook.st	Thu Oct 29 15:59:33 2015 +0100
+++ b/FileApplicationNoteBook.st	Thu Nov 12 20:46:17 2015 +0100
@@ -6925,9 +6925,12 @@
 !FileApplicationNoteBook::XMLViewApplication class methodsFor:'queries'!
 
 canOpenItem:anItem
+    |mime|
+    
     (Smalltalk at:#'XML::XMLInspector') isNil ifTrue:[^ false].
-
-    ^ (anItem hasMimeType and:[anItem mimeType isXmlType])
+    ((mime := anItem mimeType) isNil or:[ mime == #unknown]) ifTrue:[^ false].
+    
+    ^ mime isXmlType
 
     "Modified: / 17-02-2011 / 13:34:08 / cg"
 !