1require 'multi-tk.rb' 2 3th = Thread.new{Tk.mainloop} 4 5TkLabel.new(:text=>'this is a primary master').pack 6 7ip1 = MultiTkIp.new_slave(:safe=>1) 8ip2 = MultiTkIp.new_slave(:safe=>2) 9 10cmd = proc{|s| 11 require 'tk' 12 13 TkButton.new(:text=>'b1: p self', :command=>proc{p self}).pack(:fill=>:x) 14 sleep s 15 TkButton.new(:text=>'b2: p $SAFE', :command=>proc{p $SAFE}).pack(:fill=>:x) 16 sleep s 17 TkButton.new(:text=>'b3: p MultiTkIp.ip_name', 18 :command=>proc{p MultiTkIp.ip_name}).pack(:fill=>:x) 19 sleep s 20 TkButton.new(:text=>'EXIT', :command=>proc{exit}).pack(:fill=>:x) 21 22 Tk.mainloop 23} 24 25Thread.new{ip1.eval_proc(cmd, 1.1)} 26Thread.new{ip2.eval_proc(cmd, 0.3)} 27cmd.call(0.7) 28 29th.join 30