diff options
author | Jari Vetoniemi <jari.vetoniemi@indooratlas.com> | 2020-03-16 18:49:26 +0900 |
---|---|---|
committer | Jari Vetoniemi <jari.vetoniemi@indooratlas.com> | 2020-03-30 00:39:06 +0900 |
commit | fcbf63e62c627deae76c1b8cb8c0876c536ed811 (patch) | |
tree | 64cb17de3f41a2b6fef2368028fbd00349946994 /jni/ruby/ext/tk/sample/remote-ip_sample2.rb |
Fresh start
Diffstat (limited to 'jni/ruby/ext/tk/sample/remote-ip_sample2.rb')
-rw-r--r-- | jni/ruby/ext/tk/sample/remote-ip_sample2.rb | 56 |
1 files changed, 56 insertions, 0 deletions
diff --git a/jni/ruby/ext/tk/sample/remote-ip_sample2.rb b/jni/ruby/ext/tk/sample/remote-ip_sample2.rb new file mode 100644 index 0000000..d8cf3c7 --- /dev/null +++ b/jni/ruby/ext/tk/sample/remote-ip_sample2.rb @@ -0,0 +1,56 @@ +#!/usr/bin/env ruby + +require 'remote-tk' + +# 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 + +# create RemoteTkIp object +ip = RemoteTkIp.new(app) + +# setup remote-ip window +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) +} + +# setup controller-ip window +btns.each_with_index{|btn, idx| + # The scope of the eval-block of 'eval_proc' method is different from + # the enternal. If you want to pass local values to the eval-block, + # use arguments of eval_proc method. They are passed to block-arguments. + TkButton.new(:command=>proc{ip.eval_proc(btn){|b| 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) + +# start eventloop +Tk.mainloop |