From 3c3785918674ffab7fb3c66fbeec26bd721c6a4f Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 15 Sep 2004 11:24:22 +0000
Subject: [PATCH] * ext/tk/lib/tkoptdb-safeTk.rb: fix a bug depend on the
 changes of MultiTkIp

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@6911 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog                       | 5 +++++
 ext/tk/sample/tkoptdb-safeTk.rb | 6 +++---
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index ed8bae6f1a..eef1681e93 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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
diff --git a/ext/tk/sample/tkoptdb-safeTk.rb b/ext/tk/sample/tkoptdb-safeTk.rb
index b41c856d5a..f6c3ca4ee7 100644
--- a/ext/tk/sample/tkoptdb-safeTk.rb
+++ b/ext/tk/sample/tkoptdb-safeTk.rb
@@ -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