summaryrefslogtreecommitdiffstats
path: root/library/msgbox.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'library/msgbox.tcl')
-rw-r--r--library/msgbox.tcl4
1 files changed, 2 insertions, 2 deletions
diff --git a/library/msgbox.tcl b/library/msgbox.tcl
index a0631b4..093afdf 100644
--- a/library/msgbox.tcl
+++ b/library/msgbox.tcl
@@ -3,7 +3,7 @@
# Implements messageboxes for platforms that do not have native
# messagebox support.
#
-# RCS: @(#) $Id: msgbox.tcl,v 1.3 1998/09/14 18:23:24 stanton Exp $
+# RCS: @(#) $Id: msgbox.tcl,v 1.4 1998/11/12 06:22:05 welch Exp $
#
# Copyright (c) 1994-1997 Sun Microsystems, Inc.
#
@@ -65,7 +65,7 @@ proc tkMessageBox {args} {
error "bad window path name \"$data(-parent)\""
}
- case $data(-type) {
+ switch -- $data(-type) {
abortretryignore {
set buttons {
{abort -width 6 -text Abort -under 0}