From ebaf2538558086d8a3749809e5863e1b134f19ab Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Wed, 5 Oct 2005 04:14:10 +0000
Subject: 	* library/dialog.tcl (::tk_dialog): add tkwait visibility
 before 	grab. [Bug 1216775]

---
 ChangeLog          | 5 ++++-
 library/dialog.tcl | 6 ++++--
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 4e1b953..1bb96f6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,9 +1,12 @@
 2005-10-04  Jeff Hobbs  <jeffh@ActiveState.com>
 
+	* library/dialog.tcl (::tk_dialog): add tkwait visibility before
+	grab. [Bug 1216775]
+
 	* win/tkWinDialog.c (ChooseDirectoryValidateProc): reset stored
 	path to "" if it doesn't exist and -mustexist is true. [Bug 1309218]
 	Remove old-style dir chooser (no longer used).
-	
+
 	* macosx/tkMacOSXInt.h: add MODULE_SCOPE definition check for
 	extension writers that access private headers on OS X and don't
 	define it in configure.
diff --git a/library/dialog.tcl b/library/dialog.tcl
index 2c5830d..92d9770 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.18 2005/07/25 09:06:01 dkf Exp $
+# RCS: @(#) $Id: dialog.tcl,v 1.19 2005/10/05 04:14:10 hobbs Exp $
 #
 # Copyright (c) 1992-1993 The Regents of the University of California.
 # Copyright (c) 1994-1997 Sun Microsystems, Inc.
@@ -63,7 +63,7 @@ proc ::tk_dialog {w title text bitmap default args} {
     #
     if {[winfo viewable [winfo toplevel [winfo parent $w]]] } {
 	wm transient $w [winfo toplevel [winfo parent $w]]
-    }    
+    }
 
     if {[tk windowingsystem] eq "aqua"} {
 	::tk::unsupported::MacWindowStyle style $w dBoxProc
@@ -164,6 +164,8 @@ proc ::tk_dialog {w title text bitmap default args} {
     wm geometry $w +$x+$y
     wm deiconify $w
 
+    tkwait visibility $w
+
     # 7. Set a grab and claim the focus too.
 
     set oldFocus [focus]
-- 
cgit v0.12