1 files changed, 38 insertions, 0 deletions
diff --git a/sci-libs/opencascade/files/opencascade-6.5.4-tcl8.6.patch b/sci-libs/opencascade/files/opencascade-6.5.4-tcl8.6.patch
new file mode 100644
index 000000000000..28c3a11afdf9
--- /dev/null
+++ b/sci-libs/opencascade/files/opencascade-6.5.4-tcl8.6.patch
@@ -0,0 +1,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);
+     }
+\ No newline at end of file