diff options
| author | treectrl <treectrl> | 2002-12-31 06:40:59 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2002-12-31 06:40:59 (GMT) |
| commit | d3b9df64dba75e7ac0ddd3369646a31b2e17e2e6 (patch) | |
| tree | 84088aea53568c155dacb511ec48677e9885ff04 /demos/help.tcl | |
| parent | 5dcc733d605a3fa5392081e069872a50d4fbbd5b (diff) | |
| download | tktreectrl-d3b9df64dba75e7ac0ddd3369646a31b2e17e2e6.zip tktreectrl-d3b9df64dba75e7ac0ddd3369646a31b2e17e2e6.tar.gz tktreectrl-d3b9df64dba75e7ac0ddd3369646a31b2e17e2e6.tar.bz2 | |
Use new 'item state set' command.
Diffstat (limited to 'demos/help.tcl')
| -rw-r--r-- | demos/help.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/demos/help.tcl b/demos/help.tcl index df8a10d..5fc067f 100644 --- a/demos/help.tcl +++ b/demos/help.tcl @@ -310,16 +310,16 @@ proc TreeCtrl::HelpMotion {w x y} { if {[llength $id] == 6} { if {$item ne $Priv(help,prev)} { if {$Priv(help,prev) ne ""} { - $w item state $Priv(help,prev) !mouseover + $w item state set $Priv(help,prev) !mouseover } - $w item state $item mouseover + $w item state set $item mouseover set Priv(help,prev) $item } return } } if {$Priv(help,prev) ne ""} { - $w item state $Priv(help,prev) !mouseover + $w item state set $Priv(help,prev) !mouseover set Priv(help,prev) "" } return |