diff options
Diffstat (limited to 'ext/tk/sample/tkextlib/treectrl/demo.rb')
| -rw-r--r-- | ext/tk/sample/tkextlib/treectrl/demo.rb | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/ext/tk/sample/tkextlib/treectrl/demo.rb b/ext/tk/sample/tkextlib/treectrl/demo.rb index acb5fcc192..892b5a62c7 100644 --- a/ext/tk/sample/tkextlib/treectrl/demo.rb +++ b/ext/tk/sample/tkextlib/treectrl/demo.rb @@ -7,6 +7,10 @@ $ScriptDir = File.dirname(File.expand_path(__FILE__)) $HasColumnCreate = Tk::TreeCtrl::HasColumnCreateCommand +class Hash + alias key index +end + class TkTreeCtrl_demo def initialize(dir) @ScriptDir = dir || '.' @@ -102,9 +106,8 @@ class TkTreeCtrl_demo def init_pics(*args) args.each{|pat| - pat = "#{pat}.gif" unless TkImage.names.find{|img| (name = @images.key(img)) && File.fnmatch(pat, name)} - Dir.glob(File.join(@ScriptDir, 'pics', pat)).each{|file| + Dir.glob(File.join(@ScriptDir, 'pics', "#{pat}.gif")).each{|file| name = File.basename(file, '.gif') img = TkPhotoImage.new(:file=>file) @images[name] = img |