From 9b860c88befc6f6f4ba9fa31494f2697a0917c25 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Mon, 3 May 2004 08:42:07 +0000
Subject: Fix a very nasty memory bug under Perl/Tk windows.

---
 generic/tkZinc.c | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'generic/tkZinc.c')

diff --git a/generic/tkZinc.c b/generic/tkZinc.c
index 00b2e35..135ddb2 100644
--- a/generic/tkZinc.c
+++ b/generic/tkZinc.c
@@ -7070,23 +7070,23 @@ Event(ClientData client_data,	/* Information about widget. */
        * Set the real top window above us.
        */
       {
-	Window	  parent, root, *children;
+	Window	  parent, root, *children=NULL;
 	Tk_Window top_level;
-	int       num_children;
+	int       num_children, success;
 	
 	top_level = wi->win;
 	while (!Tk_IsTopLevel(top_level)) {
 	  top_level = Tk_Parent(top_level);
 	}
-	XQueryTree(wi->dpy, Tk_WindowId(top_level), &root, &parent,
-		   &children, &num_children);
+	success = XQueryTree(wi->dpy, Tk_WindowId(top_level), &root, &parent,
+			     &children, &num_children);
 	if (root == parent) {
 	  wi->real_top = Tk_WindowId(top_level);
 	}
 	else {
 	  wi->real_top = parent;
 	}
-	if (children) {
+	if (children && success) {
 	  XFree(children);
 	}
       }
-- 
cgit v1.1