diff options
Diffstat (limited to 'library/msgbox.tcl')
| -rw-r--r-- | library/msgbox.tcl | 22 |
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]\ |