mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
b388591ab7
tcltklib.c : add some methods to support multiple interpreters (low level) MANUAL.euc : modify descriptions tcltklib/sample/safeTk.rb : (new) sample : how to use safeTk interpreter tk/sample/safe-tk.rb : (new) sample : how to use multi-tk.rb tk.rb, tkafter.rb : bug fix and add feature to supprt multi-tk git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4186 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
22 lines
777 B
Ruby
22 lines
777 B
Ruby
#!/usr/bin/env ruby
|
|
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
|