diff options
Diffstat (limited to 'demos')
-rw-r--r-- | demos/layout.tcl | 4 | ||||
-rw-r--r-- | demos/span.tcl | 5 |
2 files changed, 5 insertions, 4 deletions
diff --git a/demos/layout.tcl b/demos/layout.tcl index ad058cc..08b56ab 100644 --- a/demos/layout.tcl +++ b/demos/layout.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: layout.tcl,v 1.13 2006/11/30 02:41:38 treectrl Exp $ +# RCS: @(#) $Id: layout.tcl,v 1.14 2006/12/02 21:43:30 treectrl Exp $ # # Demo: Layout @@ -18,7 +18,7 @@ proc DemoLayout {} { # Create columns # - $T column create -text Layout -tags C0 + $T column create -text Layout -itemjustify left -justify center -tags C0 $T configure -treecolumn C0 # diff --git a/demos/span.tcl b/demos/span.tcl index 9c443c4..2722a92 100644 --- a/demos/span.tcl +++ b/demos/span.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: span.tcl,v 1.3 2006/11/23 22:24:56 treectrl Exp $ +# RCS: @(#) $Id: span.tcl,v 1.4 2006/12/02 21:43:30 treectrl Exp $ # # Demo: Column span @@ -22,7 +22,8 @@ proc DemoSpan {} { # for {set i 0} {$i < 100} {incr i} { - $T column create -text "$i" -tags C$i -width 40 + $T column create -itemjustify left -justify center -text "$i" \ + -width 40 -tags C$i } # |