diff options
| -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 |