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

山本です。

>同じイメージに対して異なるオブジェクトを生成しないために 
>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)

これでうまく動きました。