AbstractFileBrowser.st
changeset 10669 079d85556631
parent 10556 0773547f7c71
child 10678 3a574f143d8f
--- a/AbstractFileBrowser.st	Tue Sep 06 10:33:42 2011 +0200
+++ b/AbstractFileBrowser.st	Tue Sep 06 15:53:57 2011 +0200
@@ -2645,10 +2645,11 @@
 openApplByFileItem:anItem
     "/ q: is the following always wanted ?
     self window sensor shiftDown ifFalse:[
-        anItem fileName isExecutableProgram ifTrue:[
-            self executeCommand:anItem fileName pathName.
-            ^ self.
-        ].
+        "/ cg: no - batch and shell scripts are to be
+"/        anItem fileName isExecutableProgram ifTrue:[
+"/            self executeCommand:anItem fileName pathName.
+"/            ^ self.
+"/        ].
 
 "/        OperatingSystem isMSWINDOWSlike ifTrue:[
 "/            Error handle:[:ex |
@@ -2667,6 +2668,8 @@
     ^ self 
         applicationNamed:#FileApplicationNoteBook
         ifPresentDo:[:appl | appl openApplByFileItem:anItem].
+
+    "Modified: / 06-09-2011 / 11:11:15 / cg"
 !
 
 openApplForFile:aFilename
@@ -7504,7 +7507,6 @@
     ^ false
 ! !
 
-
 !AbstractFileBrowser methodsFor:'presentation'!
 
 getModeString:modeBits
@@ -8420,9 +8422,9 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.467 2011-08-08 17:34:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.468 2011-09-06 13:53:57 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.467 2011-08-08 17:34:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.468 2011-09-06 13:53:57 cg Exp $'
 ! !