1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
* not create a Tcl/Tk interpreter if already defined TkCore::INTERP
  * bugfix on TkWindow#configure


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4058 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nagai 2003-07-11 07:17:46 +00:00
parent 538e8190bc
commit 7a89869340

View file

@ -636,7 +636,7 @@ module TkCore
include TkComm
extend TkComm
INTERP = TclTkIp.new
INTERP = TclTkIp.new unless self.const_defined? :INTERP
INTERP._invoke("proc", "rb_out", "args", <<-'EOL')
regsub -all {!} $args {\\!} args
@ -3138,7 +3138,7 @@ class TkObject<TkKernel
slot['latinfont'] || slot[:latinfont] ||
slot['asciifont'] || slot[:asciifont] )
font_configure(slot)
else
elsif slot.size > 0
tk_call path, 'configure', *hash_kv(slot)
end