diff --git a/ext/tk/ChangeLog.tkextlib b/ext/tk/ChangeLog.tkextlib
index 6a9332f17e..ed1db59490 100644
--- a/ext/tk/ChangeLog.tkextlib
+++ b/ext/tk/ChangeLog.tkextlib
@@ -1,3 +1,8 @@
+2005-04-09  ocean  <ocean@ruby-lang.org>
+
+	* sample/tkextlib/treectrl/{help,www-options}.rb: fixed typo.
+	  (click or resize column header)
+
 2005-04-09  ocean  <ocean@ruby-lang.org>
 
 	* sample/tkextlib/treectrl/imovie.rb: fixed typo. (click on clip title)
diff --git a/ext/tk/sample/tkextlib/treectrl/help.rb b/ext/tk/sample/tkextlib/treectrl/help.rb
index be67cc5729..af026fc006 100644
--- a/ext/tk/sample/tkextlib/treectrl/help.rb
+++ b/ext/tk/sample/tkextlib/treectrl/help.rb
@@ -119,7 +119,7 @@ def demoHelpContents(t)
 
   treeCtrlHelp.bind('Leave', proc{|w, x, y| helpMotion(w, x, y) }, '%W %x %y')
 
-  treeCtrlHelp.bind('Button1-Motion', 
+  treeCtrlHelp.bind('KeyPress-Return', 
                     proc{|w, x, y|
                       if w.selection_get.length == 1
                         if $Version_1_1_OrLater
@@ -271,7 +271,7 @@ def demoHelpContents2(t)
 
   treeCtrlHelp.bind('Leave', proc{|w, x, y| helpMotion(w, x, y) }, '%W %x %y')
 
-  treeCtrlHelp.bind('Button1-Motion', 
+  treeCtrlHelp.bind('KeyPress-Return', 
                     proc{|w, x, y|
                       if w.selection_get.length == 1
                         w.item_toggle(w.selection_get[0])
@@ -347,7 +347,7 @@ end
 def helpRelease1(w, x, y)
   case @Priv['buttonMode']
   when 'resize', 'header'
-    Tk::TreeCtrl::BindCallback.Release1(w, x, y)
+    Tk::TreeCtrl::BindCallback.release1(w, x, y)
   end
   @Priv['buttonMode'] = ''
 end
diff --git a/ext/tk/sample/tkextlib/treectrl/www-options.rb b/ext/tk/sample/tkextlib/treectrl/www-options.rb
index 2b0f75e85e..efa55ca06c 100644
--- a/ext/tk/sample/tkextlib/treectrl/www-options.rb
+++ b/ext/tk/sample/tkextlib/treectrl/www-options.rb
@@ -276,7 +276,7 @@ end
 def optionMotion1(w, x, y)
   case @Priv['buttonMode']
   when 'resize', 'header'
-    Tk::TreeCtrl::BindCallback.Motion1(w, x, y)
+    Tk::TreeCtrl::BindCallback.motion1(w, x, y)
   end
 end
 
@@ -297,7 +297,7 @@ end
 def optionRelease1(w, x, y)
   case @Priv['buttonMode']
   when 'resize', 'header'
-    Tk::TreeCtrl::BindCallback.Release1(w, x, y)
+    Tk::TreeCtrl::BindCallback.release1(w, x, y)
   end
   @Priv['buttonMode'] = ''
 end