Check-in [d18db48a4f]
Overview
SHA1:d18db48a4f434ec5e3fdbee94d25adff5a85116a
Date: 2011-09-11 19:27:24
User: rkeene
Comment:Updated to initialize stubs correctly
Timelines: family | ancestors | descendants | both | trunk
Downloads: Tarball | ZIP archive
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
2012-07-19
00:25
[19a5c7951a] Updated to use newer mingw32 conventions (user: rkeene, tags: trunk)
2011-09-11
19:27
[d18db48a4f] Updated to initialize stubs correctly (user: rkeene, tags: trunk)
2011-09-09
15:04
[403c5120ce] Fixed up interp->result accesses (user: rkeene, tags: trunk)
Changes

Modified tkWindow.c from [9e0d0c6072] to [93d8724a2a].

177
178
179
180
181
182
183




184
185
186
187
188
189
190
	} else {\n\
	    set msg \"can't find $tk_library/ctk.tcl; perhaps you \"\n\
	    append msg \"need to\\ninstall CTk or set your CTK_LIBRARY \"\n\
	    append msg \"environment variable?\"\n\
	    error $msg\n\
	}";
    int retval;





#ifdef USE_TCL_STUBS
    winPtr = Tk_CreateMainWindow(interp, NULL, "ctk", "ctk");
    if (winPtr == NULL) {
        return(TCL_ERROR);
    }
#endif







>
>
>
>







177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
	} else {\n\
	    set msg \"can't find $tk_library/ctk.tcl; perhaps you \"\n\
	    append msg \"need to\\ninstall CTk or set your CTK_LIBRARY \"\n\
	    append msg \"environment variable?\"\n\
	    error $msg\n\
	}";
    int retval;

#ifdef USE_TCL_STUBS
    Tcl_InitStubs(interp, "8", 0);
#endif

#ifdef USE_TCL_STUBS
    winPtr = Tk_CreateMainWindow(interp, NULL, "ctk", "ctk");
    if (winPtr == NULL) {
        return(TCL_ERROR);
    }
#endif