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