From a03dc29bc779c47b6a4ecd8be2b04caf693d0745 Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 5 Nov 2004 07:07:39 +0000
Subject: * ext/tk/lib/tk.rb: TkComm._at() supprts both of "@x,y" and "@x"

git-svn-id: http://svn.ruby-lang.org/repos/ruby/branches/ruby_1_8@7211 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog        | 4 ++++
 ext/tk/lib/tk.rb | 8 ++++++--
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index dc08e4506..4e61de3d7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Fri Nov  5 16:05:32 2004  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* ext/tk/lib/tk.rb: TkComm._at() supprts both of "@x,y" and "@x"
+
 Fri Nov  5 13:22:58 2004  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
 
 	* ext/tk/lib/tk/text.rb: sorry. bug fix again.
diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb
index 404f8bf9f..807ccd228 100644
--- a/ext/tk/lib/tk.rb
+++ b/ext/tk/lib/tk.rb
@@ -179,8 +179,12 @@ module TkComm
   private :_genobj_for_tkwidget
   module_function :_genobj_for_tkwidget
 
-  def _at(x,y)
-    "@#{Integer(x)},#{Integer(y)}"
+  def _at(x,y=nil)
+    if y
+      "@#{Integer(x)},#{Integer(y)}"
+    else
+      "@#{Integer(x)}"
+    end
   end
   module_function :_at
 
-- 
cgit