* MultiTkIp.new_* accept a block to eval under the new interpreter

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

1 files changed, 12 insertions, 6 deletions

diff --git a/ext/tk/lib/multi-tk.rb b/ext/tk/lib/multi-tk.rb
index 06d21d2f0a..438c3c0816 100644
--- a/ext/tk/lib/multi-tk.rb
+++ b/ext/tk/lib/multi-tk.rb
@@ -501,19 +501,25 @@ class << MultiTkIp
   alias __new new
   private :__new
 
-  def new_master(keys={})
-    __new(__getip, nil, keys)
+  def new_master(keys={}, &b)
+    ip = __new(__getip, nil, keys)
+    ip.eval_proc(&b) if b
+    ip
   end
 
   alias new new_master
 
-  def new_slave(keys={})
-    __new(__getip, false, keys)
+  def new_slave(keys={}, &b)
+    ip = __new(__getip, false, keys)
+    ip.eval_proc(&b) if b
+    ip
   end
   alias new_trusted_slave new_master
 
-  def new_safe_slave(keys={})
-    __new(__getip, true, keys)
+  def new_safe_slave(keys={},&b)
+    ip = __new(__getip, true, keys)
+    ip.eval_proc(&b) if b
+    ip
   end
   alias new_safeTk new_safe_slave
 end