Check-in [d18db48a4f]
Overview
Comment:Updated to initialize stubs correctly
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:d18db48a4f434ec5e3fdbee94d25adff5a85116a
User & Date: rkeene on 2011-09-11 19:27:24
Other Links: manifest | tags
Context
2012-07-19
00:25
Updated to use newer mingw32 conventions check-in: 19a5c7951a user: rkeene tags: trunk
2011-09-11
19:27
Updated to initialize stubs correctly check-in: d18db48a4f user: rkeene tags: trunk
2011-09-09
15:04
Fixed up interp->result accesses check-in: 403c5120ce 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