From: nagai@...
Date: 1999-06-16T10:39:42+09:00
Subject: [ruby-dev:7123] Re: Ruby 1.3.4-990611

永井＠知能．九工大です．

From: Koji Arai <JCA02266@nifty.ne.jp>
Subject: [ruby-dev:7108] Re: Ruby 1.3.4-990611
Date: Sat, 12 Jun 1999 22:33:36 +0900
Message-ID: <199906121332.WAA16249@smtp2.niftyserve.or.jp>
JCA02266> Ruby/Tk がCPUを占有してしまいます。

これは 1.2.5 では生じないようですね．
1.2.x と 1.3.x との間で変更された部分が影響しているのでしょうか？

JCA02266> ruby -v -rtk -e Tk.mainloop
JCA02266> ruby 1.3.4 (1999-06-11) [i586-linux]
JCA02266> /usr/local/lib/ruby/1.3/tk.rb:2008: warning: already initialized constant WidgetClassName
JCA02266> /usr/local/lib/ruby/1.3/tk.rb:2026: warning: already initialized constant WidgetClassName

これらの warning には，次のパッチあてで問題ないだろうと思います．
------------------------------------------------------
--- tk.rb.orig  Mon May 31 18:13:32 1999
+++ tk.rb       Wed Jun 16 10:30:05 1999
@@ -2005,11 +2005,9 @@
 end
 
 class TkButton<TkLabel
-  WidgetClassName = 'Button'.freeze
-  TkClassBind::WidgetClassNameTBL[WidgetClassName] = self
-#  def TkButton.to_eval
-  def self.to_eval
-    WidgetClassName
+  TkClassBind::WidgetClassNameTBL['Button'] = self
+  def TkButton.to_eval
+    'Button'
   end
   def create_self
     tk_call 'button', @path
@@ -2023,10 +2021,9 @@
 end
 
 class TkRadioButton<TkButton
-  WidgetClassName = 'Radiobutton'.freeze
-  TkClassBind::WidgetClassNameTBL[WidgetClassName] = self
+  TkClassBind::WidgetClassNameTBL['Radiobutton'] = self
   def TkRadioButton.to_eval
-    WidgetClassName
+    'Radiobutton'
   end
   def create_self
     tk_call 'radiobutton', @path
------------------------------------------------------
-- 
                                         永井 秀利 （九工大 知能情報）
                                             nagai@ai.kyutech.ac.jp