diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2006-04-05 16:08:45 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2006-04-05 16:08:45 +0000 |
commit | 8ba823c485d481979600000a111b3b108f98ad6f (patch) | |
tree | 0f16c5ad4af73651c0069b514d1e8128bbff3c80 /ext/tk/lib/tk.rb | |
parent | 5ebb8ad06bb936c048f890fbfd1495134a825912 (diff) |
* ext/tk/tcltklib.c: fix SEGV when embedding to an application.
[ruby-core:7600]
* ext/tk/tcltklib.c: fix SEGV at exit. [ruby-talk:186489]
* ext/tk/tkutil/tkutil.c: follow to changing specification of
instance_eval on ruby-1.9.x.
* ext/tk/lib/tk.rb: ditto.
* ext/tk/lib/multi-tk.rb: ditto.
* ext/tk/lib/tk.rb: remove warning about redefinition of methods.
* ext/tk/lib/tk/variable.rb: remove warning about unseting Tcl
variables.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@10078 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/lib/tk.rb')
-rw-r--r-- | ext/tk/lib/tk.rb | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb index 55408dda2f..bf053058da 100644 --- a/ext/tk/lib/tk.rb +++ b/ext/tk/lib/tk.rb @@ -1121,8 +1121,8 @@ module TkCore @init_ip_env = [].taint # table of Procs @add_tk_procs = [].taint # table of [name, args, body] - @cb_entry_class = Class.new(TkCallbackEntry){|c| - class << c + @cb_entry_class = Class.new(TkCallbackEntry){ + class << self def inspect sprintf("#<Class(TkCallbackEntry):%0x>", self.__id__) end @@ -2310,11 +2310,15 @@ if (/^(8\.[1-9]|9\.|[1-9][0-9])/ =~ Tk::TCL_VERSION && !Tk::JAPANIZED_TK) end module TclTkLib - def self.encoding=(name) - TkCore::INTERP.encoding = name - end - def self.encoding - TkCore::INTERP.encoding + class << self + alias _encoding encoding + alias _encoding= encoding= + def encoding=(name) + TkCore::INTERP.encoding = name + end + def encoding + TkCore::INTERP.encoding + end end end @@ -4555,7 +4559,7 @@ end #Tk.freeze module Tk - RELEASE_DATE = '2005-12-07'.freeze + RELEASE_DATE = '2006-04-06'.freeze autoload :AUTO_PATH, 'tk/variable' autoload :TCL_PACKAGE_PATH, 'tk/variable' |