summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2003-08-13 10:28:21 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2003-08-13 10:28:21 (GMT)
commit83c5ef89d9d718ed6d0d73b462e5e151c34533ef (patch)
tree1ce7efd2a5eb0c65d8061dbd5f2ff9bc801e63d4 /library
parentb0f648ca07ee75943d80ed107f90e99616870a35 (diff)
downloadtk-83c5ef89d9d718ed6d0d73b462e5e151c34533ef.zip
tk-83c5ef89d9d718ed6d0d73b462e5e151c34533ef.tar.gz
tk-83c5ef89d9d718ed6d0d73b462e5e151c34533ef.tar.bz2
* library/scale.tcl: Fix for bug #787065 for Button-2 press.
* tests/scale.test: Added test for this bug.
Diffstat (limited to 'library')
-rw-r--r--library/scale.tcl4
1 files changed, 3 insertions, 1 deletions
diff --git a/library/scale.tcl b/library/scale.tcl
index e06bcf8..c704601 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.10 2003/07/19 01:20:17 patthoyts Exp $
+# RCS: @(#) $Id: scale.tcl,v 1.11 2003/08/13 10:28:21 patthoyts Exp $
#
# Copyright (c) 1994 The Regents of the University of California.
# Copyright (c) 1994-1995 Sun Microsystems, Inc.
@@ -272,10 +272,12 @@ proc ::tk::ScaleButton2Down {w x y} {
if {[string equal [$w cget -state] "disabled"]} {
return
}
+
$w configure -state active
$w set [$w get $x $y]
set Priv(dragging) 1
set Priv(initValue) [$w get]
+ set Priv($w,relief) [$w cget -sliderrelief]
set coords "$x $y"
set Priv(deltaX) 0
set Priv(deltaY) 0