* 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
This commit is contained in:
nagai 2003-08-01 03:53:38 +00:00
parent aa9ffb6c80
commit c49c8a942e

View File

@ -3911,7 +3911,7 @@ class TkRoot<TkWindow
Tk_WINDOWS["."] = new Tk_WINDOWS["."] = new
end end
=end =end
def TkRoot.new(keys=nil) def TkRoot.new(keys=nil, &b)
unless TkCore::INTERP.tk_windows['.'] unless TkCore::INTERP.tk_windows['.']
TkCore::INTERP.tk_windows['.'] = TkCore::INTERP.tk_windows['.'] =
super(:without_creating=>true, :widgetname=>'.') super(:without_creating=>true, :widgetname=>'.')
@ -3926,7 +3926,8 @@ class TkRoot<TkWindow
end end
} }
end end
return root root.instance_eval(&b) if block_given?
root
end end
WidgetClassName = 'Tk'.freeze WidgetClassName = 'Tk'.freeze