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/outlook-newgroup.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/outlook-newgroup.tcl')
-rw-r--r-- | demos/outlook-newgroup.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/demos/outlook-newgroup.tcl b/demos/outlook-newgroup.tcl index 70952f8..99ff108 100644 --- a/demos/outlook-newgroup.tcl +++ b/demos/outlook-newgroup.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: outlook-newgroup.tcl,v 1.17 2006/11/19 00:55:14 treectrl Exp $ +# RCS: @(#) $Id: outlook-newgroup.tcl,v 1.18 2006/11/23 22:24:56 treectrl Exp $ # # Demo: Outlook Express newsgroup messages @@ -9,7 +9,7 @@ proc DemoOutlookNewsgroup {} { InitPics outlook-* - set T .f2.f1.t + set T [DemoList] set height [font metrics [$T cget -font] -linespace] if {$height < 18} { @@ -180,7 +180,7 @@ proc MessageReadDelayed {} { global Message - set T .f2.f1.t + set T [DemoList] unset Message(afterId) set I $Message(afterId,item) @@ -211,7 +211,7 @@ proc DemoOutlookNewsgroup_2 {} { InitPics outlook-* - set T .f2.f1.t + set T [DemoList] set height [font metrics [$T cget -font] -linespace] if {$height < 18} { |