From c90fab98a2173f0af282ff8f948c479c1aef7a95 Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 12 Nov 2003 21:11:40 +0000
Subject: [PATCH] * ext/tk/lib/tk.rb,multi-tk.rb: stop freezing some classes

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4946 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog              |  6 ++++++
 ext/tk/lib/multi-tk.rb |  4 ++--
 ext/tk/lib/tk.rb       | 16 ++++++++--------
 3 files changed, 16 insertions(+), 10 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 1bbac9c0f6..569212f3c5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+Thu Nov 13 06:08:54 2003  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* ext/tk/lib/tk.rb: stop freezing some classes
+
+	* ext/tk/lib/multi-tk.rb: ditto.
+
 Wed Nov 12 17:32:49 2003  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* lib/test/unit/assertions.rb (assert_throws, assert_nothing_thrown):
diff --git a/ext/tk/lib/multi-tk.rb b/ext/tk/lib/multi-tk.rb
index 288b5be443..b6c800177f 100644
--- a/ext/tk/lib/multi-tk.rb
+++ b/ext/tk/lib/multi-tk.rb
@@ -1352,8 +1352,8 @@ end
 # end of MultiTkIp definition
 
 # defend against modification
-MultiTkIp.freeze
-TclTkLib.freeze
+#MultiTkIp.freeze
+#TclTkLib.freeze
 
 ########################################
 #  start Tk which depends on MultiTkIp
diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb
index 2cb4731cbd..dffa918f58 100644
--- a/ext/tk/lib/tk.rb
+++ b/ext/tk/lib/tk.rb
@@ -5819,14 +5819,14 @@ TkBindTag::ALL.bind(TkVirtualEvent.new('Destroy'), proc{|xpath|
 		    }, 'x%W')
 
 # freeze core modules
-TclTkLib.freeze
-TclTkIp.freeze
-TkUtil.freeze
-TkKernel.freeze
-TkComm.freeze
-TkComm::Event.freeze
-TkCore.freeze
-Tk.freeze
+#TclTkLib.freeze
+#TclTkIp.freeze
+#TkUtil.freeze
+#TkKernel.freeze
+#TkComm.freeze
+#TkComm::Event.freeze
+#TkCore.freeze
+#Tk.freeze
 
 # autoload
 autoload :TkCanvas, 'tkcanvas'