177
178
179
180
181
182
183
184
185
186
187
188
189
190
|
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
|