diff options
| author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-10-06 16:08:45 +0000 |
|---|---|---|
| committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-10-06 16:08:45 +0000 |
| commit | fd6f4e20cca447022fa931ebde362341645cb0a6 (patch) | |
| tree | 7abd6f814a9b29e0f62bb161bd20da5e0aae32d4 /ext | |
| parent | 7f5cf7a100555ddf4deee2a6dfe776ffb3ed6334 (diff) | |
* 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
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/tk/ChangeLog.tkextlib | 6 | ||||
| -rw-r--r-- | ext/tk/lib/tk.rb | 10 | ||||
| -rw-r--r-- | ext/tk/lib/tkextlib/bwidget.rb | 2 | ||||
| -rw-r--r-- | ext/tk/lib/tkextlib/tcllib.rb | 2 |
4 files changed, 18 insertions, 2 deletions
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 |