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
23 lines
808 B
Ruby
23 lines
808 B
Ruby
#!/usr/bin/env ruby
|
|
# frozen_string_literal: false
|
|
require 'tcltklib'
|
|
|
|
master = TclTkIp.new
|
|
slave_name = 'slave0'
|
|
slave = master.create_slave(slave_name, true)
|
|
master._eval("::safe::interpInit #{slave_name}")
|
|
master._eval("::safe::loadTk #{slave_name}")
|
|
|
|
master._invoke('label', '.l1', '-text', 'master')
|
|
master._invoke('pack', '.l1', '-padx', '30', '-pady', '50')
|
|
master._eval('label .l2 -text {root widget of master-ip}')
|
|
master._eval('pack .l2 -padx 30 -pady 50')
|
|
|
|
slave._invoke('label', '.l1', '-text', 'slave')
|
|
slave._invoke('pack', '.l1', '-padx', '30', '-pady', '50')
|
|
slave._eval('label .l2 -text {root widget of slave-ip}')
|
|
slave._eval('pack .l2 -padx 30 -pady 20')
|
|
slave._eval('label .l3 -text {( container frame widget of master-ip )}')
|
|
slave._eval('pack .l3 -padx 30 -pady 20')
|
|
|
|
TclTkLib.mainloop
|