From 2298ab73ce183b90fef1101cfb2ec8dad2964a56 Mon Sep 17 00:00:00 2001
From: dgp <dgp@noemail.net>
Date: Sun, 16 Sep 2012 22:36:20 +0000
Subject: Updated branch now stops all segfaults and panics in the test suite.
 Not a lot of confidence that other problems haven't been created, including
 memleaks and broken functionality in areas.  A review would be a good idea.
 So would a trunk that doesn't segfault the test suite.

FossilOrigin-Name: 0f45936168a2885d1541a2e313bb0afa60619465
---
 macosx/tkMacOSXWm.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/macosx/tkMacOSXWm.c b/macosx/tkMacOSXWm.c
index f5aefef..3a1da10 100644
--- a/macosx/tkMacOSXWm.c
+++ b/macosx/tkMacOSXWm.c
@@ -1649,7 +1649,12 @@ WmForgetCmd(
     register Tk_Window frameWin = (Tk_Window) winPtr;
 
     if (Tk_IsTopLevel(frameWin)) {
-	MacDrawable *macWin = (MacDrawable *) winPtr->window;
+	MacDrawable *macWin;
+
+	Tk_MakeWindowExist(winPtr);
+	Tk_MakeWindowExist(winPtr->parentPtr);
+
+	macWin = (MacDrawable *) winPtr->window;
 
     	TkFocusJoin(winPtr);
     	Tk_UnmapWindow(frameWin); 
-- 
cgit v0.12