mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
c4fdfabcc8
g -L frozen_string_literal ext/**/*.rb|xargs ruby -Ka -e'ARGV.each{|fn|puts
fn;open(fn,"r+"){|f|s=f.read.sub(/\A(#!.*\n)?(#.*coding.*\n)?/,"\\&#
frozen_string_literal: false\n");f.rewind;f.write s}}'
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@53143 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
30 lines
723 B
Ruby
30 lines
723 B
Ruby
# frozen_string_literal: false
|
|
require 'multi-tk.rb'
|
|
|
|
th = Thread.new{Tk.mainloop}
|
|
|
|
TkLabel.new(:text=>'this is a primary master').pack
|
|
|
|
ip1 = MultiTkIp.new_slave(:safe=>1)
|
|
ip2 = MultiTkIp.new_slave(:safe=>2)
|
|
|
|
cmd = proc{|s|
|
|
require 'tk'
|
|
|
|
TkButton.new(:text=>'b1: p self', :command=>proc{p self}).pack(:fill=>:x)
|
|
sleep s
|
|
TkButton.new(:text=>'b2: p $SAFE', :command=>proc{p $SAFE}).pack(:fill=>:x)
|
|
sleep s
|
|
TkButton.new(:text=>'b3: p MultiTkIp.ip_name',
|
|
:command=>proc{p MultiTkIp.ip_name}).pack(:fill=>:x)
|
|
sleep s
|
|
TkButton.new(:text=>'EXIT', :command=>proc{exit}).pack(:fill=>:x)
|
|
|
|
Tk.mainloop
|
|
}
|
|
|
|
Thread.new{ip1.eval_proc(cmd, 1.1)}
|
|
Thread.new{ip2.eval_proc(cmd, 0.3)}
|
|
cmd.call(0.7)
|
|
|
|
th.join
|