Overview
| Comment: | Updated to initialize stubs correctly |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
d18db48a4f434ec5e3fdbee94d25adff |
| User & Date: | rkeene on 2011-09-11 19:27:24.000 |
| 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
|
| ︙ | ︙ |