diff options
| author | treectrl <treectrl> | 2006-11-18 04:38:27 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2006-11-18 04:38:27 (GMT) |
| commit | 0dc4a24b351383c1b03ec961237413838e32e320 (patch) | |
| tree | a9cf946fc679f3726165d3554125584e54a8f37d | |
| parent | e59bd9aa8c114a044a31bb49df5f0c0ae1c28ee5 (diff) | |
| download | tktreectrl-0dc4a24b351383c1b03ec961237413838e32e320.zip tktreectrl-0dc4a24b351383c1b03ec961237413838e32e320.tar.gz tktreectrl-0dc4a24b351383c1b03ec961237413838e32e320.tar.bz2 | |
Replaced [llength [$w selection get]] with [$w selection count].
| -rw-r--r-- | demos/help.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/demos/help.tcl b/demos/help.tcl index 938a3b8..f23f06c 100644 --- a/demos/help.tcl +++ b/demos/help.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: help.tcl,v 1.17 2006/10/04 03:58:08 treectrl Exp $ +# RCS: @(#) $Id: help.tcl,v 1.18 2006/11/18 04:38:27 treectrl Exp $ # # Demo: Help contents @@ -119,7 +119,7 @@ proc DemoHelpContents {} { HelpMotion %W %x %y } bind DemoHelpContents <KeyPress-Return> { - if {[llength [%W selection get]] == 1} { + if {[%W selection count] == 1} { %W item toggle [lindex [%W selection get] 0] } break @@ -259,7 +259,7 @@ proc DemoHelpContents_2 {} { HelpMotion_2 %W %x %y } bind DemoHelpContents <KeyPress-Return> { - if {[llength [%W selection get]] == 1} { + if {[%W selection count] == 1} { %W item toggle [lindex [%W selection get] 0] } break @@ -286,7 +286,7 @@ proc HelpButton1 {w x y} { $w item toggle $item return } - if {[llength [$w selection get]]} { + if {[$w selection count]} { set item2 [lindex [$w selection get] 0] $w item collapse $item2 foreach item2 [$w item ancestors $item2] { |