diff options
-rw-r--r-- | demos/help.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/demos/help.tcl b/demos/help.tcl index 0ac2526..803fd72 100644 --- a/demos/help.tcl +++ b/demos/help.tcl @@ -259,12 +259,12 @@ proc TreeCtrl::HelpButton1 {w x y} { } } } - $w selection modify $item all $w activate $item foreach item2 [$w item ancestors $item] { $w item expand $item2 } $w item toggle $item + $w selection modify $item all } return } |