Skip to content

Commit

Permalink
* add or modify some widget demo scripts
Browse files Browse the repository at this point in the history
* (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
  • Loading branch information
nagai committed Aug 2, 2003
1 parent 2c225e7 commit f820839
Show file tree
Hide file tree
Showing 16 changed files with 1,509 additions and 35 deletions.
6 changes: 6 additions & 0 deletions ext/tk/MANIFEST
Original file line number Diff line number Diff line change
Expand Up @@ -83,9 +83,11 @@ sample/demos-en/images/tcllogo.gif
sample/demos-en/images/teapot.ppm
sample/demos-en/items.rb
sample/demos-en/ixset
sample/demos-en/ixset2
sample/demos-en/label.rb
sample/demos-en/labelframe.rb
sample/demos-en/menu.rb
sample/demos-en/menu84.rb
sample/demos-en/menubu.rb
sample/demos-en/msgbox.rb
sample/demos-en/patch_1.1c1
Expand All @@ -94,6 +96,7 @@ sample/demos-en/paned2.rb
sample/demos-en/plot.rb
sample/demos-en/puzzle.rb
sample/demos-en/radio.rb
sample/demos-en/radio2.rb
sample/demos-en/rmt
sample/demos-en/rolodex
sample/demos-en/rolodex-j
Expand Down Expand Up @@ -156,17 +159,20 @@ sample/demos-jp/images/tcllogo.gif
sample/demos-jp/images/teapot.ppm
sample/demos-jp/items.rb
sample/demos-jp/ixset
sample/demos-jp/ixset2
sample/demos-jp/label.rb
sample/demos-jp/labelframe.rb
sample/demos-jp/menu.rb
sample/demos-jp/menu8x.rb
sample/demos-jp/menu84.rb
sample/demos-jp/menubu.rb
sample/demos-jp/msgbox.rb
sample/demos-jp/paned1.rb
sample/demos-jp/paned2.rb
sample/demos-jp/plot.rb
sample/demos-jp/puzzle.rb
sample/demos-jp/radio.rb
sample/demos-jp/radio2.rb
sample/demos-jp/rmt
sample/demos-jp/rolodex
sample/demos-jp/rolodex-j
Expand Down
10 changes: 8 additions & 2 deletions ext/tk/lib/tk.rb
Original file line number Diff line number Diff line change
Expand Up @@ -2729,9 +2729,15 @@ def configure(widget, *args)
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
Expand Down
Loading

0 comments on commit f820839

Please sign in to comment.