From b21e7522ca84bfb0f3aa149aa9d0929006c58ee3 Mon Sep 17 00:00:00 2001 From: nagai Date: Tue, 29 Jul 2003 01:24:32 +0000 Subject: tcltklib.c : bug fix multi-tk.rb : bug fix and pack options are pssed to the safeTk container sample/safe-tk.rb : add example for pack options of safeTk container git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@4200 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/tk/sample/safe-tk.rb | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'ext/tk/sample') diff --git a/ext/tk/sample/safe-tk.rb b/ext/tk/sample/safe-tk.rb index 77cfc3c87..34e1a460a 100644 --- a/ext/tk/sample/safe-tk.rb +++ b/ext/tk/sample/safe-tk.rb @@ -5,7 +5,10 @@ require "multi-tk" # create slave interpreters trusted_slave = MultiTkIp.new_slave -safe_slave = MultiTkIp.new_safeTk +safe_slave1 = MultiTkIp.new_safeTk +safe_slave2 = MultiTkIp.new_safeTk('fill'=>:none, 'expand'=>false) +#safe_slave2 = MultiTkIp.new_safeTk('fill'=>:none) +#safe_slave2 = MultiTkIp.new_safeTk('expand'=>false) cmd = Proc.new{|txt| @@ -42,7 +45,8 @@ cmd = Proc.new{|txt| # call on the default master interpreter trusted_slave.eval_proc(cmd, 'trusted') -safe_slave.eval_proc(cmd, 'safe') +safe_slave1.eval_proc(cmd, 'safe1') +safe_slave2.eval_proc(cmd, 'safe2') cmd.call('master') Tk.mainloop -- cgit