summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2004-05-24 21:23:22 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2004-05-24 21:23:22 (GMT)
commit45bac8aee04c4dd04060446892e217395e216dc2 (patch)
tree26e4be23b11829f6c0b64418ee5a68e743886828 /tests
parentad33bd4b272e24e3beaee6168328e77fecebace4 (diff)
downloadtk-45bac8aee04c4dd04060446892e217395e216dc2.zip
tk-45bac8aee04c4dd04060446892e217395e216dc2.tar.gz
tk-45bac8aee04c4dd04060446892e217395e216dc2.tar.bz2
Finish off the TIP#152 implementation with Win implementation, tests & docs.
Diffstat (limited to 'tests')
-rw-r--r--tests/msgbox.test6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/msgbox.test b/tests/msgbox.test
index 2959ccd..a351d0b 100644
--- a/tests/msgbox.test
+++ b/tests/msgbox.test
@@ -5,7 +5,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: msgbox.test,v 1.8 2004/05/23 17:34:49 dkf Exp $
+# RCS: @(#) $Id: msgbox.test,v 1.9 2004/05/24 21:23:23 dkf Exp $
#
package require tcltest 2.1
@@ -14,10 +14,10 @@ tcltest::loadTestedCommands
test msgbox-1.1 {tk_messageBox command} {
list [catch {tk_messageBox -foo} msg] $msg
-} {1 {bad option "-foo": must be -default, -icon, -message, -parent, -title, or -type}}
+} {1 {bad option "-foo": must be -default, -detail, -icon, -message, -parent, -title, or -type}}
test msgbox-1.2 {tk_messageBox command} {
list [catch {tk_messageBox -foo bar} msg] $msg
-} {1 {bad option "-foo": must be -default, -icon, -message, -parent, -title, or -type}}
+} {1 {bad option "-foo": must be -default, -detail, -icon, -message, -parent, -title, or -type}}
catch {tk_messageBox -foo bar} msg
regsub -all , $msg "" options