* 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

ChangeLog

@@ -1,3 +1,7 @@
+Tue Dec 21 12:10:04 2004  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* ext/tk/lib/tk/grid.rb: rescue bug of 'grid configure' on Tcl/Tk8.3-
+
 Mon Dec 20 22:52:29 2004  NAKAMURA, Hiroshi  <nakahiro@sarion.co.jp>
 
 	* added samples for the previous soap4r's commit.

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