* 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/branches/ruby_1_8@7006 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

3 files changed, 12 insertions, 2 deletions

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