summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authortreectrl <treectrl>2006-11-10 23:02:55 (GMT)
committertreectrl <treectrl>2006-11-10 23:02:55 (GMT)
commit3afe157bdd3c76e0dcb994d9567bf4b64046bc3c (patch)
tree94766a06c2871087def30c13cdebdb459d3d3c5d /library
parent7c004adeb880226dd8b27baa4478948d9108fee2 (diff)
downloadtktreectrl-3afe157bdd3c76e0dcb994d9567bf4b64046bc3c.zip
tktreectrl-3afe157bdd3c76e0dcb994d9567bf4b64046bc3c.tar.gz
tktreectrl-3afe157bdd3c76e0dcb994d9567bf4b64046bc3c.tar.bz2
Stop unnecessary configuring of the -cursor.
Diffstat (limited to 'library')
-rw-r--r--library/treectrl.tcl14
1 files changed, 7 insertions, 7 deletions
diff --git a/library/treectrl.tcl b/library/treectrl.tcl
index 75a2124..2e5b1ce 100644
--- a/library/treectrl.tcl
+++ b/library/treectrl.tcl
@@ -1,4 +1,4 @@
-# RCS: @(#) $Id: treectrl.tcl,v 1.31 2006/11/05 06:38:20 treectrl Exp $
+# RCS: @(#) $Id: treectrl.tcl,v 1.32 2006/11/10 23:02:55 treectrl Exp $
bind TreeCtrl <Motion> {
TreeCtrl::CursorCheck %W %x %y
@@ -317,13 +317,13 @@ proc ::TreeCtrl::CursorCheck {w x y} {
CursorCancel $w
return
}
- if {[lindex $action 1] eq "resize"} {
- set cursor sb_h_double_arrow
- }
- if {![info exists Priv(cursor,$w)]} {
- set Priv(cursor,$w) [$w cget -cursor]
+ set cursor sb_h_double_arrow
+ if {$cursor ne [$w cget -cursor]} {
+ if {![info exists Priv(cursor,$w)]} {
+ set Priv(cursor,$w) [$w cget -cursor]
+ }
+ $w configure -cursor $cursor
}
- $w configure -cursor $cursor
if {[info exists Priv(cursor,afterId,$w)]} {
after cancel $Priv(cursor,afterId,$w)
}