summaryrefslogtreecommitdiffstats
path: root/library/msgbox.tcl
diff options
context:
space:
mode:
authormdejong <mdejong>2002-06-13 06:17:21 (GMT)
committermdejong <mdejong>2002-06-13 06:17:21 (GMT)
commit00eb28810aae93e396001907717682efb48960d4 (patch)
tree5d8066453be4b1d16170803d1ae501fac752a956 /library/msgbox.tcl
parent1f8f56c938ebe9865f17d61ef79173662698fc2f (diff)
downloadtk-00eb28810aae93e396001907717682efb48960d4.zip
tk-00eb28810aae93e396001907717682efb48960d4.tar.gz
tk-00eb28810aae93e396001907717682efb48960d4.tar.bz2
* library/choosedir.tcl (tk::dialog::file::chooseDir):
* library/clrpick.tcl (tk::dialog::file::chooseDir): * library/msgbox.tcl (tk::MessageBox): * library/tkfbox.tcl (tk::dialog::file): * library/xmfbox.tcl (tk::MotifFDialog): Remove the transient property on dialogs after they have been dismissed to insulate them from further state changes in the master. This keeps a withdrawn dialog from being mapped when the master is deiconified. [Tk patch 568278]
Diffstat (limited to 'library/msgbox.tcl')
-rw-r--r--library/msgbox.tcl9
1 files changed, 8 insertions, 1 deletions
diff --git a/library/msgbox.tcl b/library/msgbox.tcl
index bd62167..4208d2c 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.19 2002/06/12 23:08:12 mdejong Exp $
+# RCS: @(#) $Id: msgbox.tcl,v 1.20 2002/06/13 06:17:21 mdejong Exp $
#
# Copyright (c) 1994-1997 Sun Microsystems, Inc.
#
@@ -404,5 +404,12 @@ proc ::tk::MessageBox {args} {
::tk::RestoreFocusGrab $w $focus
+ # Remove the transient property to insulate the
+ # dialog from changes in the master's state.
+
+ if {[winfo exists $w]} {
+ wm transient $w {}
+ }
+
return $Priv(button)
}