diff options
Diffstat (limited to 'ext/tk/sample/safe-tk.rb')
| -rw-r--r-- | ext/tk/sample/safe-tk.rb | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/ext/tk/sample/safe-tk.rb b/ext/tk/sample/safe-tk.rb index 34e1a460a0..0c45ec3dbd 100644 --- a/ext/tk/sample/safe-tk.rb +++ b/ext/tk/sample/safe-tk.rb @@ -49,4 +49,14 @@ safe_slave1.eval_proc(cmd, 'safe1') safe_slave2.eval_proc(cmd, 'safe2') cmd.call('master') +TkTimer.new(2000, -1, proc{p ['safe1', safe_slave1.deleted?]}).start +TkTimer.new(2000, -1, proc{p ['safe2', safe_slave2.deleted?]}).start +TkTimer.new(2000, -1, proc{p ['trusted', trusted_slave.deleted?]}).start + +TkTimer.new(10000, 1, + proc{ + trusted_slave.eval_proc{Tk.root.destroy} + trusted_slave.delete + }).start + Tk.mainloop |