summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--library/button.tcl23
-rw-r--r--tests/button.test1
2 files changed, 17 insertions, 7 deletions
diff --git a/library/button.tcl b/library/button.tcl
index 16624e7..80d8bf9 100644
--- a/library/button.tcl
+++ b/library/button.tcl
@@ -601,12 +601,23 @@ proc ::tk::ButtonInvoke w {
set oldRelief [$w cget -relief]
set oldState [$w cget -state]
$w configure -state active -relief sunken
- update idletasks
- after 100
- if {[winfo exists $w]} {
- $w configure -state $oldState -relief $oldRelief
- uplevel #0 [list $w invoke]
- }
+ after 100 [list ::tk::ButtonInvokeEnd $w $oldState $oldRelief]
+ }
+}
+
+# ::tk::ButtonInvokeEnd --
+# The procedure below is called after a button is invoked through
+# the keyboard. It simulate a release of the button via the mouse.
+#
+# Arguments:
+# w - The name of the widget.
+# oldState - Old state to be set back.
+# oldRelief - Old relief to be set back.
+
+proc ::tk::ButtonInvokeEnd {w oldState oldRelief} {
+ if {[winfo exists $w]} {
+ $w configure -state $oldState -relief $oldRelief
+ uplevel #0 [list $w invoke]
}
}
diff --git a/tests/button.test b/tests/button.test
index 05f463c..708fc30 100644
--- a/tests/button.test
+++ b/tests/button.test
@@ -3912,7 +3912,6 @@ test button-14.1 {bug fix: [011706ec42] tk::ButtonInvoke unsafe wrt widget destr
proc destroy_button {} {
if {[winfo exists .top.b]} {
destroy .top.b
- puts destroyed
}
}
toplevel .top