diff options
Diffstat (limited to 'library/msgbox.tcl')
| -rw-r--r-- | library/msgbox.tcl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/library/msgbox.tcl b/library/msgbox.tcl index 3757019..fcdcb33 100644 --- a/library/msgbox.tcl +++ b/library/msgbox.tcl @@ -415,6 +415,11 @@ proc ::tk::MessageBox {args} { %W invoke } } + bind $w <KP_Enter> { + if {[winfo class %W] in "Button TButton"} { + %W invoke + } + } # Invoke the designated cancelling operation bind $w <Escape> [list $w.$cancel invoke] |