diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-07-29 08:05:30 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-07-29 08:05:30 +0000 |
commit | 7544bfc130b6d75fd77defff3f47fd06e2ebf9bd (patch) | |
tree | afab7bccab385e1c51a7ef3133a831fca0d97561 /ext/tk/sample/tkfrom.rb | |
parent | 37b2487c7097aa72775f0f3f17f058cfc820dabd (diff) | |
download | ruby-7544bfc130b6d75fd77defff3f47fd06e2ebf9bd.tar.gz |
* bug fix ( tested with Ruby/Tk widget demo )
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4207 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/sample/tkfrom.rb')
-rw-r--r-- | ext/tk/sample/tkfrom.rb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/tk/sample/tkfrom.rb b/ext/tk/sample/tkfrom.rb index 8c3efb8137..e0e7f4810f 100644 --- a/ext/tk/sample/tkfrom.rb +++ b/ext/tk/sample/tkfrom.rb @@ -54,9 +54,9 @@ if ARGV.length == 0 if ENV['MAIL'] ARGV[0] = ENV['MAIL'] elsif ENV['USER'] - ARGV[0] = '/usr/spool/mail/' + ENV['USER'] + ARGV[0] = '/var/spool/mail/' + ENV['USER'] elsif ENV['LOGNAME'] - ARGV[0] = '/usr/spool/mail/' + ENV['LOGNAME'] + ARGV[0] = '/var/spool/mail/' + ENV['LOGNAME'] end end @@ -64,7 +64,7 @@ require "tk" list = scroll = nil TkFrame.new{|f| list = TkListbox.new(f) { - yscroll proc{|idx| + yscroll proc{|*idx| scroll.set *idx } relief 'raised' @@ -94,7 +94,7 @@ root.bind "space", proc{exit} $outcount = 0; for file in ARGV - next if File.exist?(file) + next unless File.exist?(file) atime = File.atime(file) mtime = File.mtime(file) f = open(file, "r") |