# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1152006672 -7200
# Node ID 5f8874df978f3b07bdb78dfbdea9403de01a6b4c
# Parent  feff4e2a1c4b4028b718aa4c3af4c92fa8f1249b
*** empty log message ***

diff -r feff4e2a1c4b -r 5f8874df978f 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 $'
 ! !