This commit was manufactured by cvs2svn to create branch 'ruby_1_8'.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@6386 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

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 0000000000..51b950387a
--- /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