diff --git a/ChangeLog b/ChangeLog
index 22bcf0b0e6..b230cb5917 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Mon Apr  4 10:26:48 2005  Hirokazu Yamamoto  <ocean@m2.ccsnet.ne.jp>
+
+	* ext/tk/lib/tk/dialog.rb: fixed typo.
+
 Sat Apr  2 23:38:54 2005  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* configure.in (CP, INSTALL): get rid of less portable options.
@@ -39,14 +43,6 @@ Sat Apr  2 02:19:11 2005  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
 	* ext/tk/lib/tk/image.rb (TkImage.initialize): accept 'imagename'
 	  option to create a image object by the given name.
 
-Thu Mar 31 23:52:48 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
@@ -138,10 +134,6 @@ Mon Mar 28 20:53:44 2005  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* ext/extmk.rb (extmake): restore srcdir.
 
-Mon Mar 28 16:23:26 2005  Hirokazu Yamamoto  <ocean@m2.ccsnet.ne.jp>
-
-	* ext/tk/lib/tkextlib/iwidgets/notebook.rb: fixed typo.
-
 Mon Mar 28 08:39:49 2005  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* ext/iconv/iconv.c (iconv_create): Iconv::Failure requires 3
diff --git a/ext/tk/ChangeLog.tkextlib b/ext/tk/ChangeLog.tkextlib
index dc9799660c..8638975e8d 100644
--- a/ext/tk/ChangeLog.tkextlib
+++ b/ext/tk/ChangeLog.tkextlib
@@ -1,3 +1,7 @@
+2005-04-04  ocean  <ocean@ruby-lang.org>
+
+	* lib/tkextlib/tktable/tktable.rb: added Tk::TkTable#selection_present.
+
 2005-04-02  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
 
 	* lib/tkextlib/treectrl/tktreectrl.rb: support TreeCtrl's cvs head.
@@ -26,12 +30,12 @@
 
 2005-03-31  ocean  <ocean@ruby-lang.org>
 
-	* ext/tk/sample/tkextlib/treectrl/demo.rb: should use Hash#index.
+	* sample/tkextlib/treectrl/demo.rb: should use Hash#index.
 
-	* ext/tk/sample/tkextlib/treectrl/demo.rb: TkImage was not
+	* sample/tkextlib/treectrl/demo.rb: TkImage was not
 	  cached properly.
 
-	* ext/tk/sample/tkextlib/treectrl/random.rb: fixed typo.
+	* sample/tkextlib/treectrl/random.rb: fixed typo.
 
 2005-03-31  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
 
@@ -87,6 +91,10 @@
 
 	* sample/tkextlib/blt/pareto.rb: ditto.
 
+2005-03-28  ocean  <ocean@ruby-lang.org>
+
+	* lib/tkextlib/iwidgets/notebook.rb: fixed typo.
+
 2005-03-26  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
 
 	* lib/tkextlib/blt.rb: add commands for zooming.
diff --git a/ext/tk/lib/tk/dialog.rb b/ext/tk/lib/tk/dialog.rb
index 212226b4d4..d468c6e8b1 100644
--- a/ext/tk/lib/tk/dialog.rb
+++ b/ext/tk/lib/tk/dialog.rb
@@ -51,7 +51,7 @@ class TkDialogObj < TkWindow
       }
     end
     # @config = 'after idle {' + @config + '};' if @config != ""
-    @config = array2tk_list['after', 'idle', @config] << ';' if @config != ""
+    @config = array2tk_list(['after', 'idle', @config]) << ';' if @config != ""
   end
   private :_set_button_config
 
diff --git a/ext/tk/lib/tkextlib/tktable/tktable.rb b/ext/tk/lib/tkextlib/tktable/tktable.rb
index da78ca3fbb..dff44bf10d 100644
--- a/ext/tk/lib/tkextlib/tktable/tktable.rb
+++ b/ext/tk/lib/tkextlib/tktable/tktable.rb
@@ -547,6 +547,9 @@ class Tk::TkTable
   def selection_include?(idx)
     bool(tk_send('selection', 'includes', tagid(idx)))
   end
+  def selection_present
+    bool(tk_send('selection', 'present'))
+  end
   def selection_set(first, last=None)
     tk_send('selection', 'set', tagid(first), tagid(last))
     self
diff --git a/ext/tk/sample/tkextlib/vu/dial.rb b/ext/tk/sample/tkextlib/vu/dial_demo.rb
similarity index 100%
rename from ext/tk/sample/tkextlib/vu/dial.rb
rename to ext/tk/sample/tkextlib/vu/dial_demo.rb