1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
--- ros/src/Draw/Draw_Window.cxx.orig 2013-01-10 23:40:07.279470692 +0100
+++ ros/src/Draw/Draw_Window.cxx 2013-01-10 23:45:00.498784426 +0100
@@ -84,7 +84,7 @@
errChannel = Tcl_GetStdChannel(TCL_STDERR);
if (code != TCL_OK) {
if (errChannel) {
- Tcl_Write(errChannel, Interp->result, -1);
+ Tcl_Write(errChannel, Tcl_GetStringResult(Interp), -1);
Tcl_Write(errChannel, "\n", 1);
}
Tcl_AddErrorInfo(Interp,
@@ -1055,7 +1055,7 @@
mainWindow =
Tk_MainWindow(interp) ;
if (mainWindow == NULL) {
- fprintf(stderr, "%s\n", interp->result);
+ fprintf(stderr, "%s\n", Tcl_GetStringResult(interp));
exit(1);
}
Tk_Name(mainWindow) =
@@ -2061,7 +2061,7 @@
Standard_Integer res = Tk_Init (interp);
if (res != TCL_OK)
{
- cout << "tkLoop: error in Tk initialization. Tcl reported: " << interp->result << endl;
+ cout << "tkLoop: error in Tk initialization. Tcl reported: " << Tcl_GetStringResult(interp) << endl;
}
}
catch (Standard_Failure)
@@ -2072,7 +2072,7 @@
mainWindow = Tk_MainWindow (interp);
if (mainWindow == NULL)
{
- fprintf (stderr, "%s\n", interp->result);
+ fprintf (stderr, "%s\n", Tcl_GetStringResult(interp));
cout << "tkLoop: Tk_MainWindow() returned NULL. Exiting...\n";
Tcl_Exit (0);
}
|
GitWeb
