diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-07-29 01:24:32 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-07-29 01:24:32 +0000 |
commit | b21e7522ca84bfb0f3aa149aa9d0929006c58ee3 (patch) | |
tree | 6730258de339f73858ee5828a972f528016e051f /ext/tk/sample/safe-tk.rb | |
parent | 90e0acdd8a2f57c5407e34d9e563968e9a30d32f (diff) | |
download | ruby-b21e7522ca84bfb0f3aa149aa9d0929006c58ee3.tar.gz ruby-b21e7522ca84bfb0f3aa149aa9d0929006c58ee3.tar.xz ruby-b21e7522ca84bfb0f3aa149aa9d0929006c58ee3.zip |
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
Diffstat (limited to 'ext/tk/sample/safe-tk.rb')
-rw-r--r-- | ext/tk/sample/safe-tk.rb | 8 |
1 files changed, 6 insertions, 2 deletions
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 |