kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

* ext/tk/lib/tkoptdb-safeTk.rb: fix a bug depend on the changes of MultiTkIp

Browse source 
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@6911 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nagai 2004-09-15 11:24:22 +00:00
parent 011a851696
commit 3c37859186
2 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
ChangeLog
View file

@ -1,3 +1,8 @@
Wed Sep 15 20:22:23 2004 Hidetoshi NAGAI <nagai@ai.kyutech.ac.jp>
* ext/tk/sample/tkoptdb-safeTk.rb: fix a bug depend on the changes
of MultiTkIp
Tue Sep 14 23:54:11 2004 Hidetoshi NAGAI <nagai@ai.kyutech.ac.jp>
* ext/tk/lib/multi-tk.rb: MultiTkIp#eval_string was en-bugged by

6
ext/tk/sample/tkoptdb-safeTk.rb
View file

@ -26,6 +26,7 @@ else
ent = TkOptionDB.read_entries(File.expand_path('resource.en',
File.dirname(__FILE__)))
end
file = File.expand_path('tkoptdb.rb', File.dirname(__FILE__))
ip = MultiTkIp.new_safeTk{
@ -50,12 +51,11 @@ print "ip.eval_proc{}, which includes insecure operiation in the given block, re
print "If a proc object is given, the proc is evaluated on the safe-level which is kept on the proc :: ip.eval_proc( proc{$SAFE} ) ==> ", ip.eval_proc(proc{$SAFE}), "\n"
safe0_cmd = Proc.new{
print 'safe0_cmd safe-level == ', $SAFE, "\n"
# This proc object keeps current safe-level ($SAFE==0).
load file
}
ip.eval_proc(safe0_cmd)
ip.eval_proc{safe0_cmd.call}
# Tk.mainloop is ignored on the slave-IP
Tk.mainloop