diff options
| author | dkf <dkf@noemail.net> | 2001-06-14 10:56:57 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2001-06-14 10:56:57 (GMT) |
| commit | b31d745dcd575be4844f935c9530350a504f9fb3 (patch) | |
| tree | ab207a698a3ec34347d9ed68baa80cb2825a3bd1 /library/msgbox.tcl | |
| parent | 595ebf15f09581a940a06665a5d1916ed508dac5 (diff) | |
| download | tk-b31d745dcd575be4844f935c9530350a504f9fb3.zip tk-b31d745dcd575be4844f935c9530350a504f9fb3.tar.gz tk-b31d745dcd575be4844f935c9530350a504f9fb3.tar.bz2 | |
Added braces to expressions.
FossilOrigin-Name: 486fbd3c546a027744d7834fc68070af4f182d25
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]\ |