diff options
| author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-08-01 03:53:38 +0000 |
|---|---|---|
| committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-08-01 03:53:38 +0000 |
| commit | fa7e613552777ce90f3ee37b57f1afcf31adb6ca (patch) | |
| tree | c226213f4ec7f98322a49092467e26eabf4bae06 /ext/tk | |
| parent | 57ed0e468a3765909b5452074d86151d3452fbc9 (diff) | |
| download | ruby-fa7e613552777ce90f3ee37b57f1afcf31adb6ca.tar.gz ruby-fa7e613552777ce90f3ee37b57f1afcf31adb6ca.tar.xz ruby-fa7e613552777ce90f3ee37b57f1afcf31adb6ca.zip | |
* bug fix : forget to eval given block to TkRoot.new method
git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@4256 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk')
| -rw-r--r-- | ext/tk/lib/tk.rb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb index d22f7b43d..a2c4a7d61 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 |