* add or modify some widget demo scripts

* (bug fix) TkGrid failed to treat RELATIVE PLACEMENT


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@4291 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 8 insertions, 2 deletions

diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb
index 78a869204d..dcbaeea15c 100644
--- a/ext/tk/lib/tk.rb
+++ b/ext/tk/lib/tk.rb
@@ -2729,9 +2729,15 @@ module TkGrid
     if args[-1].kind_of?(Hash)
       keys = args.pop
     end
-    wins = [widget.epath]
+    wins = []
+    args.unshift(widget)
     for i in args
-      wins.push i.epath
+      case i
+      when '-', 'x', '^'  # RELATIVE PLACEMENT
+	wins.push(i)
+      else
+	wins.push(i.epath)
+      end
     end
     tk_call "grid", 'configure', *(wins+hash_kv(keys))
   end