summaryrefslogtreecommitdiffstats
path: root/library/button.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'library/button.tcl')
-rw-r--r--library/button.tcl14
1 files changed, 9 insertions, 5 deletions
diff --git a/library/button.tcl b/library/button.tcl
index bccd232..457b545 100644
--- a/library/button.tcl
+++ b/library/button.tcl
@@ -4,7 +4,7 @@
# checkbutton, and radiobutton widgets and provides procedures
# that help in implementing those bindings.
#
-# RCS: @(#) $Id: button.tcl,v 1.9 2000/05/25 16:57:24 ericm Exp $
+# RCS: @(#) $Id: button.tcl,v 1.10 2000/05/25 17:19:57 ericm Exp $
#
# Copyright (c) 1992-1994 The Regents of the University of California.
# Copyright (c) 1994-1996 Sun Microsystems, Inc.
@@ -195,9 +195,10 @@ proc tkButtonLeave w {
proc tkCheckRadioEnter w {
global tkPriv
- if {[string compare [$w cget -state] "disabled"] \
- && [string equal $tkPriv(buttonWindow) $w]} {
- $w configure -state active
+ if {[string compare [$w cget -state] "disabled"]} {
+ if {[string equal $tkPriv(buttonWindow) $w]} {
+ $w configure -state active
+ }
if { [string compare [$w cget -overrelief] ""] } {
set tkPriv(relief) [$w cget -relief]
$w configure -relief [$w cget -overrelief]
@@ -250,9 +251,12 @@ proc tkButtonDown w {
proc tkCheckRadioDown w {
global tkPriv
- set tkPriv(relief) [$w cget -relief]
+ if { [string equal [$w cget -overrelief] ""] } {
+ set tkPriv(relief) [$w cget -relief]
+ }
if {[string compare [$w cget -state] "disabled"]} {
set tkPriv(buttonWindow) $w
+ set tkPriv(repeated) 0
$w configure -state active
}
}