From 9e9ca1e64dc9b6b555b0b5622479511665f15814 Mon Sep 17 00:00:00 2001
From: patthoyts <patthoyts@noemail.net>
Date: Fri, 3 Oct 2003 00:40:45 +0000
Subject: 	* library/scale.tcl: Clear bug with chording mouse buttons.

FossilOrigin-Name: 853cff6916163be727053ce3a8e638cecc70e584
---
 ChangeLog         | 2 ++
 library/scale.tcl | 8 +++++---
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 4e69c11..85f6888 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2003-10-03  Pat Thoyts  <patthoyts@users.sourceforge.net>
 
+	* library/scale.tcl: Clear bug with chording mouse buttons.
+
 	* library/console.tcl: Avoid including the console in the list
 	of interpreters exposed by [winfo interps].
 
diff --git a/library/scale.tcl b/library/scale.tcl
index c704601..ce68b98 100644
--- a/library/scale.tcl
+++ b/library/scale.tcl
@@ -3,7 +3,7 @@
 # This file defines the default bindings for Tk scale widgets and provides
 # procedures that help in implementing the bindings.
 #
-# RCS: @(#) $Id: scale.tcl,v 1.11 2003/08/13 10:28:21 patthoyts Exp $
+# RCS: @(#) $Id: scale.tcl,v 1.12 2003/10/03 00:40:45 patthoyts Exp $
 #
 # Copyright (c) 1994 The Regents of the University of California.
 # Copyright (c) 1994-1995 Sun Microsystems, Inc.
@@ -188,8 +188,10 @@ proc ::tk::ScaleDrag {w x y} {
 proc ::tk::ScaleEndDrag {w} {
     variable ::tk::Priv
     set Priv(dragging) 0
-    $w configure -sliderrelief $Priv($w,relief)
-    unset Priv($w,relief)
+    if {[info exists Priv($w,relief)]} {
+        $w configure -sliderrelief $Priv($w,relief)
+        unset Priv($w,relief)
+    }
 }
 
 # ::tk::ScaleIncrement --
-- 
cgit v0.12