From 58f1ea99d711f94f11d8792a043a9ef8c5c74cef Mon Sep 17 00:00:00 2001
From: ocean <ocean@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sat, 9 Apr 2005 05:28:19 +0000
Subject: [PATCH] * ext/tk/sample/tkextlib/treectrl/explorer.rb:
 File.executable? returns true   even if it's plain text file. (this function
 only checks access right)

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8287 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/ChangeLog.tkextlib                   |  5 +++++
 ext/tk/sample/tkextlib/treectrl/explorer.rb | 12 ++----------
 2 files changed, 7 insertions(+), 10 deletions(-)

diff --git a/ext/tk/ChangeLog.tkextlib b/ext/tk/ChangeLog.tkextlib
index ed1db59490..16b5da280a 100644
--- a/ext/tk/ChangeLog.tkextlib
+++ b/ext/tk/ChangeLog.tkextlib
@@ -1,3 +1,8 @@
+2005-04-09  ocean  <ocean@ruby-lang.org>
+
+	* sample/tkextlib/treectrl/explorer.rb: File.executable? returns true
+	  even if it's plain text file. (this function only checks access right)
+
 2005-04-09  ocean  <ocean@ruby-lang.org>
 
 	* sample/tkextlib/treectrl/{help,www-options}.rb: fixed typo.
diff --git a/ext/tk/sample/tkextlib/treectrl/explorer.rb b/ext/tk/sample/tkextlib/treectrl/explorer.rb
index 8398cac199..b384fb7c8e 100644
--- a/ext/tk/sample/tkextlib/treectrl/explorer.rb
+++ b/ext/tk/sample/tkextlib/treectrl/explorer.rb
@@ -307,11 +307,7 @@ def demoExplorerLargeIcons(t)
     when '.txt'
       img = 'big-txt'
     else
-      if FileTest.executable?(file)
-        img = 'big-exe'
-      else
-        img = 'big-file'
-      end
+      img = 'big-file'
     end
 
     type = ext.upcase
@@ -414,11 +410,7 @@ def demoExplorerList(t)
     when '.txt'
       img = 'small-txt'
     else
-      if FileTest.executable?(file)
-        img = 'small-exe'
-      else
-        img = 'small-file'
-      end
+      img = 'small-file'
     end
 
     type = ext.upcase