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/bgerror.tcl | |
| parent | 019ad61b8b1833368240e189ad1b47b00feaab4c (diff) | |
| download | tk-cfa85ce7321d315e312a7bb23d4cdf0b2d666f47.zip tk-cfa85ce7321d315e312a7bb23d4cdf0b2d666f47.tar.gz tk-cfa85ce7321d315e312a7bb23d4cdf0b2d666f47.tar.bz2 | |
Added braces to expressions.
Diffstat (limited to 'library/bgerror.tcl')
| -rw-r--r-- | library/bgerror.tcl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/library/bgerror.tcl b/library/bgerror.tcl index 51a9be3..9586518 100644 --- a/library/bgerror.tcl +++ b/library/bgerror.tcl @@ -9,8 +9,8 @@ # Copyright (c) 1998-2000 by Ajuba Solutions. # All rights reserved. # -# RCS: @(#) $Id: bgerror.tcl,v 1.14 2001/03/30 07:04:58 hobbs Exp $ -# $Id: bgerror.tcl,v 1.14 2001/03/30 07:04:58 hobbs Exp $ +# RCS: @(#) $Id: bgerror.tcl,v 1.15 2001/06/14 10:56:58 dkf Exp $ +# $Id: bgerror.tcl,v 1.15 2001/06/14 10:56:58 dkf Exp $ option add *ErrorDialog.function.text [::msgcat::mc "Save To Log"] \ widgetDefault @@ -238,10 +238,10 @@ proc bgerror err { set parent [winfo parent .bgerrorDialog] set width [winfo reqwidth .bgerrorDialog] set height [winfo reqheight .bgerrorDialog] - set x [expr ([winfo screenwidth .bgerrorDialog] - $width )/2 - \ - [winfo vrootx $parent]] - set y [expr ([winfo screenheight .bgerrorDialog] - $height)/2 - \ - [winfo vrooty $parent]] + set x [expr {([winfo screenwidth .bgerrorDialog] - $width )/2 - \ + [winfo vrootx $parent]}] + set y [expr {([winfo screenheight .bgerrorDialog] - $height)/2 - \ + [winfo vrooty $parent]}] .bgerrorDialog configure -width $width wm geometry .bgerrorDialog +$x+$y wm deiconify .bgerrorDialog |