diff options
| author | treectrl <treectrl> | 2006-11-23 22:24:56 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2006-11-23 22:24:56 (GMT) |
| commit | ba58be95010e7a8fef177ea8f96c408371f7d82d (patch) | |
| tree | 0502a17ce9ecc1e154bb7f01b0406e3a590efa99 /demos/mailwasher.tcl | |
| parent | 0a730735d7727e045df33ef8be54ca434aa81143 (diff) | |
| download | tktreectrl-ba58be95010e7a8fef177ea8f96c408371f7d82d.zip tktreectrl-ba58be95010e7a8fef177ea8f96c408371f7d82d.tar.gz tktreectrl-ba58be95010e7a8fef177ea8f96c408371f7d82d.tar.bz2 | |
Added [DemoList] command to get the name of the main list rather than hard-coding .f2.f1.t everywhere.
Diffstat (limited to 'demos/mailwasher.tcl')
| -rw-r--r-- | demos/mailwasher.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/demos/mailwasher.tcl b/demos/mailwasher.tcl index f87e97c..d87b506 100644 --- a/demos/mailwasher.tcl +++ b/demos/mailwasher.tcl @@ -1,11 +1,11 @@ -# RCS: @(#) $Id: mailwasher.tcl,v 1.15 2006/11/19 00:54:45 treectrl Exp $ +# RCS: @(#) $Id: mailwasher.tcl,v 1.16 2006/11/23 22:24:56 treectrl Exp $ # # Demo: MailWasher # proc DemoMailWasher {} { - set T .f2.f1.t + set T [DemoList] InitPics *checked |