* 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

@@ -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

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

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

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)

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