summaryrefslogtreecommitdiff
path: root/ext/tk/sample
diff options
context:
space:
mode:
authornobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2015-09-24 01:37:14 +0000
committernobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2015-09-24 01:37:14 +0000
commitc97a6987b62726a20570fb06681c986cf7f60141 (patch)
tree9fa981874abb554182dc2c4ed5d759364b5f7a2c /ext/tk/sample
parent61847a8279ae7ef57b1b9afff00eda76fe0a636c (diff)
ext/tk: remove $SAFE 2..4 code
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@51925 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/sample')
-rwxr-xr-x[-rw-r--r--]ext/tk/sample/safe-tk.rb3
-rwxr-xr-x[-rw-r--r--]ext/tk/sample/tkoptdb-safeTk.rb2
2 files changed, 1 insertions, 4 deletions
diff --git a/ext/tk/sample/safe-tk.rb b/ext/tk/sample/safe-tk.rb
index 38131c0..652dbe7 100644..100755
--- a/ext/tk/sample/safe-tk.rb
+++ b/ext/tk/sample/safe-tk.rb
@@ -117,9 +117,6 @@ p ip.eval_str("
:padx=>10, :pady=>7)
", bind)
-puts "\n---- change the safe slave IP's safe-level ==> 4 ----------"
-ip.safe_level = 4
-
puts "\n---- call 3rd and 4th eval_proc ----------"
p ip.eval_proc{
TkLabel.new(:text=>"3rd and 4th eval_proc : $SAFE == #{$SAFE}").pack
diff --git a/ext/tk/sample/tkoptdb-safeTk.rb b/ext/tk/sample/tkoptdb-safeTk.rb
index 7502e30..8fd35a9 100644..100755
--- a/ext/tk/sample/tkoptdb-safeTk.rb
+++ b/ext/tk/sample/tkoptdb-safeTk.rb
@@ -31,7 +31,7 @@ file = File.expand_path('tkoptdb.rb', File.dirname(__FILE__))
ip = MultiTkIp.new_safeTk{
# When a block is given to 'new_safeTk' method,
- # the block is evaluated on $SAFE==4.
+ # the block is evaluated on $SAFE==1.
ent.each{|pat, val| Tk.tk_call('option', 'add', pat, val)}
}