From 7d1de7464b31bdd5b4e61897ef9b37e3e8d5389a Mon Sep 17 00:00:00 2001 From: nagai Date: Tue, 29 Jul 2003 16:20:36 +0000 Subject: * fix a bug of the procedure for 'Delete' button on the safe-Tk frmae git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4219 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/tk/sample/safe-tk.rb | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'ext/tk/sample/safe-tk.rb') 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 -- cgit v1.2.3