diff options
| author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-07-30 04:36:29 +0000 |
|---|---|---|
| committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-07-30 04:36:29 +0000 |
| commit | a7574f31daa7c40a6e1651a7a1fb5b5cd8cecfda (patch) | |
| tree | 5824d094039c3c2af7e448bb3946f1be10dbabe0 /ext/tk/sample | |
| parent | 8332f1d6ce368fb2258bb6c23d5f2c95622e2727 (diff) | |
| download | ruby-a7574f31daa7c40a6e1651a7a1fb5b5cd8cecfda.tar.gz ruby-a7574f31daa7c40a6e1651a7a1fb5b5cd8cecfda.tar.xz ruby-a7574f31daa7c40a6e1651a7a1fb5b5cd8cecfda.zip | |
* additional check of Tk interpreters' status for a little more safety
git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@4226 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/sample')
| -rw-r--r-- | ext/tk/sample/safe-tk.rb | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/ext/tk/sample/safe-tk.rb b/ext/tk/sample/safe-tk.rb index 0c45ec3db..7050b236e 100644 --- a/ext/tk/sample/safe-tk.rb +++ b/ext/tk/sample/safe-tk.rb @@ -44,10 +44,10 @@ cmd = Proc.new{|txt| } # call on the default master interpreter -trusted_slave.eval_proc(cmd, 'trusted') -safe_slave1.eval_proc(cmd, 'safe1') -safe_slave2.eval_proc(cmd, 'safe2') -cmd.call('master') +trusted_slave.eval_proc(cmd, 'trusted') # label -> .w00012 +safe_slave1.eval_proc(cmd, 'safe1') # label -> .w00015 +safe_slave2.eval_proc(cmd, 'safe2') # label -> .w00018 +cmd.call('master') # label -> .w00021 TkTimer.new(2000, -1, proc{p ['safe1', safe_slave1.deleted?]}).start TkTimer.new(2000, -1, proc{p ['safe2', safe_slave2.deleted?]}).start @@ -57,6 +57,7 @@ TkTimer.new(10000, 1, proc{ trusted_slave.eval_proc{Tk.root.destroy} trusted_slave.delete + print "*** The trusted_slave is deleted by the timer.\n" }).start Tk.mainloop |