summaryrefslogtreecommitdiff
path: root/jni/ruby/ext/tk/sample/multi-ip_sample2.rb
blob: 79c78dec4ad59b0f9d2c9cebce78ae38e540b32a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
require 'multi-tk.rb'

th = Thread.new{Tk.mainloop}

TkLabel.new(:text=>'this is a primary master').pack

ip1 = MultiTkIp.new_slave(:safe=>1)
ip2 = MultiTkIp.new_slave(:safe=>2)

cmd = proc{|s|
  require 'tk'

  TkButton.new(:text=>'b1: p self', :command=>proc{p self}).pack(:fill=>:x)
  sleep s
  TkButton.new(:text=>'b2: p $SAFE', :command=>proc{p $SAFE}).pack(:fill=>:x)
  sleep s
  TkButton.new(:text=>'b3: p MultiTkIp.ip_name',
               :command=>proc{p MultiTkIp.ip_name}).pack(:fill=>:x)
  sleep s
  TkButton.new(:text=>'EXIT', :command=>proc{exit}).pack(:fill=>:x)

  Tk.mainloop
}

Thread.new{ip1.eval_proc(cmd, 1.1)}
Thread.new{ip2.eval_proc(cmd, 0.3)}
cmd.call(0.7)

th.join