diff options
| author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2006-06-18 15:05:01 +0000 |
|---|---|---|
| committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2006-06-18 15:05:01 +0000 |
| commit | 2c0c1e4949ecbb962645d3826edec359b6a10091 (patch) | |
| tree | 3110977452683d8dc94493d0f8fd89a9dc12dd52 /ext/tk/lib | |
| parent | 9c592f9be7275a7fba06a87460674654989979e4 (diff) | |
| download | ruby-2c0c1e4949ecbb962645d3826edec359b6a10091.tar.gz ruby-2c0c1e4949ecbb962645d3826edec359b6a10091.tar.xz ruby-2c0c1e4949ecbb962645d3826edec359b6a10091.zip | |
* ext/tk/lib/multi-tk.rb: fix bug: initialize improper tables
git-svn-id: http://svn.ruby-lang.org/repos/ruby/branches/ruby_1_8@10319 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/lib')
| -rw-r--r-- | ext/tk/lib/multi-tk.rb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/tk/lib/multi-tk.rb b/ext/tk/lib/multi-tk.rb index 8fc99dff7..408dd0fc3 100644 --- a/ext/tk/lib/multi-tk.rb +++ b/ext/tk/lib/multi-tk.rb @@ -1405,7 +1405,7 @@ class MultiTkIp end def _init_ip_env(script) - script.call(self) + self.eval_proc{script.call(self)} end def _add_tk_procs(name, args, body) @@ -1417,7 +1417,8 @@ class MultiTkIp end def _init_ip_internal(init_ip_env, add_tk_procs) - init_ip_env.each{|script| script.call(self)} + #init_ip_env.each{|script| self.eval_proc{script.call(self)}} + init_ip_env.each{|script| self._init_ip_env(script)} add_tk_procs.each{|name, args, body| if master? @interp._invoke('proc', name, args, body) if args && body |