* ext/tk/sample/tkextlib/treectrl/demo.rb: should use Hash#index.

* ext/tk/sample/tkextlib/treectrl/demo.rb: TkImage was not cached properly.

* ext/tk/sample/tkextlib/treectrl/random.rb: fixed typo.


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

ChangeLog

@@ -1,3 +1,11 @@
+Thu Mar 31 23:54:36 2005  Hirokazu Yamamoto  <ocean@m2.ccsnet.ne.jp>
+
+	* ext/tk/sample/tkextlib/treectrl/demo.rb: should use Hash#index.
+
+	* ext/tk/sample/tkextlib/treectrl/demo.rb: TkImage was not cached properly.
+
+	* ext/tk/sample/tkextlib/treectrl/random.rb: fixed typo.
+
 Thu Mar 31 22:23:51 2005  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* lib/mkmf.rb (SRC_EXT): exclude just case different suffixes on case

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

ext/tk/sample/tkextlib/treectrl/random.rb

@@ -184,7 +184,7 @@ def randomButton1(t, x, y)
 
   elsif id[0] == 'header'
     # Click in header
-    Tk::TreeCtrl::BindCallback.buttonPress1(w, x, y)
+    Tk::TreeCtrl::BindCallback.buttonPress1(t, x, y)
 
   else
     # Click in item