diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-06-15 03:12:40 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-06-15 03:12:40 +0000 |
commit | 8335f4254342066c5a428542eb16f7a9794c24ec (patch) | |
tree | 35ea4356446923ce5b969f3de9c65aa4ff1f66b5 /ext | |
parent | 0311a8ab19924540e0d92dee721cce7f6a5aeae8 (diff) |
* ext/tk/lib/tk.rb: bug fix (TkWindow#grab)
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@6460 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext')
-rw-r--r-- | ext/tk/lib/tk.rb | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb index 5ac6724b84..8462c3064c 100644 --- a/ext/tk/lib/tk.rb +++ b/ext/tk/lib/tk.rb @@ -2706,6 +2706,9 @@ class TkWindow<TkObject end case opt + when 'set', :set + tk_call_without_enc('grab', 'set', path) + return self when 'global', :global #return(tk_call('grab', 'set', '-global', path)) tk_call_without_enc('grab', 'set', '-global', path) @@ -2719,22 +2722,26 @@ class TkWindow<TkObject when 'status', :status return tk_call_without_enc('grab', 'status', path) else - return tk_call_without_enc('grab', args[0], path) + return tk_call_without_enc('grab', opt, path) end end def grab_current grab('current') end + alias current_grab grab_current def grab_release grab('release') end + alias release_grab grab_release def grab_set grab('set') end + alias set_grab grab_set def grab_set_global grab('global') end + alias set_global_grab grab_set_global def grab_status grab('status') end |