*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 04 Jul 2006 11:51:12 +0200
changeset 6810 5f8874df978f
parent 6809 feff4e2a1c4b
child 6811 e510ddf43732
*** empty log message ***
FindFileApplication.st
--- a/FindFileApplication.st	Tue Jul 04 11:42:45 2006 +0200
+++ b/FindFileApplication.st	Tue Jul 04 11:51:12 2006 +0200
@@ -1178,6 +1178,8 @@
     |file fn|
 
     file := self shownList at:entries first.
+    file isText ifTrue:[^ self].
+
     fn := file asFilename.
     fn exists ifFalse:[
         self notify:('%1 does not (no longer ?) exist or is not accessable.' bindWith:file allBold).
@@ -1752,5 +1754,5 @@
 !FindFileApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.77 2006-07-04 09:41:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.78 2006-07-04 09:51:12 cg Exp $'
 ! !