From efb806f46c702eabb86e3911f3b5375bf7d6c1b9 Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 27 Jun 2006 13:51:45 +0000
Subject: * 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/trunk@10410 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/lib/tk.rb  | 12 ++++++------
 ext/tk/tcltklib.c |  2 +-
 2 files changed, 7 insertions(+), 7 deletions(-)

(limited to 'ext')

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'
diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c
index 0505dfd1a5..00c7e658c5 100644
--- a/ext/tk/tcltklib.c
+++ b/ext/tk/tcltklib.c
@@ -4,7 +4,7 @@
  *              Oct. 24, 1997   Y. Matsumoto
  */
 
-#define TCLTKLIB_RELEASE_DATE "2006-04-25"
+#define TCLTKLIB_RELEASE_DATE "2006-06-26"
 
 #include "ruby.h"
 #include "rubysig.h"
-- 
cgit v1.2.3