diff options
| author | fvogel <fvogelnew1@free.fr> | 2018-05-01 12:37:46 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2018-05-01 12:37:46 (GMT) |
| commit | 4ac45f804f667661e9260de1cb319c6ce72e97ac (patch) | |
| tree | a721f5b651acd6613ee3049820eb1fec60aec701 /library/msgbox.tcl | |
| parent | 6e10bc49e4bbf264dadd76df5de6046e0601d127 (diff) | |
| download | tk-4ac45f804f667661e9260de1cb319c6ce72e97ac.zip tk-4ac45f804f667661e9260de1cb319c6ce72e97ac.tar.gz tk-4ac45f804f667661e9260de1cb319c6ce72e97ac.tar.bz2 | |
Unify error messages for wrong values of 'tk_messageBox -default' among platforms: Windows and X11 now return the same error
Diffstat (limited to 'library/msgbox.tcl')
| -rw-r--r-- | library/msgbox.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/library/msgbox.tcl b/library/msgbox.tcl index 6d329c2..98603af 100644 --- a/library/msgbox.tcl +++ b/library/msgbox.tcl @@ -234,7 +234,8 @@ proc ::tk::MessageBox {args} { } if {!$valid} { return -code error -errorcode {TK MSGBOX DEFAULT} \ - "invalid default button \"$data(-default)\"" + "bad -default value \"$data(-default)\": must be\ + abort, retry, ignore, ok, cancel, no, or yes" } # 2. Set the dialog to be a child window of $parent |