diff options
| author | fvogel <fvogelnew1@free.fr> | 2018-05-01 10:46:30 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2018-05-01 10:46:30 (GMT) |
| commit | 585873022c482ebcaf02d193c1ae7115fd3588d9 (patch) | |
| tree | 28f157a4a916c97e97de3f2775607188aac3afa9 /library/msgbox.tcl | |
| parent | 662b392ffcd5fbad21607d814e3e9e4f39393c54 (diff) | |
| download | tk-585873022c482ebcaf02d193c1ae7115fd3588d9.zip tk-585873022c482ebcaf02d193c1ae7115fd3588d9.tar.gz tk-585873022c482ebcaf02d193c1ae7115fd3588d9.tar.bz2 | |
Fix msgbox.test expected results when running on macOS
Diffstat (limited to 'library/msgbox.tcl')
| -rw-r--r-- | library/msgbox.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/msgbox.tcl b/library/msgbox.tcl index 6d329c2..d5465ba 100644 --- a/library/msgbox.tcl +++ b/library/msgbox.tcl @@ -155,7 +155,7 @@ proc ::tk::MessageBox {args} { if {$data(-icon) ni {info warning error question}} { return -code error -errorcode [list TK LOOKUP ICON $data(-icon)] \ - "bad -icon value \"$data(-icon)\": must be error, info, question, or warning" + "bad value \"$data(-icon)\": must be error, info, question, or warning" } set windowingsystem [tk windowingsystem] if {$windowingsystem eq "aqua"} { @@ -207,7 +207,7 @@ proc ::tk::MessageBox {args} { } default { return -code error -errorcode [list TK LOOKUP DLG_TYPE $data(-type)] \ - "bad -type value \"$data(-type)\": must be\ + "bad value \"$data(-type)\": must be\ abortretryignore, ok, okcancel, retrycancel,\ yesno, or yesnocancel" } |