* 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

@@ -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