From de804fe2350e2c3a1f6c9f92dad0e63f8495aa23 Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sat, 17 Jul 2004 14:57:33 +0000
Subject: [PATCH] * ext/tk/lib/tk/variable.rb: TkVariable#ref returns a
 TkVariable object

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@6663 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog                 | 4 ++++
 ext/tk/lib/tk/variable.rb | 3 ++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 78286d7375..0aaaca39ad 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Sat Jul 17 23:54:59 2004  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* ext/tk/lib/tk/variable.rb: TkVariable#ref returns a TkVariable object
+
 Sat Jul 17 22:04:44  akira yamada  <akira@ruby-lang.org>
 
 	* lib/uri/ldap.rb: method hierarchical? should be in URI::LDAP.
diff --git a/ext/tk/lib/tk/variable.rb b/ext/tk/lib/tk/variable.rb
index 22b17eb0e1..97d18e4a50 100644
--- a/ext/tk/lib/tk/variable.rb
+++ b/ext/tk/lib/tk/variable.rb
@@ -235,7 +235,8 @@ TkCore::INTERP.add_tk_procs('rb_var', 'args', <<-'EOL')
   end
 
   def ref(*idxs)
-    "#{@id}(#{idxs.collect{|idx| _get_eval_string(idx)}.join(',')})"
+    # "#{@id}(#{idxs.collect{|idx| _get_eval_string(idx)}.join(',')})"
+    TkVarAccess.new("#{@id}(#{idxs.collect{|idx| _get_eval_string(idx)}.join(',')})")
   end
 
   def is_hash?