From fd6f4e20cca447022fa931ebde362341645cb0a6 Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 6 Oct 2004 16:08:45 +0000
Subject: * ext/tk/lib/tk.rb: add Tk.errorInfo and Tk.errorCode *
 ext/tk/lib/tkextlib/bwidget.rb: bug fix

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@7006 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog                      |  4 ++++
 ext/tk/ChangeLog.tkextlib      |  6 ++++++
 ext/tk/lib/tk.rb               | 10 ++++++++++
 ext/tk/lib/tkextlib/bwidget.rb |  2 +-
 ext/tk/lib/tkextlib/tcllib.rb  |  2 +-
 5 files changed, 22 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index da9a8c0814..6b9c7aa36f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Thu Oct  7 01:05:33 2004  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* ext/tk/lib/tk.rb: add Tk.errorInfo and Tk.errorCode
+
 Thu Oct  7 00:08:37 2004  Yukihiro Matsumoto  <matz@ruby-lang.org>
 
 	* io.c (rb_io_s_sysopen): preserve path in the buffer allocated by
diff --git a/ext/tk/ChangeLog.tkextlib b/ext/tk/ChangeLog.tkextlib
index 2d7159d1c7..2fe2161f1d 100644
--- a/ext/tk/ChangeLog.tkextlib
+++ b/ext/tk/ChangeLog.tkextlib
@@ -1,3 +1,9 @@
+2004-10-06  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* bwidget.rb (BWidget.grab): bug fix
+
+	* tcllib.rb: typo fix
+
 2004-07-28  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
 
 	* add winico support
diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb
index 499d71d876..0943e5406e 100644
--- a/ext/tk/lib/tk.rb
+++ b/ext/tk/lib/tk.rb
@@ -1607,6 +1607,16 @@ module Tk
     end
   end
 
+  def Tk.errorInfo
+    INTERP._invoke_without_enc('global', 'errorInfo')
+    INTERP._invoke_without_enc('set', 'errorInfo')
+  end
+
+  def Tk.errorCode
+    INTERP._invoke_without_enc('global', 'errorCode')
+    tk_split_simplelist(INTERP._invoke_without_enc('set', 'errorCode'))
+  end
+
   def root
     TkRoot.new
   end
diff --git a/ext/tk/lib/tkextlib/bwidget.rb b/ext/tk/lib/tkextlib/bwidget.rb
index 411a6ac99a..2fe0089765 100644
--- a/ext/tk/lib/tkextlib/bwidget.rb
+++ b/ext/tk/lib/tkextlib/bwidget.rb
@@ -72,7 +72,7 @@ module Tk
     end
 
     def self.grab(opt, path)
-      tk_call('BWidget::', opt, path)
+      tk_call('BWidget::grab', opt, path)
     end
 
     def self.inuse(klass)
diff --git a/ext/tk/lib/tkextlib/tcllib.rb b/ext/tk/lib/tkextlib/tcllib.rb
index 8810943b5b..862bc9a7d3 100644
--- a/ext/tk/lib/tkextlib/tcllib.rb
+++ b/ext/tk/lib/tkextlib/tcllib.rb
@@ -29,7 +29,7 @@ rescue => e
   err << "\n  ['" << target << "'] "  << e.class.name << ' : ' << e.message
 end
 
-# package:: cursor
+# package:: style
 target = 'tkextlib/tcllib/style'
 begin
   require target
-- 
cgit v1.2.3