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-folders.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-folders.tcl')
-rw-r--r-- | demos/outlook-folders.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/demos/outlook-folders.tcl b/demos/outlook-folders.tcl index 92abe4d..9345715 100644 --- a/demos/outlook-folders.tcl +++ b/demos/outlook-folders.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: outlook-folders.tcl,v 1.11 2006/10/04 04:08:25 treectrl Exp $ +# RCS: @(#) $Id: outlook-folders.tcl,v 1.12 2006/11/23 22:24:56 treectrl Exp $ # # Demo: Outlook Express folder list @@ -7,7 +7,7 @@ proc DemoOutlookFolders {} { InitPics outlook-* - set T .f2.f1.t + set T [DemoList] set height [font metrics [$T cget -font] -linespace] if {$height < 18} { |