diff options
-rw-r--r-- | demos/random.tcl | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/demos/random.tcl b/demos/random.tcl index 81b799d..885f74a 100644 --- a/demos/random.tcl +++ b/demos/random.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: random.tcl,v 1.19 2006/10/04 04:08:25 treectrl Exp $ +# RCS: @(#) $Id: random.tcl,v 1.20 2006/10/28 01:24:48 treectrl Exp $ set RandomN 500 set RandomDepth 5 @@ -29,9 +29,12 @@ proc DemoRandom {} { # Create columns # - $T column create -expand yes -text Item -itembackground {#e0e8f0 {}} -tags colItem - $T column create -text Parent -justify center -itembackground {gray90 {}} -tags colParent - $T column create -text Depth -justify center -itembackground {linen {}} -tags colDepth + $T column create -expand yes -weight 4 -text Item -itembackground {#e0e8f0 {}} \ + -tags colItem + $T column create -text Parent -justify center -itembackground {gray90 {}} \ + -uniform a -expand yes -tags colParent + $T column create -text Depth -justify center -itembackground {linen {}} \ + -uniform a -expand yes -tags colDepth $T configure -treecolumn colItem |