From d55cd8005142ffe55184f4b32c4ef65ce82ae957 Mon Sep 17 00:00:00 2001 From: treectrl Date: Wed, 4 Oct 2006 04:08:25 +0000 Subject: Column -tag is now -tags (although -tag is still backwards-compatible). --- demos/layout.tcl | 4 ++-- demos/mailwasher.tcl | 22 +++++++++++----------- demos/mycomputer.tcl | 12 ++++++------ demos/outlook-folders.tcl | 4 ++-- demos/outlook-newgroup.tcl | 30 +++++++++++++++--------------- demos/random.tcl | 8 ++++---- demos/span.tcl | 4 ++-- demos/style-editor.tcl | 10 +++++----- 8 files changed, 47 insertions(+), 47 deletions(-) diff --git a/demos/layout.tcl b/demos/layout.tcl index 8d0ba0c..d6628c4 100644 --- a/demos/layout.tcl +++ b/demos/layout.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: layout.tcl,v 1.10 2005/07/11 01:59:07 treectrl Exp $ +# RCS: @(#) $Id: layout.tcl,v 1.11 2006/10/04 04:08:25 treectrl Exp $ # # Demo: Layout @@ -18,7 +18,7 @@ proc DemoLayout {} { # Create columns # - $T column create -text Layout -tag C0 + $T column create -text Layout -tags C0 $T configure -treecolumn C0 # diff --git a/demos/mailwasher.tcl b/demos/mailwasher.tcl index 146ea59..b424a0b 100644 --- a/demos/mailwasher.tcl +++ b/demos/mailwasher.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: mailwasher.tcl,v 1.12 2005/07/11 01:59:07 treectrl Exp $ +# RCS: @(#) $Id: mailwasher.tcl,v 1.13 2006/10/04 04:08:25 treectrl Exp $ # # Demo: MailWasher @@ -27,14 +27,14 @@ proc DemoMailWasher {} { # set pad 4 - $T column create -text Delete -textpadx $pad -tag delete - $T column create -text Bounce -textpadx $pad -tag bounce - $T column create -text Status -width 80 -textpadx $pad -tag status - $T column create -text Size -width 40 -textpadx $pad -justify right -tag size - $T column create -text From -width 140 -textpadx $pad -tag from - $T column create -text Subject -width 240 -textpadx $pad -tag subject - $T column create -text Received -textpadx $pad -arrow up -tag received - $T column create -text Attachments -textpadx $pad -tag attachments + $T column create -text Delete -textpadx $pad -tags delete + $T column create -text Bounce -textpadx $pad -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 + $T column create -text Subject -width 240 -textpadx $pad -tags subject + $T column create -text Received -textpadx $pad -arrow up -tags received + $T column create -text Attachments -textpadx $pad -tags attachments $T state define CHECK @@ -150,7 +150,7 @@ proc DemoMailWasher {} { set SortColumn %C } %T column configure %C -arrow $arrow - switch [%T column cget %C -tag] { + switch [%T column cget %C -tags] { bounce - delete { %T item sort root $order -column %C -command [list CompareOnOff %T %C] -column subject -dictionary @@ -183,7 +183,7 @@ proc DemoMailWasher {} { } else { foreach {what item where arg1 arg2 arg3} $id {} if {$where eq "column"} { - set tag [%W column cget $arg1 -tag] + set tag [%W column cget $arg1 -tags] if {$tag eq "delete" || $tag eq "bounce"} { %W item state forcolumn $item $arg1 ~CHECK # return -code break 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 diff --git a/demos/outlook-folders.tcl b/demos/outlook-folders.tcl index b9be739..92abe4d 100644 --- a/demos/outlook-folders.tcl +++ b/demos/outlook-folders.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: outlook-folders.tcl,v 1.10 2005/07/11 01:59:07 treectrl Exp $ +# RCS: @(#) $Id: outlook-folders.tcl,v 1.11 2006/10/04 04:08:25 treectrl Exp $ # # Demo: Outlook Express folder list @@ -25,7 +25,7 @@ proc DemoOutlookFolders {} { # Create columns # - $T column create -text Folders -tag C0 + $T column create -text Folders -tags C0 $T configure -treecolumn C0 # diff --git a/demos/outlook-newgroup.tcl b/demos/outlook-newgroup.tcl index bc3a956..1513912 100644 --- a/demos/outlook-newgroup.tcl +++ b/demos/outlook-newgroup.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: outlook-newgroup.tcl,v 1.14 2006/09/24 22:59:14 treectrl Exp $ +# RCS: @(#) $Id: outlook-newgroup.tcl,v 1.15 2006/10/04 04:08:25 treectrl Exp $ # # Demo: Outlook Express newsgroup messages @@ -28,13 +28,13 @@ proc DemoOutlookNewsgroup {} { # Create columns # - $T column create -image outlook-clip -tag clip - $T column create -image outlook-arrow -tag arrow - $T column create -image outlook-watch -tag watch - $T column create -text Subject -width 250 -tag subject - $T column create -text From -width 150 -tag from - $T column create -text Sent -width 150 -tag sent - $T column create -text Size -width 60 -justify right -tag size + $T column create -image outlook-clip -tags clip + $T column create -image outlook-arrow -tags arrow + $T column create -image outlook-watch -tags watch + $T column create -text Subject -width 250 -tags subject + $T column create -text From -width 150 -tags from + $T column create -text Sent -width 150 -tags sent + $T column create -text Size -width 60 -justify right -tags size # Would be nice if I could specify a column -tag too # *blink* The amazing code Genie makes it so!!! @@ -226,13 +226,13 @@ proc DemoOutlookNewsgroup_2 {} { # Create columns # - $T column create -image outlook-clip -tag clip - $T column create -image outlook-arrow -tag arrow - $T column create -image outlook-watch -tag watch - $T column create -text Subject -width 250 -tag subject - $T column create -text From -width 150 -tag from - $T column create -text Sent -width 150 -tag sent - $T column create -text Size -width 60 -justify right -tag size + $T column create -image outlook-clip -tags clip + $T column create -image outlook-arrow -tags arrow + $T column create -image outlook-watch -tags watch + $T column create -text Subject -width 250 -tags subject + $T column create -text From -width 150 -tags from + $T column create -text Sent -width 150 -tags sent + $T column create -text Size -width 60 -justify right -tags size $T configure -treecolumn 3 diff --git a/demos/random.tcl b/demos/random.tcl index d58008f..81b799d 100644 --- a/demos/random.tcl +++ b/demos/random.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: random.tcl,v 1.18 2006/09/24 22:58:50 treectrl Exp $ +# RCS: @(#) $Id: random.tcl,v 1.19 2006/10/04 04:08:25 treectrl Exp $ set RandomN 500 set RandomDepth 5 @@ -29,9 +29,9 @@ proc DemoRandom {} { # Create columns # - $T column create -expand yes -text Item -itembackground {#e0e8f0 {}} -tag colItem - $T column create -text Parent -justify center -itembackground {gray90 {}} -tag colParent - $T column create -text Depth -justify center -itembackground {linen {}} -tag colDepth + $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 configure -treecolumn colItem diff --git a/demos/span.tcl b/demos/span.tcl index fb9cb07..165e546 100644 --- a/demos/span.tcl +++ b/demos/span.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: span.tcl,v 1.1 2006/07/11 00:11:54 treectrl Exp $ +# RCS: @(#) $Id: span.tcl,v 1.2 2006/10/04 04:10:20 treectrl Exp $ # # Demo: Column span @@ -22,7 +22,7 @@ proc DemoSpan {} { # for {set i 0} {$i < 100} {incr i} { - $T column create -text "$i" -tag C$i -width 40 + $T column create -text "$i" -tags C$i -width 40 } # diff --git a/demos/style-editor.tcl b/demos/style-editor.tcl index f809f8f..d10da44 100644 --- a/demos/style-editor.tcl +++ b/demos/style-editor.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: style-editor.tcl,v 1.7 2006/09/16 20:10:27 treectrl Exp $ +# RCS: @(#) $Id: style-editor.tcl,v 1.8 2006/10/04 04:10:20 treectrl Exp $ namespace eval StyleEditor { variable Info @@ -30,7 +30,7 @@ proc StyleEditor::Init {Tdemo} { TreePlusScrollbarsInAFrame $w.pwH.pwV.styleList 0 1 set T $w.pwH.pwV.styleList.t $T configure -showbuttons no -showlines no -showroot no -width 100 -height 200 - $T column create -text "Styles" -expand yes -button no -tag C0 + $T column create -text "Styles" -expand yes -button no -tags C0 $T configure -treecolumn C0 $T notify bind $T { @@ -42,7 +42,7 @@ proc StyleEditor::Init {Tdemo} { TreePlusScrollbarsInAFrame $w.pwH.pwV.elementList 0 1 set T $w.pwH.pwV.elementList.t $T configure -showbuttons no -showlines no -showroot no -width 100 -height 200 - $T column create -text "Elements" -expand yes -button no -tag C0 + $T column create -text "Elements" -expand yes -button no -tags C0 $T configure -treecolumn C0 $T notify bind $T { @@ -62,9 +62,9 @@ proc StyleEditor::Init {Tdemo} { TreePlusScrollbarsInAFrame $fRight.propertyList 0 1 set T $fRight.propertyList.t $T configure -showbuttons no -showlines no -showroot no - $T column create -text "Property" -expand yes -button no -tag property \ + $T column create -text "Property" -expand yes -button no -tags property \ -itembackground {#E8E8E8 ""} - $T column create -text "Value" -expand yes -button no -tag value \ + $T column create -text "Value" -expand yes -button no -tags value \ -itembackground {#E8E8E8 ""} $T configure -treecolumn property -- cgit v0.12