Posted to tcl by patthoyts at Wed Oct 24 00:03:26 GMT 2007view pretty

Index: generic/tkWindow.c
===================================================================
RCS file: /cvsroot/tktoolkit/tk/generic/tkWindow.c,v
retrieving revision 1.86
diff -u -r1.86 tkWindow.c
--- generic/tkWindow.c  17 Sep 2007 14:58:05 -0000      1.86
+++ generic/tkWindow.c  23 Oct 2007 23:57:20 -0000
@@ -1706,7 +1706,7 @@
     }

     createProc = Tk_GetClassProc(winPtr->classProcsPtr, createProc);
-    if (createProc != NULL) {
+    if (createProc != NULL && parent != None) {
        winPtr->window = (*createProc)(tkwin, parent, winPtr->instanceData);
     } else {
        winPtr->window = TkpMakeWindow(winPtr, parent);