* ext/tk/lib/tk.rb: TkComm._at() supprts both of "@x,y" and "@x"

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@7211 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 6 insertions, 2 deletions

diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb
index 404f8bf9f8..807ccd2285 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