From deec2fe8ae77d0c3a0f424a1a44bb9dde979726e Mon Sep 17 00:00:00 2001 From: Guillaume Maudoux Date: Wed, 2 May 2018 22:28:56 +0200 Subject: [PATCH] Replace uses of Tcl_Interp::result (win32) --- wish/winmain.cc | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/wish/winmain.cc b/wish/winmain.cc index ad3d62eac..17750056b 100644 --- a/wish/winmain.cc +++ b/wish/winmain.cc @@ -208,9 +208,9 @@ void readHandler(ClientData clientData, int mask) int code = Tcl_GlobalEval(interp, buffer); if (code != TCL_OK) { char buf[1000]; - DebugCode(fprintf(dbgin,"### Error(%d): %s\n", code,interp->result); + DebugCode(fprintf(dbgin,"### Error(%d): %s\n", code, Tcl_GetStringResult(interp)); fflush(dbgin)); - sprintf(buf,"w --- %s--- %s\n---\n.\n", buffer,interp->result); + sprintf(buf,"w --- %s--- %s\n---\n.\n", buffer, Tcl_GetStringResult(interp)); sendToEngine(buf); } @@ -251,7 +251,7 @@ WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpszCmdLine, int nCm */ if (Tcl_Init(interp) == TCL_ERROR || Tk_Init(interp) == TCL_ERROR) { - WishPanic("Tcl_Init failed: %s\n", interp->result); + WishPanic("Tcl_Init failed: %s\n", Tcl_GetStringResult(interp)); } Tcl_ResetResult(interp); @@ -282,7 +282,7 @@ WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpszCmdLine, int nCm code = Tcl_GlobalEval(interp, "wm withdraw . "); if (code != TCL_OK) { char buf[1000]; - sprintf(buf,"w %s\n.\n", interp->result); + sprintf(buf,"w %s\n.\n", Tcl_GetStringResult(interp)); sendToEngine(buf); }