54 lines
1.2 KiB
Ruby
54 lines
1.2 KiB
Ruby
|
#!/usr/bin/env ruby
|
||
|
|
|
||
|
|
ip_name = 'remote_ip'
|
||
|
|
|
||
|
|
fork{
|
||
|
|
exec "/usr/bin/env ruby -r tk -e \"Tk.appname('#{ip_name}');Tk.mainloop\""
|
||
|
|
}
|
||
|
|
|
||
|
|
require 'remote-tk'
|
||
|
|
|
||
|
|
15.times{
|
||
|
|
break if TkWinfo.interps.find{|ip| ip =~ /^#{ip_name}/}
|
||
|
|
sleep 1
|
||
|
|
}
|
||
|
|
|
||
|
|
p TkWinfo.interps
|
||
|
|
|
||
|
|
ip = RemoteTkIp.new(ip_name)
|
||
|
|
|
||
|
|
btns = []
|
||
|
|
ip.eval_proc{
|
||
|
|
btns <<
|
||
|
|
TkButton.new(:command=>proc{
|
||
|
|
puts 'This procesure is on the controller-ip (Ruby-side)'
|
||
|
|
},
|
||
|
|
:text=>'print on controller-ip (Ruby-side)').pack(:fill=>:x)
|
||
|
|
|
||
|
|
btns <<
|
||
|
|
TkButton.new(:command=>
|
||
|
|
'puts {This procesure is on the remote-ip (Tk-side)}',
|
||
|
|
:text=>'print on remote-ip (Tk-side)').pack(:fill=>:x)
|
||
|
|
|
||
|
|
btns <<
|
||
|
|
TkButton.new(:command=>
|
||
|
|
'ruby {
|
||
|
|
puts "This procedure is on the remote-ip (Ruby-side)"
|
||
|
|
p Array.new(3,"ruby")
|
||
|
|
}',
|
||
|
|
:text=>'ruby cmd on the remote-ip').pack(:fill=>:x)
|
||
|
|
|
||
|
|
TkButton.new(:command=>'exit', :text=>'QUIT').pack(:fill=>:x)
|
||
|
|
}
|
||
|
|
|
||
|
|
btns.each_with_index{|b, idx|
|
||
|
|
TkButton.new(:command=>proc{ip.eval_proc{b.flash}},
|
||
|
|
:text=>"flash button-#{idx}",
|
||
|
|
:padx=>10).pack(:padx=>10, :pady=>2)
|
||
|
|
}
|
||
|
|
|
||
|
|
TkButton.new(:command=>proc{exit}, :text=>'QUIT',
|
||
|
|
:padx=>10, :pady=>7).pack(:padx=>10, :pady=>7)
|
||
|
|
|
||
|
|
Tk.mainloop
|