Posted to tcl by patthoyts at Wed Oct 24 00:03:26 GMT 2007view raw
- 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);