* 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

@@ -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.

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?