diff options
| author | pspjuth <pspjuth@noemail.net> | 2004-01-25 01:28:54 (GMT) |
|---|---|---|
| committer | pspjuth <pspjuth@noemail.net> | 2004-01-25 01:28:54 (GMT) |
| commit | c46a2549ddcb77171bf38244f4ba652781bcc052 (patch) | |
| tree | aaafa983e0dac06bd7695eea93c28b05bc07f5a2 /library | |
| parent | 7769dcea32da0eff1a27a5b857ee39e56c9f2066 (diff) | |
| download | tk-c46a2549ddcb77171bf38244f4ba652781bcc052.zip tk-c46a2549ddcb77171bf38244f4ba652781bcc052.tar.gz tk-c46a2549ddcb77171bf38244f4ba652781bcc052.tar.bz2 | |
The dialogs were affected by the TIP#146 implementation.
Added grid anchor commands to restore original behaviour.
FossilOrigin-Name: 6c2ae767cc7bf4b836aad772e523257eab6583eb
Diffstat (limited to 'library')
| -rw-r--r-- | library/dialog.tcl | 11 | ||||
| -rw-r--r-- | library/msgbox.tcl | 3 |
2 files changed, 8 insertions, 6 deletions
diff --git a/library/dialog.tcl b/library/dialog.tcl index 398a494..e51e7a1 100644 --- a/library/dialog.tcl +++ b/library/dialog.tcl @@ -3,7 +3,7 @@ # This file defines the procedure tk_dialog, which creates a dialog # box containing a bitmap, a message, and one or more buttons. # -# RCS: @(#) $Id: dialog.tcl,v 1.15 2003/10/22 15:24:24 dkf Exp $ +# RCS: @(#) $Id: dialog.tcl,v 1.16 2004/01/25 01:29:15 pspjuth Exp $ # # Copyright (c) 1992-1993 The Regents of the University of California. # Copyright (c) 1994-1997 Sun Microsystems, Inc. @@ -78,6 +78,7 @@ proc ::tk_dialog {w title text bitmap default args} { } pack $w.bot -side bottom -fill both pack $w.top -side top -fill both -expand 1 + grid anchor $w.bot center # 2. Fill the top part with bitmap and message (use the option # database for -wraplength and -font so that they can be @@ -165,7 +166,7 @@ proc ::tk_dialog {w title text bitmap default args} { set y 0 } wm maxsize $w [winfo screenwidth $w] [winfo screenheight $w] - wm geom $w +$x+$y + wm geometry $w +$x+$y wm deiconify $w # 7. Set a grab and claim the focus too. @@ -199,10 +200,10 @@ proc ::tk_dialog {w title text bitmap default args} { destroy $w } if {[string compare $oldGrab ""]} { - if {[string compare $grabStatus "global"]} { + if {[string compare $grabStatus "global"]} { grab $oldGrab - } else { - grab -global $oldGrab + } else { + grab -global $oldGrab } } return $Priv(button) 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 |