diff options
| author | treectrl <treectrl> | 2006-10-04 04:08:25 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2006-10-04 04:08:25 (GMT) |
| commit | d55cd8005142ffe55184f4b32c4ef65ce82ae957 (patch) | |
| tree | 1c94f858f873585bc02982095a8512bb6030071c /demos/mycomputer.tcl | |
| parent | 423236f6282a9bcf4462fb705f98c637933fded6 (diff) | |
| download | tktreectrl-d55cd8005142ffe55184f4b32c4ef65ce82ae957.zip tktreectrl-d55cd8005142ffe55184f4b32c4ef65ce82ae957.tar.gz tktreectrl-d55cd8005142ffe55184f4b32c4ef65ce82ae957.tar.bz2 | |
Column -tag is now -tags (although -tag is still backwards-compatible).
Diffstat (limited to 'demos/mycomputer.tcl')
| -rw-r--r-- | demos/mycomputer.tcl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/demos/mycomputer.tcl b/demos/mycomputer.tcl index 568c677..c807479 100644 --- a/demos/mycomputer.tcl +++ b/demos/mycomputer.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: mycomputer.tcl,v 1.1 2006/09/16 20:41:31 treectrl Exp $ +# RCS: @(#) $Id: mycomputer.tcl,v 1.2 2006/10/04 04:08:25 treectrl Exp $ proc DemoMyComputer {} { @@ -17,12 +17,12 @@ proc DemoMyComputer {} { # Create columns # - $T column create -text Name -tag name -width 200 - $T column create -text Type -tag type -width 120 - $T column create -text "Total Size" -tag size -justify right -width 100 \ + $T column create -text Name -tags name -width 200 + $T column create -text Type -tags type -width 120 + $T column create -text "Total Size" -tags size -justify right -width 100 \ -arrowside left -arrowgravity right - $T column create -text "Free Space" -tag free -justify right -width 100 - $T column create -text Comments -tag comment -width 120 + $T column create -text "Free Space" -tags free -justify right -width 100 + $T column create -text Comments -tags comment -width 120 # # Create elements |