Import Tk 8.6.8
This commit is contained in:
@@ -318,7 +318,7 @@ Tk_InitConsoleChannels(
|
||||
* Tk_CreateConsoleWindow --
|
||||
*
|
||||
* Initialize the console. This code actually creates a new application
|
||||
* and associated interpreter. This effectivly hides the implementation
|
||||
* and associated interpreter. This effectively hides the implementation
|
||||
* from the main application.
|
||||
*
|
||||
* Results:
|
||||
@@ -344,9 +344,13 @@ Tk_CreateConsoleWindow(
|
||||
/* Init an interp with Tcl and Tk */
|
||||
Tcl_Interp *consoleInterp = Tcl_CreateInterp();
|
||||
if (Tcl_Init(consoleInterp) != TCL_OK) {
|
||||
Tcl_Obj *result_obj = Tcl_GetObjResult(consoleInterp);
|
||||
Tcl_SetObjResult(interp, result_obj);
|
||||
goto error;
|
||||
}
|
||||
if (Tk_Init(consoleInterp) != TCL_OK) {
|
||||
Tcl_Obj *result_obj = Tcl_GetObjResult(consoleInterp);
|
||||
Tcl_SetObjResult(interp, result_obj);
|
||||
goto error;
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user