From da228255d17ce6fb1dd1f0db49473a6eda741ee2 Mon Sep 17 00:00:00 2001 From: nagai Date: Wed, 30 Mar 2005 15:43:42 +0000 Subject: * sample/tkextlib/iwidgets/sample/hierarchy.rb: fail to treat Japanese (i18n?) filenames. git-svn-id: http://svn.ruby-lang.org/repos/ruby/branches/ruby_1_8@8222 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/tk/sample/tkextlib/iwidgets/sample/hierarchy.rb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'ext/tk/sample') diff --git a/ext/tk/sample/tkextlib/iwidgets/sample/hierarchy.rb b/ext/tk/sample/tkextlib/iwidgets/sample/hierarchy.rb index c83ae3724..9e4417669 100644 --- a/ext/tk/sample/tkextlib/iwidgets/sample/hierarchy.rb +++ b/ext/tk/sample/tkextlib/iwidgets/sample/hierarchy.rb @@ -3,11 +3,11 @@ require 'tk' require 'tkextlib/iwidgets' def get_files(file) - dir = (file.empty?)? ENV['HOME'] : file + dir = (file.empty?)? ENV['HOME'] : TkComm._fromUTF8(file) Dir.chdir(dir) rescue return '' - rlist = [] - Dir['*'].sort.each{|f| rlist << File.join(dir, f) } - rlist + Dir['*'].sort.collect{|f| + TkCore::INTERP._merge_tklist(TkComm._toUTF8(File.join(dir, f))) + } end Tk::Iwidgets::Hierarchy.new(:querycommand=>proc{|arg| get_files(arg.node)}, -- cgit