diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2006-06-27 13:51:45 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2006-06-27 13:51:45 +0000 |
commit | 3764541f8efcd85cc4338040e398bdfb4fd5cdee (patch) | |
tree | ce7d14afd51c5d9f78d490335e3b5d6bce4e58cb /ext/tk/lib | |
parent | 76f1a4f010870cea8b792bad493fc0c0e4abea36 (diff) |
* ext/tk/tcltklib.c: forgot to update TCLTKLIB_RELEASE_DATE.
* ext/tk/lib/tk.rb (tk_tcl2ruby): [bug fix] somtimes fail to convert
a tcl string to a ruby object if the tcl string includes "\n".
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@10410 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/lib')
-rw-r--r-- | ext/tk/lib/tk.rb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb index 45468a3bfd..c80dc45ea5 100644 --- a/ext/tk/lib/tk.rb +++ b/ext/tk/lib/tk.rb @@ -209,17 +209,17 @@ module TkComm # return val.split.collect{|v| tk_tcl2ruby(v)} #end case val - when /^@font/ + when /\A@font\S+\z/ TkFont.get_obj(val) - when /^-?\d+$/ + when /\A-?\d+\z/ val.to_i - when /^\./ + when /\A\.\S*\z/ #Tk_WINDOWS[val] ? Tk_WINDOWS[val] : _genobj_for_tkwidget(val) TkCore::INTERP.tk_windows[val]? TkCore::INTERP.tk_windows[val] : _genobj_for_tkwidget(val) - when /^i(_\d+_)?\d+$/ + when /\Ai(_\d+_)?\d+\z/ TkImage::Tk_IMGTBL[val]? TkImage::Tk_IMGTBL[val] : val - when /^-?\d+\.?\d*(e[-+]?\d+)?$/ + when /\A-?\d+\.?\d*(e[-+]?\d+)?\z/ val.to_f when /\\ / val.gsub(/\\ /, ' ') @@ -4559,7 +4559,7 @@ end #Tk.freeze module Tk - RELEASE_DATE = '2006-04-18'.freeze + RELEASE_DATE = '2006-06-27'.freeze autoload :AUTO_PATH, 'tk/variable' autoload :TCL_PACKAGE_PATH, 'tk/variable' |