diff options
| author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-09-17 01:44:28 +0000 |
|---|---|---|
| committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-09-17 01:44:28 +0000 |
| commit | 0ac141513715e39c4a1eaf5d1b942462269ffcd2 (patch) | |
| tree | 0c86f84cefb69e2368590ccb095cc089784e2166 /ext/tk/lib | |
| parent | 69f10cab7ab8fa737c6f848bccde97b4bbe4871d (diff) | |
| download | ruby-0ac141513715e39c4a1eaf5d1b942462269ffcd2.tar.gz ruby-0ac141513715e39c4a1eaf5d1b942462269ffcd2.tar.xz ruby-0ac141513715e39c4a1eaf5d1b942462269ffcd2.zip | |
* ext/tk/lib/multi-tk.rb: MultiTkIp#eval_string and bg_eval_string
should call Kernel.eval on caller's safe-level instead of slave's
safe-level (Of course, the given script should be evaluated on
slave's safe-level).
git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@9191 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/lib')
| -rw-r--r-- | ext/tk/lib/multi-tk.rb | 8 | ||||
| -rw-r--r-- | ext/tk/lib/tk.rb | 2 |
2 files changed, 5 insertions, 5 deletions
diff --git a/ext/tk/lib/multi-tk.rb b/ext/tk/lib/multi-tk.rb index fd1b511e0..d10e304a3 100644 --- a/ext/tk/lib/multi-tk.rb +++ b/ext/tk/lib/multi-tk.rb @@ -1577,8 +1577,8 @@ class MultiTkIp eval_proc_core(true, proc{|safe| - $SAFE=safe if $SAFE < safe - Kernel.eval(cmd, *eval_args) + Kernel.eval("$SAFE=#{safe} if $SAFE < #{safe};" << cmd, + *eval_args) }) end alias eval_str eval_string @@ -1591,8 +1591,8 @@ class MultiTkIp Thread.new{ eval_proc_core(true, proc{|safe| - $SAFE=safe if $SAFE < safe - Kernel.eval(cmd, *eval_args) + Kernel.eval("$SAFE=#{safe} if $SAFE < #{safe};" << cmd, + *eval_args) }) } end diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb index 0c88b0ac8..c3e92f409 100644 --- a/ext/tk/lib/tk.rb +++ b/ext/tk/lib/tk.rb @@ -4437,7 +4437,7 @@ end #Tk.freeze module Tk - RELEASE_DATE = '2005-09-16'.freeze + RELEASE_DATE = '2005-09-17'.freeze autoload :AUTO_PATH, 'tk/variable' autoload :TCL_PACKAGE_PATH, 'tk/variable' |