1 files changed, 3 insertions, 94 deletions
diff --git a/math/plplot/files/patch-bindings__tk__plframe.c b/math/plplot/files/patch-bindings__tk__plframe.c
index a92a268d6e23..3b668d512ab3 100644
--- a/math/plplot/files/patch-bindings__tk__plframe.c
+++ b/math/plplot/files/patch-bindings__tk__plframe.c
@@ -1,24 +1,6 @@
---- bindings/tk/plframe.c.orig
-+++ bindings/tk/plframe.c
-@@ -484,7 +484,7 @@
-         Tk_DestroyWindow( plFramePtr->tkwin );
-         return TCL_ERROR;
-     }
--    interp->result = Tk_PathName( plFramePtr->tkwin );
-+    Tcl_SetResult(interp,(char*)Tk_PathName( plFramePtr->tkwin) ,TCL_VOLATILE);
- 
-     return TCL_OK;
- }
-@@ -616,7 +616,7 @@
-             {
-                 bcb.cmd = PLESC_DOUBLEBUFFERING_QUERY;
-                 pl_cmd( PLESC_DOUBLEBUFFERING, &bcb );
--                sprintf( interp->result, "%d", bcb.result );
-+                sprintf( Tcl_GetStringResult(interp), "%d", bcb.result );
-             }
-         }
- 
-@@ -2215,7 +2215,7 @@
+--- bindings/tk/plframe.c.orig	2012-08-14 00:14:23.000000000 +0200
++++ bindings/tk/plframe.c	2013-10-01 22:47:19.000000000 +0200
+@@ -2218,7 +2218,7 @@
  //
  // Results:
  //	The return value is a standard Tcl result.  If TCL_ERROR is
@@ -27,76 +9,3 @@
  //
  // Side effects:
  //	Configuration information, such as text string, colors, font, etc.
-@@ -2675,7 +2675,7 @@
-         plr->at_bop = 0;
-         if ( Tcl_Eval( interp, plFramePtr->bopCmd ) != TCL_OK )
-             fprintf( stderr, "Command \"%s\" failed:\n\t %s\n",
--                plFramePtr->bopCmd, interp->result );
-+                plFramePtr->bopCmd, Tcl_GetStringResult(interp) );
-     }
- 
- // Signal eop if necessary
-@@ -2685,7 +2685,7 @@
-         plr->at_eop = 0;
-         if ( Tcl_Eval( interp, plFramePtr->eopCmd ) != TCL_OK )
-             fprintf( stderr, "Command \"%s\" failed:\n\t %s\n",
--                plFramePtr->eopCmd, interp->result );
-+                plFramePtr->eopCmd, Tcl_GetStringResult(interp) );
-     }
- 
-     return result;
-@@ -3275,7 +3275,7 @@
- 
-     if ( argc == 0 )
-     {
--        interp->result = "report what?";
-+        Tcl_SetResult(interp,(char*)"report what?",TCL_VOLATILE);
-         return TCL_ERROR;
-     }
- 
-@@ -3286,7 +3286,7 @@
- 
-         if ( argc != 3 )
-         {
--            interp->result = "Wrong # of args: report wc x y";
-+            Tcl_SetResult(interp,(char*)"Wrong # of args: report wc x y",TCL_VOLATILE);
-             return TCL_ERROR;
-         }
- 
-@@ -3300,15 +3300,15 @@
- 
-         if ( plTranslateCursor( gin ) )
-         {
--            sprintf( interp->result, "%f %f", gin->wX, gin->wY );
-+            sprintf( Tcl_GetStringResult(interp), "%f %f", gin->wX, gin->wY );
-             return TCL_OK;
-         }
- 
--        interp->result = "Cannot locate";
-+        Tcl_SetResult(interp,(char*)"Cannot locate",TCL_VOLATILE);
-         return TCL_OK;
-     }
- 
--    interp->result = "nonsensical request.";
-+    Tcl_SetResult(interp,(char*)"nonsensical request.",TCL_VOLATILE);
-     return TCL_ERROR;
- }
- 
-@@ -3324,7 +3324,7 @@
- 
-     if ( Tcl_Eval( plFramePtr->interp, plFramePtr->bopCmd ) != TCL_OK )
-         fprintf( stderr, "Command \"%s\" failed:\n\t %s\n",
--            plFramePtr->bopCmd, plFramePtr->interp->result );
-+            plFramePtr->bopCmd, Tcl_GetStringResult(plFramePtr->interp) );
- }
- 
- //--------------------------------------------------------------------------
-@@ -3339,7 +3339,7 @@
- 
-     if ( Tcl_Eval( plFramePtr->interp, plFramePtr->eopCmd ) != TCL_OK )
-         fprintf( stderr, "Command \"%s\" failed:\n\t %s\n",
--            plFramePtr->eopCmd, plFramePtr->interp->result );
-+            plFramePtr->eopCmd, Tcl_GetStringResult(plFramePtr->interp) );
- }
- 
- //--------------------------------------------------------------------------