diff options
author | treectrl <treectrl> | 2006-10-28 01:24:48 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2006-10-28 01:24:48 (GMT) |
commit | 66a37378ab9750af5b392c8dfb254d97cf8dd508 (patch) | |
tree | 48e56986561fbc118f92aa634b0c30d1a495eb9b /demos/random.tcl | |
parent | 461a646aa62fb323b214b44504519f657045d99a (diff) | |
download | tktreectrl-66a37378ab9750af5b392c8dfb254d97cf8dd508.zip tktreectrl-66a37378ab9750af5b392c8dfb254d97cf8dd508.tar.gz tktreectrl-66a37378ab9750af5b392c8dfb254d97cf8dd508.tar.bz2 |
Try the new -uniform and -weight column options.
Diffstat (limited to 'demos/random.tcl')
-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 |