kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

* ext/tk/sample/remote-ip_sample2.rb: modify

Browse source 
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@6390 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nagai 2004-05-22 05:22:09 +00:00
parent edf9c3da4b
commit 961d66abc2
1 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
ext/tk/sample/remote-ip_sample2.rb
View file

@ -1,22 +1,20 @@
#!/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
# start sub-process
ip_name = 'remote_ip'
ip_list = TkWinfo.interps
fork{
exec "/usr/bin/env ruby -r tk -e \"Tk.appname('#{ip_name}');Tk.mainloop\""
}
sleep 1 until (app = (TkWinfo.interps - ip_list)[0]) && app =~ /^#{ip_name}/
p TkWinfo.interps
ip = RemoteTkIp.new(ip_name)
# create RemoteTkIp object
ip = RemoteTkIp.new(app)
# setup remote-ip window
btns = []
ip.eval_proc{
btns <<
@ -41,6 +39,7 @@ ip.eval_proc{
TkButton.new(:command=>'exit', :text=>'QUIT').pack(:fill=>:x)
}
# setup controller-ip window
btns.each_with_index{|b, idx|
TkButton.new(:command=>proc{ip.eval_proc{b.flash}},
:text=>"flash button-#{idx}",
@ -50,4 +49,5 @@ btns.each_with_index{|b, idx|
TkButton.new(:command=>proc{exit}, :text=>'QUIT',
:padx=>10, :pady=>7).pack(:padx=>10, :pady=>7)
# start eventloop
Tk.mainloop