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 | a03dc29bc779c47b6a4ecd8be2b04caf693d0745 (patch) | |
| tree | 39d32b1927247b9c1daca409d1e1e443f77cba1b | |
| parent | 49ef9eee77183e390690d2d5ec4fae2162ba772f (diff) | |
| download | ruby-a03dc29bc779c47b6a4ecd8be2b04caf693d0745.tar.gz ruby-a03dc29bc779c47b6a4ecd8be2b04caf693d0745.tar.xz ruby-a03dc29bc779c47b6a4ecd8be2b04caf693d0745.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/branches/ruby_1_8@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 |