From 3afe157bdd3c76e0dcb994d9567bf4b64046bc3c Mon Sep 17 00:00:00 2001
From: treectrl <treectrl>
Date: Fri, 10 Nov 2006 23:02:55 +0000
Subject: Stop unnecessary configuring of the -cursor.

---
 library/treectrl.tcl | 14 +++++++-------
 1 file 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)
     }
-- 
cgit v0.12