[ruby-dev:26307] Re: ext/tk/sample/tkextlib/ICONS/viewIcons.rb

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

From: H.Yamamoto <[e-mail]>
Subject: [ruby-dev:26305] ext/tk/sample/tkextlib/ICONS/viewIcons.rb
Date: Wed, 8 Jun 2005 21:00:35 +0900
Message-ID: <[e-mail]>
> 下のようなエラーが出ました。
> 
> E:\ruby-cvs\bcc32>ruby19 -C ..\ruby\ext\tk\sample\tkextlib\ICONS viewIcons.rb
> E:/ruby-cvs/bcc32/.ext/tkextlib/ICONS/icons.rb:79:in `new': wrong number of argu
> ments (2 for 1) (ArgumentError)
>         from E:/ruby-cvs/bcc32/.ext/tkextlib/ICONS/icons.rb:79:in `new'
>         from E:/ruby-cvs/bcc32/.ext/tkextlib/ICONS/icons.rb:44:in `create'
>         from E:/ruby-cvs/bcc32/.ext/tkextlib/ICONS/icons.rb:44:in `collect'
>         from E:/ruby-cvs/bcc32/.ext/tkextlib/ICONS/icons.rb:44:in `create'
>         from viewIcons.rb:296:in `display_icons'
>         from viewIcons.rb:177:in `initialize'
>         from viewIcons.rb:327

同じイメージに対して異なるオブジェクトを生成しないために 
new メソッドを置き換えている部分が不整合を起こしているということですね．
となると，こうでしょうか？

Index: icons.rb
===================================================================
RCS file: /var/cvs/src/ruby/ext/tk/lib/tkextlib/ICONS/icons.rb,v
retrieving revision 1.1.2.4
diff -u -r1.1.2.4 icons.rb
--- icons.rb	30 May 2005 14:53:05 -0000	1.1.2.4
+++ icons.rb	8 Jun 2005 13:39:20 -0000
@@ -76,7 +76,11 @@
     ##########################################
 
     def self.new(name, keys=nil)
-      Tk_IMGTBL["::icon::#{name}"] || super
+      unless obj = Tk_IMGTBL["::icon::#{name}"]
+        obj = allocate()
+        obj.instance_eval{initialize(name, keys)}
+      end
+      obj
     end
 
     def initialize(name, keys=nil)