diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-06-08 14:42:06 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-06-08 14:42:06 +0000 |
commit | 8a599d68741686159a87c05b6d86e218e655d188 (patch) | |
tree | a441f9207f4a1f381d484d247c119b58fb4e79b8 /ext | |
parent | f105a01a3ef5c4d6f9484be1a3779b1358e0f86c (diff) |
* 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/branches/ruby_1_8@8595 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext')
-rw-r--r-- | ext/tk/ChangeLog.tkextlib | 5 | ||||
-rw-r--r-- | ext/tk/lib/tkextlib/ICONS/icons.rb | 6 |
2 files changed, 10 insertions, 1 deletions
diff --git a/ext/tk/ChangeLog.tkextlib b/ext/tk/ChangeLog.tkextlib index dc04585985..325fd99ac1 100644 --- a/ext/tk/ChangeLog.tkextlib +++ b/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. 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) |