From c49c8a942e632d8ead1f70cc49f6fb4783bb28ca Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 1 Aug 2003 03:53:38 +0000
Subject: * bug fix : forget to eval given block to TkRoot.new method

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4256 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/lib/tk.rb | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'ext/tk')

diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb
index d22f7b43d7..a2c4a7d61f 100644
--- a/ext/tk/lib/tk.rb
+++ b/ext/tk/lib/tk.rb
@@ -3911,7 +3911,7 @@ class TkRoot<TkWindow
     Tk_WINDOWS["."] = new
   end
 =end
-  def TkRoot.new(keys=nil)
+  def TkRoot.new(keys=nil, &b)
     unless TkCore::INTERP.tk_windows['.']
       TkCore::INTERP.tk_windows['.'] = 
 	super(:without_creating=>true, :widgetname=>'.')
@@ -3926,7 +3926,8 @@ class TkRoot<TkWindow
 	end
       }
     end
-    return root
+    root.instance_eval(&b) if block_given?
+    root
   end
 
   WidgetClassName = 'Tk'.freeze
-- 
cgit v1.2.3