summaryrefslogtreecommitdiffstats
path: root/library/msgbox.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'library/msgbox.tcl')
-rw-r--r--library/msgbox.tcl22
1 files changed, 11 insertions, 11 deletions
diff --git a/library/msgbox.tcl b/library/msgbox.tcl
index 1ed1acc..87b3e10 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.12 2000/06/30 06:38:38 ericm Exp $
+# RCS: @(#) $Id: msgbox.tcl,v 1.13 2001/06/14 10:56:58 dkf Exp $
#
# Copyright (c) 1994-1997 Sun Microsystems, Inc.
#
@@ -170,8 +170,8 @@ proc tkMessageBox {args} {
switch -- $data(-type) {
abortretryignore {
- set maxWidth [::msgcat::mcmax Abort Retry Ignore]
- set maxWidth [expr $maxWidth<6?6:$maxWidth]
+ set maxWidth [::msgcat::mcmax Abort Retry Ignore]
+ set maxWidth [expr {$maxWidth<6?6:$maxWidth}]
set buttons [list \
[list abort -width $maxWidth -text [::msgcat::mc "Abort"] \
-under 0]\
@@ -191,8 +191,8 @@ proc tkMessageBox {args} {
}
}
okcancel {
- set maxWidth [::msgcat::mcmax OK Cancel]
- set maxWidth [expr $maxWidth<6?6:$maxWidth]
+ set maxWidth [::msgcat::mcmax OK Cancel]
+ set maxWidth [expr {$maxWidth<6?6:$maxWidth}]
set buttons [list \
[list ok -width $maxWidth \
-text [::msgcat::mc "OK"] -under 0] \
@@ -201,8 +201,8 @@ proc tkMessageBox {args} {
]
}
retrycancel {
- set maxWidth [::msgcat::mcmax Retry Cancel]
- set maxWidth [expr $maxWidth<6?6:$maxWidth]
+ set maxWidth [::msgcat::mcmax Retry Cancel]
+ set maxWidth [expr {$maxWidth<6?6:$maxWidth}]
set buttons [list \
[list retry -width $maxWidth \
-text [::msgcat::mc "Retry"] -under 0] \
@@ -211,8 +211,8 @@ proc tkMessageBox {args} {
]
}
yesno {
- set maxWidth [::msgcat::mcmax Yes No]
- set maxWidth [expr $maxWidth<6?6:$maxWidth]
+ set maxWidth [::msgcat::mcmax Yes No]
+ set maxWidth [expr {$maxWidth<6?6:$maxWidth}]
set buttons [list \
[list yes -width $maxWidth \
-text [::msgcat::mc "Yes"] -under 0]\
@@ -221,8 +221,8 @@ proc tkMessageBox {args} {
]
}
yesnocancel {
- set maxWidth [::msgcat::mcmax Yes No Cancel]
- set maxWidth [expr $maxWidth<6?6:$maxWidth]
+ set maxWidth [::msgcat::mcmax Yes No Cancel]
+ set maxWidth [expr {$maxWidth<6?6:$maxWidth}]
set buttons [list \
[list yes -width $maxWidth \
-text [::msgcat::mc "Yes"] -under 0]\