diff options
| author | treectrl <treectrl> | 2004-08-11 00:27:39 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2004-08-11 00:27:39 (GMT) |
| commit | c13fed0641c9027611bd57f70f2682ebdcd6fe8d (patch) | |
| tree | 387fc284243b039f0358dc8faf726480d3ee623c /demos/outlook-newgroup.tcl | |
| parent | 8779013765dbac647edfa4923c191ac070283e45 (diff) | |
| download | tktreectrl-c13fed0641c9027611bd57f70f2682ebdcd6fe8d.zip tktreectrl-c13fed0641c9027611bd57f70f2682ebdcd6fe8d.tar.gz tktreectrl-c13fed0641c9027611bd57f70f2682ebdcd6fe8d.tar.bz2 | |
Use "T item expand" etc instead of "T expand".
Diffstat (limited to 'demos/outlook-newgroup.tcl')
| -rw-r--r-- | demos/outlook-newgroup.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/demos/outlook-newgroup.tcl b/demos/outlook-newgroup.tcl index b76b0ac..29e1ef3 100644 --- a/demos/outlook-newgroup.tcl +++ b/demos/outlook-newgroup.tcl @@ -124,7 +124,7 @@ proc DemoOutlookNewsgroup {} { # Collapse some messages if {rand() * 2 > 1} { - $T collapse $itemi + $T item collapse $itemi } } @@ -352,7 +352,7 @@ proc DemoOutlookNewsgroup2 {} { for {set i 1} {$i < $msgCnt} {incr i} { if {rand() * 2 > 1} { if {[$T item numchildren $i]} { - $T collapse $i + $T item collapse $i } } } |