diff options
| author | treectrl <treectrl> | 2005-05-14 22:20:52 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2005-05-14 22:20:52 (GMT) |
| commit | bf79d57331923ba01bb0d6158e92490884e47641 (patch) | |
| tree | 3d1c221c6a79b91bcd34d33aa76574790cc8ddf4 /demos/help.tcl | |
| parent | 422befcf892ef795fb22cbd35a0f9ed4b2a6ab02 (diff) | |
| download | tktreectrl-bf79d57331923ba01bb0d6158e92490884e47641.zip tktreectrl-bf79d57331923ba01bb0d6158e92490884e47641.tar.gz tktreectrl-bf79d57331923ba01bb0d6158e92490884e47641.tar.bz2 | |
Set cursor to hand2 when over item.
Diffstat (limited to 'demos/help.tcl')
| -rw-r--r-- | demos/help.tcl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/demos/help.tcl b/demos/help.tcl index e9e42e5..1b7368c 100644 --- a/demos/help.tcl +++ b/demos/help.tcl @@ -314,6 +314,7 @@ proc TreeCtrl::HelpMotion {w x y} { $w item state set $Priv(help,prev) !mouseover } $w item state set $item mouseover + $w configure -cursor hand2 set Priv(help,prev) $item } return @@ -321,6 +322,7 @@ proc TreeCtrl::HelpMotion {w x y} { } if {$Priv(help,prev) ne ""} { $w item state set $Priv(help,prev) !mouseover + $w configure -cursor "" set Priv(help,prev) "" } return |