1 files changed, 0 insertions, 38 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
deleted file mode 100644
index 28c3a11afdf9..000000000000
--- a/sci-libs/opencascade/files/opencascade-6.5.4-tcl8.6.patch
+++ /dev/null
@@ -1,38 +0,0 @@
---- 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