From a052288d4877c190902f3c29c126ad0811160002 Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 15 Jun 2004 03:12:40 +0000
Subject: * ext/tk/lib/tk.rb: bug fix (TkWindow#grab)

git-svn-id: http://svn.ruby-lang.org/repos/ruby/branches/ruby_1_8@6460 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/lib/tk.rb | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'ext')

diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb
index 5ac6724b8..8462c3064 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
-- 
cgit