diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-12-21 03:12:40 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-12-21 03:12:40 +0000 |
commit | 30197588570d15f61f5103f0cd4c6b54d5949c3d (patch) | |
tree | 54019d1b7d3b71db4f611c0aadafc6b98cf475ff /ext | |
parent | d7f6ed827fdfcabcd1e5a0d4419f5ea06f90ebaf (diff) | |
download | ruby-30197588570d15f61f5103f0cd4c6b54d5949c3d.tar.gz |
* ext/tk/lib/tk/grid.rb: rescue bug of 'grid configure' on Tcl/Tk8.3-
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@7620 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext')
-rw-r--r-- | ext/tk/lib/tk/grid.rb | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/ext/tk/lib/tk/grid.rb b/ext/tk/lib/tk/grid.rb index 74287d43bd..499101f1bb 100644 --- a/ext/tk/lib/tk/grid.rb +++ b/ext/tk/lib/tk/grid.rb @@ -42,7 +42,16 @@ module TkGrid params.push("-#{k}") params.push((v.kind_of?(TkObject))? v.epath: v) } - tk_call_without_enc("grid", 'configure', *params) + if Tk::TCL_MAJOR_VERSION < 8 || + (Tk::TCL_MAJOR_VERSION == 8 && Tk::TCL_MINOR_VERSION <= 3) + if params[0] == '-' || params[0] == 'x' || params[0] == '^' + tk_call_without_enc('grid', *params) + else + tk_call_without_enc('grid', 'configure', *params) + end + else + tk_call_without_enc('grid', 'configure', *params) + end end alias grid configure |