diff options
Diffstat (limited to 'library')
| -rw-r--r-- | library/button.tcl | 30 |
1 files changed, 16 insertions, 14 deletions
diff --git a/library/button.tcl b/library/button.tcl index 469a9a8..80d8bf9 100644 --- a/library/button.tcl +++ b/library/button.tcl @@ -589,20 +589,6 @@ proc ::tk::ButtonUp w { # Shared routines ################## -# ::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. - -proc ::tk::ButtonInvokeEnd {w oldState oldRelief} { - if {[winfo exists $w]} { - $w configure -state $oldState -relief $oldRelief - uplevel #0 [list $w invoke] - } -} - # ::tk::ButtonInvoke -- # The procedure below is called when a button is invoked through # the keyboard. It simulate a press of the button via the mouse. @@ -619,6 +605,22 @@ proc ::tk::ButtonInvoke w { } } +# ::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] + } +} + # ::tk::ButtonAutoInvoke -- # # Invoke an auto-repeating button, and set it up to continue to repeat. |