diff options
Diffstat (limited to 'ext/tk/sample')
-rwxr-xr-x[-rw-r--r--] | ext/tk/sample/safe-tk.rb | 3 | ||||
-rwxr-xr-x[-rw-r--r--] | ext/tk/sample/tkoptdb-safeTk.rb | 2 |
2 files changed, 1 insertions, 4 deletions
diff --git a/ext/tk/sample/safe-tk.rb b/ext/tk/sample/safe-tk.rb index 38131c0155..652dbe75a0 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 7502e30667..8fd35a9e7a 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)} } |