* ext/tk/lib/tkextlib/ICONS/icons.rb: fail to create instances of

Tk::ICONS [ruby-dev:26305].


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8595 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

ext/tk/ChangeLog.tkextlib

@@ -1,3 +1,8 @@
+2005-06-08  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* lib/tkextlib/ICONS/icons.rb: fail to create instances of
+	  Tk::ICONS [ruby-dev:26305].
+
 2005-06-07  ocean  <ocean@ruby-lang.org>
 
 	* sample/tkextlib/tile/themes/kroc.{rb,tcl}: also support tile 0.4.

ext/tk/lib/tkextlib/ICONS/icons.rb

@@ -76,7 +76,11 @@ module Tk
     ##########################################
 
     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)