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

* add a new sample 'ext/tk/sample/remote-ikp_sample2.rb'

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@6385 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nagai 2004-05-22 02:23:59 +00:00
parent 56761e29f6
commit c93c500910
2 changed files with 54 additions and 1 deletions

View file

@ -16,7 +16,7 @@ unless (wish = TkWinfo.interps.find{|ip| ip =~ /^wish/})
end
ip = RemoteTkIp.new(wish)
ip.eval_proc{TkButton.new(:command=>proc{puts 'This procesure is on the controller-ip (Rubh/Tk)'}, :text=>'print on Ruby/Tk (controller-ip)').pack(:fill=>:x)}
ip.eval_proc{TkButton.new(:command=>proc{puts 'This procesure is on the controller-ip (Ruby/Tk)'}, :text=>'print on Ruby/Tk (controller-ip)').pack(:fill=>:x)}
ip.eval_proc{TkButton.new(:command=>'puts {This procesure is on the remote-ip (wish)}', :text=>'print on wish (remote-ip)').pack(:fill=>:x)}
# If your remote-ip is Ruby/Tk, you can control the remote Ruby by

View file

@ -0,0 +1,53 @@
#!/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