From 60976b119fc87722a52fe886b1cb3a76592f1d11 Mon Sep 17 00:00:00 2001 From: nagai Date: Sun, 18 Jun 2006 15:05:01 +0000 Subject: * ext/tk/lib/multi-tk.rb: fix bug: initialize improper tables git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@10319 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/tk/lib/multi-tk.rb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'ext') diff --git a/ext/tk/lib/multi-tk.rb b/ext/tk/lib/multi-tk.rb index 8fc99dff73..408dd0fc30 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 -- cgit v1.2.3