diff options
author | treectrl <treectrl> | 2006-11-10 23:02:55 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2006-11-10 23:02:55 (GMT) |
commit | 3afe157bdd3c76e0dcb994d9567bf4b64046bc3c (patch) | |
tree | 94766a06c2871087def30c13cdebdb459d3d3c5d /library | |
parent | 7c004adeb880226dd8b27baa4478948d9108fee2 (diff) | |
download | tktreectrl-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.tcl | 14 |
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) } |