OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-09-08 14:17:06 +03:00
Code Activity

0026347: Crash on the application close

Browse Source 
Changing procedure to end execution of Tcl according to the documentation to prevent crashes
This commit is contained in:
anv
2015-06-17 11:38:06 +03:00
parent b028f13535
commit d56561505a
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/Draw/Draw_Interpretor.cxx
View File

@@ -199,7 +199,7 @@ static Standard_Integer CommandCmd
if (cc && Draw::Atoi(cc)) {
#ifdef WNT
Tcl_Exit(0);
Tcl_Finalize();
#else
Tcl_Eval(interp,"exit");
#endif
@@ -558,7 +558,7 @@ Draw_Interpretor::~Draw_Interpretor()
#if ((TCL_MAJOR_VERSION > 8) || ((TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION >= 4)))
try {
OCC_CATCH_SIGNALS
Tcl_Exit(0);
Tcl_Finalize();
}
catch (Standard_Failure) {
#ifdef OCCT_DEBUG
@@ -567,7 +567,7 @@ Draw_Interpretor::~Draw_Interpretor()
}
#else
#ifdef WNT
Tcl_Exit(0);
Tcl_Finalize();
#endif
#endif
}

6
src/Draw/Draw_Window.cxx
View File

@@ -1206,7 +1206,7 @@ static void StdinProc(ClientData clientData, int )
if (count < 0) {
if (!gotPartial) {
if (tty) {
Tcl_Exit(0);
Tcl_Finalize();
} else {
Tcl_DeleteChannelHandler(chan, StdinProc, (ClientData) chan);
}
@@ -2103,7 +2103,7 @@ static DWORD WINAPI tkLoop(VOID)
fprintf (stderr, "%s\n", interp->result);
#endif
cout << "tkLoop: Tk_MainWindow() returned NULL. Exiting...\n";
Tcl_Exit (0);
Tcl_Finalize();
}
Tk_Name(mainWindow) = Tk_GetUid (Tk_SetAppName (mainWindow, "Draw"));
}
@@ -2147,7 +2147,7 @@ static DWORD WINAPI tkLoop(VOID)
toLoop = (Tk_GetNumMainWindows() > 0) || Draw_VirtualWindows;
#endif
}
Tcl_Exit(0);
Tcl_Finalize();
return 0;
}