mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
* 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
This commit is contained in:
parent
12d3662b39
commit
7d1de7464b
2 changed files with 10 additions and 1 deletions
|
@ -352,7 +352,6 @@ class MultiTkIp
|
|||
unless slave_ip.deleted?
|
||||
if slave_ip._invoke('info', 'command', '.') != ""
|
||||
slave_ip._invoke('destroy', '.')
|
||||
slave_ip.tk_windows.delete('.')
|
||||
end
|
||||
slave_ip.delete
|
||||
end
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue