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:
parent
56761e29f6
commit
c93c500910
2 changed files with 54 additions and 1 deletions
|
@ -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
|
||||
|
|
53
ext/tk/sample/remote-ip_sample2.rb
Normal file
53
ext/tk/sample/remote-ip_sample2.rb
Normal 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
|
Loading…
Add table
Reference in a new issue