* 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:
parent
aa9ffb6c80
commit
c49c8a942e
@ -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
|
||||||
|
Loading…
x
Reference in New Issue
Block a user