class: FileApplicationNoteBook
authorClaus Gittinger <cg@exept.de>
Fri, 14 Nov 2014 16:00:32 +0100
changeset 14836 1b64d6930357
parent 14835 239d36d19ee2
child 14837 d7de71154d37
class: FileApplicationNoteBook changed: #openApplByFileItem:
FileApplicationNoteBook.st
--- a/FileApplicationNoteBook.st	Fri Nov 14 15:46:00 2014 +0100
+++ b/FileApplicationNoteBook.st	Fri Nov 14 16:00:32 2014 +0100
@@ -544,13 +544,15 @@
                 appl notNil ifTrue:[ ^ appl].
             ].
         ].
-        "/ fallback: open a system utility
-        OperatingSystem 
-            openApplicationForDocument:anItem fileName 
-            operation:#open
-            mimeType:nil 
-            ifNone:[self openDefaultApplicationByItem:anItem].
-        ^ nil.
+        (anItem fileName mimeTypeOfContents startsWith:'text') ifFalse:[
+            "/ fallback: open a system utility
+            OperatingSystem 
+                openApplicationForDocument:anItem fileName 
+                operation:#open
+                mimeType:nil 
+                ifNone:[self openDefaultApplicationByItem:anItem].
+            ^ nil.
+        ].            
     ].
 
     ^ self openDefaultApplicationByItem:anItem.
@@ -7470,10 +7472,10 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.305 2014-11-10 22:26:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.306 2014-11-14 15:00:32 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.305 2014-11-10 22:26:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.306 2014-11-14 15:00:32 cg Exp $'
 ! !