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/www-options.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/www-options.tcl')
-rw-r--r-- | demos/www-options.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/demos/www-options.tcl b/demos/www-options.tcl index 52717fc..c4eec66 100644 --- a/demos/www-options.tcl +++ b/demos/www-options.tcl @@ -1,10 +1,10 @@ -# RCS: @(#) $Id: www-options.tcl,v 1.12 2006/11/23 00:39:53 treectrl Exp $ +# RCS: @(#) $Id: www-options.tcl,v 1.13 2006/11/23 22:24:56 treectrl Exp $ proc DemoInternetOptions {} { global Options - set T .f2.f1.t + set T [DemoList] set height [font metrics [$T cget -font] -linespace] if {$height < 18} { @@ -158,7 +158,7 @@ proc DemoInternetOptions_2 {} { global Options - set T .f2.f1.t + set T [DemoList] set height [font metrics [$T cget -font] -linespace] if {$height < 18} { |