opencascade-6.5.4 w/ tcl8.6

opencascade-6.5.4-tcl8.6.patch (text/plain), 1.35 KB, created by Jimmy.Jazz on 2013-01-11 14:42:33 UTC

--- ros/src/Draw/Draw_Window.cxx.ori	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);
     }