From e1885a0079bc61b610842783fe4dd1a2a84d8a81 Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 8 Jun 2005 14:42:06 +0000
Subject: * 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/lib/tkextlib/ICONS/icons.rb | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'ext/tk/lib/tkextlib')

diff --git a/ext/tk/lib/tkextlib/ICONS/icons.rb b/ext/tk/lib/tkextlib/ICONS/icons.rb
index 68e7656945..8a37e35ebf 100644
--- a/ext/tk/lib/tkextlib/ICONS/icons.rb
+++ b/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)
-- 
cgit v1.2.3