diff options
| author | treectrl <treectrl> | 2006-10-28 01:26:37 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2006-10-28 01:26:37 (GMT) |
| commit | 3767107a8c2c27d4070ba365814c51647234617f (patch) | |
| tree | 2b19955d48102da79a2bdac3eca82cf9c66bdbc9 /demos/mailwasher.tcl | |
| parent | 499eb4c1e798725a0010c4a042642a3b4f8335a2 (diff) | |
| download | tktreectrl-3767107a8c2c27d4070ba365814c51647234617f.zip tktreectrl-3767107a8c2c27d4070ba365814c51647234617f.tar.gz tktreectrl-3767107a8c2c27d4070ba365814c51647234617f.tar.bz2 | |
Changed -justification of Delete and Bounce columns.
Diffstat (limited to 'demos/mailwasher.tcl')
| -rw-r--r-- | demos/mailwasher.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/demos/mailwasher.tcl b/demos/mailwasher.tcl index b424a0b..a6bafd1 100644 --- a/demos/mailwasher.tcl +++ b/demos/mailwasher.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: mailwasher.tcl,v 1.13 2006/10/04 04:08:25 treectrl Exp $ +# RCS: @(#) $Id: mailwasher.tcl,v 1.14 2006/10/28 01:26:37 treectrl Exp $ # # Demo: MailWasher @@ -27,8 +27,8 @@ proc DemoMailWasher {} { # set pad 4 - $T column create -text Delete -textpadx $pad -tags delete - $T column create -text Bounce -textpadx $pad -tags bounce + $T column create -text Delete -textpadx $pad -justify center -tags delete + $T column create -text Bounce -textpadx $pad -justify center -tags bounce $T column create -text Status -width 80 -textpadx $pad -tags status $T column create -text Size -width 40 -textpadx $pad -justify right -tags size $T column create -text From -width 140 -textpadx $pad -tags from |