diff options
| author | peter.spjuth@gmail.com <pspjuth> | 2004-01-25 01:28:55 (GMT) |
|---|---|---|
| committer | peter.spjuth@gmail.com <pspjuth> | 2004-01-25 01:28:55 (GMT) |
| commit | 39adf7e3b4af444964866db5219ecf4aa41306e9 (patch) | |
| tree | aaafa983e0dac06bd7695eea93c28b05bc07f5a2 /library/msgbox.tcl | |
| parent | 39daaf185a2fac47a1e5829a985ba3ca6c426d70 (diff) | |
| download | tk-39adf7e3b4af444964866db5219ecf4aa41306e9.zip tk-39adf7e3b4af444964866db5219ecf4aa41306e9.tar.gz tk-39adf7e3b4af444964866db5219ecf4aa41306e9.tar.bz2 | |
The dialogs were affected by the TIP#146 implementation.
Added grid anchor commands to restore original behaviour.
Diffstat (limited to 'library/msgbox.tcl')
| -rw-r--r-- | library/msgbox.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/library/msgbox.tcl b/library/msgbox.tcl index a9d895e..4f9badf 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.25 2003/03/12 16:01:02 dkf Exp $ +# RCS: @(#) $Id: msgbox.tcl,v 1.26 2004/01/25 01:29:15 pspjuth Exp $ # # Copyright (c) 1994-1997 Sun Microsystems, Inc. # @@ -262,6 +262,7 @@ proc ::tk::MessageBox {args} { } frame $w.bot -background $bg + grid anchor $w.bot center pack $w.bot -side bottom -fill both frame $w.top -background $bg pack $w.top -side top -fill both -expand 1 |