diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-05-22 02:23:59 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-05-22 02:23:59 +0000 |
commit | ce4629e22197d33748eadb828146041ce07eec57 (patch) | |
tree | 52c0101c23c8a580ba152b0430e9f11fbede1377 /ext/tk/sample/remote-ip_sample2.rb | |
parent | 3da285816949ea796deffb2f15abae9b8d0d1ae8 (diff) | |
download | ruby-ce4629e22197d33748eadb828146041ce07eec57.tar.gz ruby-ce4629e22197d33748eadb828146041ce07eec57.tar.xz ruby-ce4629e22197d33748eadb828146041ce07eec57.zip |
* add a new sample 'ext/tk/sample/remote-ikp_sample2.rb'
git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@6385 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/sample/remote-ip_sample2.rb')
-rw-r--r-- | ext/tk/sample/remote-ip_sample2.rb | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/ext/tk/sample/remote-ip_sample2.rb b/ext/tk/sample/remote-ip_sample2.rb new file mode 100644 index 000000000..51b950387 --- /dev/null +++ b/ext/tk/sample/remote-ip_sample2.rb @@ -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 |