diff options
| author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-11-05 07:07:39 +0000 |
|---|---|---|
| committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-11-05 07:07:39 +0000 |
| commit | d237c9e0fc6455a0e8aabc8a219ccb9e282ecca8 (patch) | |
| tree | 276220e8ca6266b80c0d80bfa1e16b66d95f8937 | |
| parent | 1adbc0792590b6b205b531556ef13e322f4b2303 (diff) | |
| download | ruby-d237c9e0fc6455a0e8aabc8a219ccb9e282ecca8.tar.gz ruby-d237c9e0fc6455a0e8aabc8a219ccb9e282ecca8.tar.xz ruby-d237c9e0fc6455a0e8aabc8a219ccb9e282ecca8.zip | |
* ext/tk/lib/tk.rb: TkComm._at() supprts both of "@x,y" and "@x"
git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@7211 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | ext/tk/lib/tk.rb | 8 |
2 files changed, 10 insertions, 2 deletions
@@ -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 |