diff options
| author | treectrl <treectrl> | 2006-12-07 03:54:06 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2006-12-07 03:54:06 (GMT) |
| commit | 5bbcc5be1847e051a07a4bfddc07e8fff2ad9de6 (patch) | |
| tree | 945e401cb806ef903478ff6f73a9f46e26941497 /demos | |
| parent | 000b041d5c61cc3c00a58b32af186c60b79fbe44 (diff) | |
| download | tktreectrl-5bbcc5be1847e051a07a4bfddc07e8fff2ad9de6.zip tktreectrl-5bbcc5be1847e051a07a4bfddc07e8fff2ad9de6.tar.gz tktreectrl-5bbcc5be1847e051a07a4bfddc07e8fff2ad9de6.tar.bz2 | |
Added a -union element to the last set of items to test the new style layout option -visble.
Diffstat (limited to 'demos')
| -rw-r--r-- | demos/layout.tcl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/demos/layout.tcl b/demos/layout.tcl index 08b56ab..2842a8b 100644 --- a/demos/layout.tcl +++ b/demos/layout.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: layout.tcl,v 1.14 2006/12/02 21:43:30 treectrl Exp $ +# RCS: @(#) $Id: layout.tcl,v 1.15 2006/12/07 03:54:06 treectrl Exp $ # # Demo: Layout @@ -126,11 +126,12 @@ proc DemoLayout {} { foreach expand $expandList { set S [$T style create s$styleNum -orient $orient] - $T style elements $S {e4 e8 e2 e5 e6} + $T style elements $S {e4 e8 e3 e2 e5 e6} $T style layout $S e4 -detach yes -iexpand xy $T style layout $S e8 -detach yes -expand n -iexpand x + $T style layout $S e3 -union {e2 e5 e6} -ipadx 5 -ipady 5 $T style layout $S e2 -expand $expand - $T style layout $S e5 -expand $expand + $T style layout $S e5 -expand $expand -visible {no !selected} $T style layout $S e6 -expand $expand incr styleNum |