diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2001-06-14 10:56:58 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2001-06-14 10:56:58 (GMT) |
| commit | cfa85ce7321d315e312a7bb23d4cdf0b2d666f47 (patch) | |
| tree | ab207a698a3ec34347d9ed68baa80cb2825a3bd1 /library/xmfbox.tcl | |
| parent | 019ad61b8b1833368240e189ad1b47b00feaab4c (diff) | |
| download | tk-cfa85ce7321d315e312a7bb23d4cdf0b2d666f47.zip tk-cfa85ce7321d315e312a7bb23d4cdf0b2d666f47.tar.gz tk-cfa85ce7321d315e312a7bb23d4cdf0b2d666f47.tar.bz2 | |
Added braces to expressions.
Diffstat (limited to 'library/xmfbox.tcl')
| -rw-r--r-- | library/xmfbox.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/xmfbox.tcl b/library/xmfbox.tcl index 1861abc..ae964e8 100644 --- a/library/xmfbox.tcl +++ b/library/xmfbox.tcl @@ -4,7 +4,7 @@ # Unix platform. This implementation is used only if the # "tk_strictMotif" flag is set. # -# RCS: @(#) $Id: xmfbox.tcl,v 1.14 2000/06/30 20:19:07 ericm Exp $ +# RCS: @(#) $Id: xmfbox.tcl,v 1.15 2001/06/14 10:56:58 dkf Exp $ # # Copyright (c) 1996 Sun Microsystems, Inc. # Copyright (c) 1998-2000 Scriptics Corporation @@ -347,8 +347,8 @@ proc tkMotifFDialog_BuildUI {w} { # The buttons # - set maxWidth [::msgcat::mcmax OK Filter Cancel] - set maxWidth [expr $maxWidth<6?6:$maxWidth] + set maxWidth [::msgcat::mcmax OK Filter Cancel] + set maxWidth [expr {$maxWidth<6?6:$maxWidth}] set data(okBtn) [button $bot.ok -text [::msgcat::mc "OK"] \ -width $maxWidth -under 0 \ -command [list tkMotifFDialog_OkCmd $w]] |