sci-libs/plplot: Add fix for tk-8.6, thanks Helmut Jarausch preparing the patch, #451294

Package-Manager: portage-2.2.0_alpha151/cvs/Linux x86_64
Manifest-Sign-Key: 0x8009D6F070EB7916

5 files changed, 667 insertions, 15 deletions

diff --git a/sci-libs/plplot/ChangeLog b/sci-libs/plplot/ChangeLog
index db2621264795..0098b8d81d3c 100644
--- a/sci-libs/plplot/ChangeLog
+++ b/sci-libs/plplot/ChangeLog
@@ -1,6 +1,10 @@
 # ChangeLog for sci-libs/plplot
-# Copyright 1999-2012 Gentoo Foundation; Distributed under the GPL v2
-# $Header: /var/cvsroot/gentoo-x86/sci-libs/plplot/ChangeLog,v 1.44 2012/10/16 20:22:07 jlec Exp $
+# Copyright 1999-2013 Gentoo Foundation; Distributed under the GPL v2
+# $Header: /var/cvsroot/gentoo-x86/sci-libs/plplot/ChangeLog,v 1.45 2013/01/13 12:46:02 jlec Exp $
+
+  13 Jan 2013; Justin Lecher <jlec@gentoo.org> plplot-5.9.9-r1.ebuild,
+  +files/plplot-5.9.9-tk86.patch, metadata.xml:
+  Add fix for tk-8.6, thanks Helmut Jarausch preparing the patch, #451294
 
   16 Oct 2012; Justin Lecher <jlec@gentoo.org> plplot-5.9.9-r1.ebuild,
   metadata.xml:
diff --git a/sci-libs/plplot/Manifest b/sci-libs/plplot/Manifest
index 891bec16063a..2384b553960f 100644
--- a/sci-libs/plplot/Manifest
+++ b/sci-libs/plplot/Manifest
@@ -1,7 +1,18 @@
+-----BEGIN PGP SIGNED MESSAGE-----
+Hash: SHA512
+
 AUX plplot-5.9.6-python.patch 379 SHA256 a338e7b7d9893aabf0bc2e4bc5bd25a97b81674abfa40492b6cc8a33fe8763c8 SHA512 cb2022bda3d5408ef0b2dc280981ad8bdb2f7ecb20d827f7e71ce063fba60963e68aeaa5efd8eef87da8e3dc270b609f7cb342c1da175cd757c9f135173842e4 WHIRLPOOL a6ae20047cd0e99251746cadf703e19d35897a6788e5b5d665758f970cc47aad31331640a679f974455aeab4ab6ec4927649d4b1c1a9d9efbe474f2e966aed83
 AUX plplot-5.9.9-CMakeLists.txt.patch 524 SHA256 f2a28ccca6934f85e496bf5c54d192bf436f544b379640498e2077fd882ce647 SHA512 daa8788ca5d55539c146c17318b2f402e360a8f34ce930999b7078e474099535dc8a335f88c520ec756d8e9f2249e2c93a4d65e5822f7224ec400c854f1168cc WHIRLPOOL 02e09ed162aab24f3358f8a3248fae66bac8c60db29180adacc7869ce5a1ae11db44430da9101327bd487a49480ea84647ce2883bfbc954f460e801be89c3aba
 AUX plplot-5.9.9-no-pdftest.patch 458 SHA256 ee9d6b0cfdf4e954e24c5c026723334105ee208d9bb92e623bc42fdbd272caad SHA512 4c41b4321cdf4040cf64fba44b5c93032011737c1dbd98a9fa8c8d5b2b0c182cc94b30a3c52d2c1c184ce678e22b2c35a2d4f0e5ddbd93a86396e2c615cb50fe WHIRLPOOL aa6aaaffd9098abde89927a9c1079f351a7810e9c7b41fb61bc72f75225c5f5c3ff636b575444cdab4a22bd6bc24ea110d6bb29dbc684e9984c20cab37c709fd
+AUX plplot-5.9.9-tk86.patch 21286 SHA256 9d6c908e7bb36df4e805bf2b95c773b88fb4dfa2542db63157bd994e83a22b35 SHA512 0b60a42a014b35a5b85af830f0dfc200a1156e53fa79ddb230f93080ab9cb19589008456affb6e670e388679a5ee68b981c04ce2a232cfcb7f27fd2ce457b51f WHIRLPOOL a8086c4ffd07ac98b51edc8f8fcdf7bf4de3755d25101464493129aaf4979d2c6247eb3f0afcd9bb57f774760f2e0ea1cb48f91d02d36dc630bf8ebfb0f2e104
 DIST plplot-5.9.9.tar.gz 13778554 SHA256 747e5a043681f3e20df30d159f6e8517cb1e25e502322adcd80e8ca53ec2c90d SHA512 ad46d40fbfecdf9b8d9e6f1e9da986716b07f88a91ad78f14498bd83acb0186c984b6b5079564046cfedfd1010692d0e7d3c3ce8831b3d1c825c8db335d4c7f1 WHIRLPOOL 3da257b0d0db87f46fd950e32d7bf22ef25b27d7334113fc2b0e5219fdb1d3462a425ff02550ee907fd105041d35f30b22b2b1b39649a13568d3f04f51525664
-EBUILD plplot-5.9.9-r1.ebuild 5915 SHA256 1a43fd3d29a4197b641a757ca88fc19a90b9629bc345177f1036d7edef2211ac SHA512 468744c01deb07c4115549c9eebe702ec684139520b9a3058373124087930af9a522a77159c242a6789a469f4a90e8201ca8975def6760aedb5c993b89e71f31 WHIRLPOOL af647c15a2e9720320685dc2ea6f89bf882aa2ec2409c38a9013f7bbe44c1f20b2e0e8322707d18accbf1485b3f5ab5d7bf8bbcf77ad86d9e4fa543d4b2239f0
-MISC ChangeLog 8079 SHA256 050870ad3485eb3976abe71abbceb2bafba598ac94edf7e82e33dab7203af302 SHA512 71e4fcee9649b385b4645f197d175a7bb565094791c8eb9b7c062b87e457551e22491e442c51206df8de7853afefa8c68dafb555223b91a361e1f51e09495b85 WHIRLPOOL 4c17676750095ec6bcb74f8f23d8fbec99c4c8342926ee675d6893a28ac878c1fb64c6e2c8a7f5bf89b26b1fdc33b9e4ab438ab5a286e747e0090a7f19bd660b
-MISC metadata.xml 1267 SHA256 829e9a5a4689661e2b510fdb6c56279698cf0b6ce5646d6a1e936456a81096c4 SHA512 28c977dfe503c0dc9290970035a7a833860aaf8f5a992e9eb92853c0e2da049b0e2a6d2be2b0d997b23e9fbe7f61a4ea819e6788fd81d294f23ab13671995b40 WHIRLPOOL b5c9c83d4ca85eec8249ca834a77d15cf8c27f44895134a8fc2c9e4c2fd53afb735eca0bdeeeb52f696a4fcbd97707a8dd66a78ee24d4ee283c55f7e082efb0d
+EBUILD plplot-5.9.9-r1.ebuild 5953 SHA256 f6ded2f8f957c53abb860fcaed958babe31c1e6ace0d2842619a91b180c49d2d SHA512 550540df4fb11e05f54148ea0953fe4fdd6fd8ebf99047d5ffbf5ab5c630094f5e2691eb2c63f01ddfb7b9a32ed83e220aba43947cbdf0b3c3d3992ab32f94bc WHIRLPOOL 633bf172792299184da3f648c17b9a648cdb8420e90bc2594bf2ee2ef1baed0ba75ffa760244209abe0b8a3573d674a2dd9d47855c2e6b389a78e69997ae3c0a
+MISC ChangeLog 8273 SHA256 7360475b6dfcf895f141e6b42296d46e9c0281a4d8e99d5dd30e6e9a734bda37 SHA512 6a25fdc705b4aee8652af9c3a8b0361594ced2832e2002e23884c34d646ca5a155dfa27b4a257199c3c8dc9bb947de9740efadba804a3293111102195a84c70d WHIRLPOOL 760949e18b3f843835236f5103ccb120095bb98b1d931ff84be06d535933816d13ff504ccb54eaacc91400927faaf6a7565957ff01e32c763edb9b57486d5aec
+MISC metadata.xml 1279 SHA256 c65b0cb27de9ac13092c5eb8be177aeb02f4ef21ae88ae6dab98b055d2b53845 SHA512 0bed3295c866c9ec9e0927be13cd9204df06d8c59a21a3ad300c5067be25c14733d6d1fa313470edd4d759cfa25ae402668fa4c78236be237f72d4195c151c3d WHIRLPOOL 37a0ba2bba2d92a52d6efe4b41615e05e1f2b034c1a910f31313c5645412c38369898e48f525aa66743569c523a357016d450ed92fffaa06d6c34f4f87072f53
+-----BEGIN PGP SIGNATURE-----
+Version: GnuPG v2.0.19 (GNU/Linux)
+
+iEYEAREKAAYFAlDyrIsACgkQgAnW8HDreRbRRgCgwZfTTULXNIUcQyEWYumGIVSE
+WbYAoMlqy8vfMyrbg6Y/i327GD0YKnim
+=wYFX
+-----END PGP SIGNATURE-----
diff --git a/sci-libs/plplot/files/plplot-5.9.9-tk86.patch b/sci-libs/plplot/files/plplot-5.9.9-tk86.patch
new file mode 100644
index 000000000000..5d792070b4b2
--- /dev/null
+++ b/sci-libs/plplot/files/plplot-5.9.9-tk86.patch
@@ -0,0 +1,636 @@
+--- bindings/tk-x-plat/plplotter.c.ORIG	2011-10-13 02:43:01.000000000 +0200
++++ bindings/tk-x-plat/plplotter.c	2013-01-12 16:42:48.930183645 +0100
+@@ -463,7 +463,7 @@
+     PlPlotterFirstInit( (ClientData) plPlotterPtr );
+     Tk_GeometryRequest( plPlotterPtr->tkwin, 200, 200 );
+ 
+-    interp->result = Tk_PathName( plPlotterPtr->tkwin );
++    Tcl_SetResult(interp,(char*)Tk_PathName(plPlotterPtr->tkwin) ,TCL_VOLATILE);
+ 
+     return TCL_OK;
+ }
+@@ -2018,7 +2018,7 @@
+ //
+ // Results:
+ //      The return value is a standard Tcl result.  If TCL_ERROR is
+-//      returned, then interp->result contains an error message.
++//      returned, then Tcl_GetStringResult(interp) contains an error message.
+ //
+ // Side effects:
+ //      Configuration information, such as text string, colors, font, etc.
+@@ -2469,7 +2469,7 @@
+         plr->at_bop = 0;
+         if ( Tcl_Eval( interp, plPlotterPtr->bopCmd ) != TCL_OK )
+             fprintf( stderr, "Command \"%s\" failed:\n\t %s\n",
+-                plPlotterPtr->bopCmd, interp->result );
++                plPlotterPtr->bopCmd, Tcl_GetStringResult(interp) );
+     }
+ 
+ // Signal eop if necessary
+@@ -2479,7 +2479,7 @@
+         plr->at_eop = 0;
+         if ( Tcl_Eval( interp, plPlotterPtr->eopCmd ) != TCL_OK )
+             fprintf( stderr, "Command \"%s\" failed:\n\t %s\n",
+-                plPlotterPtr->eopCmd, interp->result );
++                plPlotterPtr->eopCmd, Tcl_GetStringResult(interp) );
+     }
+ 
+     return result;
+@@ -2491,7 +2491,7 @@
+     {
+         if ( Tcl_Eval( interp, plPlotterPtr->eopCmd ) != TCL_OK )
+             fprintf( stderr, "Command \"%s\" failed:\n\t %s\n",
+-                plPlotterPtr->eopCmd, interp->result );
++                plPlotterPtr->eopCmd, Tcl_GetStringResult(interp) );
+     }
+ }
+ 
+@@ -2501,7 +2501,7 @@
+     {
+         if ( Tcl_Eval( interp, plPlotterPtr->bopCmd ) != TCL_OK )
+             fprintf( stderr, "Command \"%s\" failed:\n\t %s\n",
+-                plPlotterPtr->bopCmd, interp->result );
++                plPlotterPtr->bopCmd, Tcl_GetStringResult(interp ) );
+     }
+ }
+ 
+@@ -2536,7 +2536,7 @@
+         {
+         #endif
+             Tcl_AppendResult( interp, "Packet receive failed:\n\t %s\n",
+-                interp->result, (char *) NULL );
++                Tcl_GetStringResult(interp), (char *) NULL );
+             return TCL_ERROR;
+         }
+ 
+@@ -3082,7 +3082,7 @@
+ 
+     if ( argc == 0 )
+     {
+-        interp->result = "report what?";
++        Tcl_SetResult(interp,(char*)"report what?",TCL_VOLATILE);
+         return TCL_ERROR;
+     }
+ 
+@@ -3093,7 +3093,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;
+         }
+ 
+@@ -3107,15 +3107,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;
+ }
+ 
+--- bindings/tk/tkshell.c.ORIG	2011-10-13 02:43:01.000000000 +0200
++++ bindings/tk/tkshell.c	2013-01-12 16:46:41.288192370 +0100
+@@ -115,7 +115,7 @@
+         if ( Tcl_ExprBoolean( interp, argv[1], &result ) )
+         {
+             fprintf( stderr, "wait_until command \"%s\" failed:\n\t %s\n",
+-                argv[1], interp->result );
++                argv[1], Tcl_GetStringResult(interp) );
+             break;
+         }
+         if ( result )
+--- bindings/tk/plserver.c.ORIG	2011-10-13 02:43:01.000000000 +0200
++++ bindings/tk/plserver.c	2013-01-12 16:48:21.973196151 +0100
+@@ -126,11 +126,11 @@
+     if ( Tk_ParseArgv( interp, (Tk_Window) NULL, &argc, argv,
+              argTable, TK_ARGV_NO_DEFAULTS ) != TCL_OK )
+     {
+-        fprintf( stderr, "\n(plserver) %s\n\n", interp->result );
++        fprintf( stderr, "\n(plserver) %s\n\n", Tcl_GetStringResult(interp) );
+         fprintf( stderr, "\
+ The client_<xxx> and -child options should not be used except via the\n\
+ PLplot/Tk driver.\n\n(wish) " );
+-        if ( strncmp( interp->result, helpmsg, strlen( helpmsg ) ) )
++        if ( strncmp( Tcl_GetStringResult(interp), helpmsg, strlen( helpmsg ) ) )
+             exit( 1 );
+     }
+ 
+@@ -158,7 +158,7 @@
+ //
+ // Results:
+ //	Returns a standard Tcl completion code, and leaves an error
+-//	message in interp->result if an error occurs.
++//	message in Tcl_GetStringResult(interp) if an error occurs.
+ //
+ // Side effects:
+ //	Depends on the startup script.
+@@ -257,8 +257,8 @@
+ 
+ // Print error message if one given
+ 
+-    if ( interp->result != NULL && interp->result[0] != '\0' )
+-        fprintf( stderr, "%s\n", interp->result );
++    if ( Tcl_GetStringResult(interp) != NULL && Tcl_GetStringResult(interp)[0] != '\0' )
++        fprintf( stderr, "%s\n", Tcl_GetStringResult(interp) );
+ 
+ // Best to check the syntax before proceeding
+ 
+--- bindings/tk/tkMain.c.ORIG	2011-10-13 02:43:01.000000000 +0200
++++ bindings/tk/tkMain.c	2013-01-13 08:19:02.722238116 +0100
+@@ -85,17 +85,6 @@
+ 
+ // From tclIntDecls.h
+ 
+-#ifndef Tcl_Import_TCL_DECLARED
+-EXTERN int Tcl_Import _ANSI_ARGS_( ( Tcl_Interp * interp,
+-                                     Tcl_Namespace * nsPtr, char * pattern,
+-                                     int allowOverwrite ) );
+-#endif
+-
+-#ifndef Tcl_GetGlobalNamespace_TCL_DECLARE
+-EXTERN Tcl_Namespace * Tcl_GetGlobalNamespace _ANSI_ARGS_( (
+-                                                               Tcl_Interp * interp ) );
+-#endif
+-
+ //
+ // Declarations for various library procedures and variables (don't want
+ // to include tkInt.h or tkConfig.h here, because people might copy this
+@@ -180,7 +180,7 @@
+ pltkMain( int argc, const char **argv, char *RcFileName,
+           int ( *AppInit )( Tcl_Interp *interp ) )
+ {
+-    char       *args, *msg;
++    char       *args; const char *msg;
+     const char *p;
+     char       buf[20];
+     int        code;
+@@ -202,7 +202,7 @@
+     if ( Tk_ParseArgv( interp, (Tk_Window) NULL, &argc, argv, argTable, 0 )
+          != TCL_OK )
+     {
+-        fprintf( stderr, "%s\n", interp->result );
++        fprintf( stderr, "%s\n", Tcl_GetStringResult(interp) );
+         exit( 1 );
+     }
+     if ( name == NULL )
+@@ -331,7 +331,7 @@
+ 
+     if ( ( *AppInit )( interp ) != TCL_OK )
+     {
+-        fprintf( stderr, "(*AppInit) failed: %s\n", interp->result );
++        fprintf( stderr, "(*AppInit) failed: %s\n", Tcl_GetStringResult(interp) );
+     }
+ 
+     //
+@@ -343,7 +343,7 @@
+         code = Tcl_VarEval( interp, "wm geometry . ", geometry, (char *) NULL );
+         if ( code != TCL_OK )
+         {
+-            fprintf( stderr, "%s\n", interp->result );
++            fprintf( stderr, "%s\n", Tcl_GetStringResult(interp) );
+         }
+     }
+ 
+@@ -393,7 +393,7 @@
+             fullName = Tcl_TildeSubst( interp, RcFileName, &buffer );
+             if ( fullName == NULL )
+             {
+-                fprintf( stderr, "%s\n", interp->result );
++                fprintf( stderr, "%s\n", Tcl_GetStringResult(interp) );
+             }
+             else
+             {
+@@ -403,7 +403,7 @@
+                     code = Tcl_EvalFile( interp, fullName );
+                     if ( code != TCL_OK )
+                     {
+-                        fprintf( stderr, "%s\n", interp->result );
++                        fprintf( stderr, "%s\n", Tcl_GetStringResult(interp) );
+                     }
+                     fclose( f );
+                 }
+@@ -442,7 +442,7 @@
+     msg = (char *) Tcl_GetVar( interp, "errorInfo", TCL_GLOBAL_ONLY );
+     if ( msg == NULL )
+     {
+-        msg = interp->result;
++        msg = Tcl_GetStringResult(interp);
+     }
+     fprintf( stderr, "%s\n", msg );
+     Tcl_Eval( interp, errorExitCmd );
+@@ -535,11 +535,11 @@
+     Tk_CreateFileHandler( 0, TK_READABLE, StdinProc, (ClientData) 0 );
+ #endif
+     Tcl_DStringFree( &command );
+-    if ( *interp->result != 0 )
++    if ( Tcl_GetStringResult(interp) )
+     {
+         if ( ( code != TCL_OK ) || ( tty ) )
+         {
+-            printf( "%s\n", interp->result );
++            printf( "%s\n", Tcl_GetStringResult(interp) );
+         }
+     }
+ 
+@@ -599,7 +599,7 @@
+         {
+             Tcl_AddErrorInfo( interp,
+                 "\n    (script that generates prompt)" );
+-            fprintf( stderr, "%s\n", interp->result );
++            fprintf( stderr, "%s\n", Tcl_GetStringResult(interp) );
+             goto defaultPrompt;
+         }
+     }
+--- bindings/tk/plframe.c.ORIG	2011-10-13 02:43:01.000000000 +0200
++++ bindings/tk/plframe.c	2013-01-13 08:22:04.594239896 +0100
+@@ -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 @@
+ //
+ // Results:
+ //	The return value is a standard Tcl result.  If TCL_ERROR is
+-//	returned, then interp->result contains an error message.
++//	returned, then Tcl_GetStringResult(interp) contains an error message.
+ //
+ // 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) );
+ }
+ 
+ //--------------------------------------------------------------------------
+--- utils/pltcl.c.ORIG	2011-10-13 02:43:01.000000000 +0200
++++ utils/pltcl.c	2013-01-13 08:22:33.877240182 +0100
+@@ -119,7 +119,7 @@
+ //
+ // Results:
+ //	Returns a standard Tcl completion code, and leaves an error
+-//	message in interp->result if an error occurs.
++//	message in Tcl_GetStringResult(interp) if an error occurs.
+ //
+ // Side effects:
+ //	Depends on the startup script.
+--- doc/docbook/src/plplotdoc.info-1.ORIG	2011-10-13 02:43:01.000000000 +0200
++++ doc/docbook/src/plplotdoc.info-1	2013-01-13 08:23:13.171240567 +0100
+@@ -6435,7 +6435,7 @@
+      	if (pm->fdata[i] > max)
+      	max = pm->fdata[i];
+ 
+-     	sprintf( interp->result, "%f", max );
++     	sprintf( Tcl_GetStringResult(interp), "%f", max );
+      	return TCL_OK;
+      	}
+ 
+@@ -6448,7 +6448,7 @@
+      	if (pm->fdata[i] < min)
+      	min = pm->fdata[i];
+ 
+-     	sprintf( interp->result, "%f", min );
++     	sprintf( Tcl_GetStringResult(interp), "%f", min );
+      	return TCL_OK;
+      	}
+ 
+--- doc/docbook/src/plplotdoc.texi.ORIG	2011-10-13 02:43:01.000000000 +0200
++++ doc/docbook/src/plplotdoc.texi	2013-01-13 08:23:38.331240813 +0100
+@@ -6722,7 +6722,7 @@
+ 	if (pm->fdata[i] > max)
+ 	max = pm->fdata[i];
+ 
+-	sprintf( interp->result, "%f", max );
++	sprintf( Tcl_GetStringResult(interp), "%f", max );
+ 	return TCL_OK;
+ 	@}
+ 
+@@ -6735,7 +6735,7 @@
+ 	if (pm->fdata[i] < min)
+ 	min = pm->fdata[i];
+ 
+-	sprintf( interp->result, "%f", min );
++	sprintf( Tcl_GetStringResult(interp), "%f", min );
+ 	return TCL_OK;
+ 	@}
+       
+--- doc/docbook/src/tcl.xml.ORIG	2011-10-13 02:43:01.000000000 +0200
++++ doc/docbook/src/tcl.xml	2013-01-13 08:24:03.573241060 +0100
+@@ -576,7 +576,7 @@
+ 	if (pm->fdata[i] > max)
+ 	max = pm->fdata[i];
+ 
+-	sprintf( interp->result, "%f", max );
++	sprintf( Tcl_GetStringResult(interp), "%f", max );
+ 	return TCL_OK;
+ 	}
+ 
+@@ -589,7 +589,7 @@
+ 	if (pm->fdata[i] &lt; min)
+ 	min = pm->fdata[i];
+ 
+-	sprintf( interp->result, "%f", min );
++	sprintf( Tcl_GetStringResult(interp), "%f", min );
+ 	return TCL_OK;
+ 	}
+       </programlisting>
+--- drivers/ntk.c.ORIG	2011-10-13 02:43:01.000000000 +0200
++++ drivers/ntk.c	2013-01-13 08:24:39.460241411 +0100
+@@ -115,7 +115,7 @@
+         //
+         sprintf( scmd, "send %s {%s}", rem_interp, cmd ); // mess! make it more efficient
+         if ( Tcl_Eval( interp, scmd ) != TCL_OK )
+-            fprintf( stderr, "%s\n", interp->result );
++            fprintf( stderr, "%s\n", Tcl_GetStringResult(interp) );
+     }
+ }
+ 
+@@ -264,7 +264,7 @@
+         sprintf( cmd, "send %s \"set client [tk appname]; wm deiconify .\"", rem_interp );
+         if ( Tcl_Eval( interp, cmd ) != TCL_OK )
+         {
+-            fprintf( stderr, "%s\n", interp->result );
++            fprintf( stderr, "%s\n", Tcl_GetStringResult(interp) );
+             plexit( "No such tk server." );
+         }
+     }
+@@ -301,7 +301,7 @@
+     // Set up device parameters
+ 
+     Tcl_Eval( interp, "tk scaling" ); // pixels per mm
+-    ppm = (PLFLT) atof( interp->result ) / ( 25.4 / 72. );
++    ppm = (PLFLT) atof( Tcl_GetStringResult(interp) ) / ( 25.4 / 72. );
+     plP_setpxl( ppm, ppm );
+     plP_setphy( xmin, xmax * scale, ymin, ymax * scale );
+ }
+@@ -371,11 +371,11 @@
+         {
+             tk_cmd( "update" );
+             tk_cmd( "info exists keypress" );
+-            sscanf( interp->result, "%d", &st );
++            sscanf( Tcl_GetStringResult(interp), "%d", &st );
+         }
+ 
+         tk_cmd( "set keypress" );
+-        sscanf( interp->result, "%d", &key );
++        sscanf( Tcl_GetStringResult(interp), "%d", &key );
+ //fprintf(stderr,"\n%d\n", key);fflush(stderr);
+         tk_cmd( "unset keypress" );
+         st = 0;
+@@ -433,7 +433,7 @@
+         {
+             tk_cmd( "update" );
+             tk_cmd( "winfo exists $plf.f2.c$ccanv" );
+-            sscanf( interp->result, "%d", &st );
++            sscanf( Tcl_GetStringResult(interp), "%d", &st );
+         }
+         st = 0;
+         // this give a "Segmentation fault", even after checking for the canvas!
+@@ -450,16 +450,16 @@
+     {
+         tk_cmd( "update" );
+         tk_cmd( "info exists xloc" );
+-        sscanf( interp->result, "%d", &st );
++        sscanf( Tcl_GetStringResult(interp), "%d", &st );
+     }
+     tk_cmd( "set xloc" );
+-    sscanf( interp->result, "%d", &gin.pX );
++    sscanf( Tcl_GetStringResult(interp), "%d", &gin.pX );
+     tk_cmd( "set yloc" );
+-    sscanf( interp->result, "%d", &gin.pY );
++    sscanf( Tcl_GetStringResult(interp), "%d", &gin.pY );
+     tk_cmd( "set bloc" );
+-    sscanf( interp->result, "%d", &gin.button );
++    sscanf( Tcl_GetStringResult(interp), "%d", &gin.button );
+     tk_cmd( "set sloc" );
+-    sscanf( interp->result, "%d", &gin.state );
++    sscanf( Tcl_GetStringResult(interp), "%d", &gin.state );
+ 
+     gin.dX = (PLFLT) gin.pX / xmax;
+     gin.dY = 1. - (PLFLT) gin.pY / ymax;
+--- drivers/tk.c.ORIG	2011-10-13 02:43:01.000000000 +0200
++++ drivers/tk.c	2013-01-13 08:25:10.959241719 +0100
+@@ -764,7 +764,7 @@
+ 
+     if ( Tcl_Init( dev->interp ) != TCL_OK )
+     {
+-        fprintf( stderr, "%s\n", dev->interp->result );
++        fprintf( stderr, "%s\n", Tcl_GetStringResult(dev->interp) );
+         abort_session( pls, "Unable to initialize Tcl" );
+     }
+ 
+@@ -1568,7 +1568,7 @@
+                  0, 1, ( ClientData ) & iodev->file ) != TCL_OK )
+         {
+             fprintf( stderr, "Cannot get file info:\n\t %s\n",
+-                dev->interp->result );
++                Tcl_GetStringResult(dev->interp) );
+             abort_session( pls, "" );
+         }
+         iodev->fd = fileno( iodev->file );
+@@ -1673,7 +1673,7 @@
+         if ( pl_PacketSend( dev->interp, dev->iodev, pls->pdfs ) )
+         {
+             fprintf( stderr, "Packet send failed:\n\t %s\n",
+-                dev->interp->result );
++                Tcl_GetStringResult(dev->interp) );
+             abort_session( pls, "" );
+         }
+         pdfs->bp = 0;
+@@ -2131,7 +2131,7 @@
+ 
+     if ( Tk_Init( interp ) )
+     {
+-        fprintf( stderr, "tk_init:%s\n", interp->result );
++        fprintf( stderr, "tk_init:%s\n", Tcl_GetStringResult(interp) );
+         return 1;
+     }
+ 
+@@ -2165,7 +2165,7 @@
+         if ( Tcl_ExprBoolean( dev->interp, dev->cmdbuf, &result ) )
+         {
+             fprintf( stderr, "tk_wait command \"%s\" failed:\n\t %s\n",
+-                cmd, dev->interp->result );
++                cmd, Tcl_GetStringResult(dev->interp) );
+             break;
+         }
+         if ( result )
+@@ -2225,7 +2225,7 @@
+     if ( result != TCL_OK )
+     {
+         fprintf( stderr, "Server command \"%s\" failed:\n\t %s\n",
+-            cmd, dev->interp->result );
++            cmd, Tcl_GetStringResult(dev->interp) );
+         abort_session( pls, "" );
+     }
+ }
+@@ -2247,7 +2247,7 @@
+     if ( Tcl_VarEval( dev->interp, cmd, (char **) NULL ) != TCL_OK )
+     {
+         fprintf( stderr, "TCL command \"%s\" failed:\n\t %s\n",
+-            cmd, dev->interp->result );
++            cmd, Tcl_GetStringResult(dev->interp) );
+         abort_session( pls, "" );
+     }
+ }
+--- examples/tk/xtk01.c.ORIG	2011-10-13 02:43:01.000000000 +0200
++++ examples/tk/xtk01.c	2013-01-13 08:25:33.757241943 +0100
+@@ -53,7 +53,7 @@
+ //
+ // Results:
+ //	Returns a standard Tcl completion code, and leaves an error
+-//	message in interp->result if an error occurs.
++//	message in Tcl_GetStringResult(interp) if an error occurs.
+ //
+ // Side effects:
+ //	Depends on the startup script.
+--- examples/tk/xtk02.c.ORIG	2011-10-13 02:43:01.000000000 +0200
++++ examples/tk/xtk02.c	2013-01-13 08:26:06.804242266 +0100
+@@ -49,7 +49,7 @@
+         pm->fdata[i] = y;
+     }
+ 
+-    interp->result = "Things are cool in gumbyville.";
++    Tcl_SetResult(interp,(char*)"Things are cool in gumbyville.",TCL_VOLATILE);
+     return TCL_OK;
+ }
+ 
+@@ -82,7 +82,7 @@
+ //
+ // Results:
+ //	Returns a standard Tcl completion code, and leaves an error
+-//	message in interp->result if an error occurs.
++//	message in Tcl_GetStringResult(interp) if an error occurs.
+ //
+ // Side effects:
+ //	Depends on the startup script.
+--- examples/tk/xtk04.c.ORIG	2011-10-13 02:43:01.000000000 +0200
++++ examples/tk/xtk04.c	2013-01-13 08:26:38.853242580 +0100
+@@ -35,7 +35,7 @@
+         if ( pm->fdata[i] > max )
+             max = pm->fdata[i];
+ 
+-    sprintf( interp->result, "%f", max );
++    sprintf( Tcl_GetStringResult(interp), "%f", max );
+     return TCL_OK;
+ }
+ 
+@@ -48,7 +48,7 @@
+         if ( pm->fdata[i] < min )
+             min = pm->fdata[i];
+ 
+-    sprintf( interp->result, "%f", min );
++    sprintf( Tcl_GetStringResult(interp), "%f", min );
+     return TCL_OK;
+ }
+ 
+@@ -80,7 +80,7 @@
+ //
+ // Results:
+ //	Returns a standard Tcl completion code, and leaves an error
+-//	message in interp->result if an error occurs.
++//	message in Tcl_GetStringResult(interp) if an error occurs.
+ //
+ // Side effects:
+ //	Depends on the startup script.
+@@ -158,7 +158,7 @@
+ 
+     if ( pm->dim != 2 )
+     {
+-        interp->result = "must use 2-d matrix.";
++        Tcl_SetResult(interp,(char*)"must use 2-d matrix.",TCL_VOLATILE);
+         return TCL_ERROR;
+     }
+ 
diff --git a/sci-libs/plplot/metadata.xml b/sci-libs/plplot/metadata.xml
index fdb47c31f02e..e8c81d6b8fb7 100644
--- a/sci-libs/plplot/metadata.xml
+++ b/sci-libs/plplot/metadata.xml
@@ -1,8 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE pkgmetadata SYSTEM "http://www.gentoo.org/dtd/metadata.dtd">
 <pkgmetadata>
-	<herd>sci</herd>
-	<longdescription>
+  <herd>sci</herd>
+  <longdescription>
   PLplot is a library of functions that are useful for making scientific
   plots. It can be used from within compiled languages such as C, C++,
   FORTRAN and Java, as well as interactively from interpreted languages such
@@ -15,10 +15,10 @@
   support for extended characters inculding the Greek alphabet and a host of
   mathematical symbols.
 </longdescription>
-	<use>
-		<flag name="ada">Add bindings for the ADA programming language</flag>
-		<flag name="dynamic">Build with dynamic drivers</flag>
-		<flag name="octave">Add bindings for <pkg>sci-mathematics/octave</pkg></flag>
-		<flag name="qhull">Add bindings for <pkg>media-libs/qhull</pkg></flag>
-	</use>
+  <use>
+    <flag name="ada">Add bindings for the ADA programming language</flag>
+    <flag name="dynamic">Build with dynamic drivers</flag>
+    <flag name="octave">Add bindings for <pkg>sci-mathematics/octave</pkg></flag>
+    <flag name="qhull">Add bindings for <pkg>media-libs/qhull</pkg></flag>
+  </use>
 </pkgmetadata>
diff --git a/sci-libs/plplot/plplot-5.9.9-r1.ebuild b/sci-libs/plplot/plplot-5.9.9-r1.ebuild
index 6a43235ae1bc..0f57b50e1314 100644
--- a/sci-libs/plplot/plplot-5.9.9-r1.ebuild
+++ b/sci-libs/plplot/plplot-5.9.9-r1.ebuild
@@ -1,6 +1,6 @@
-# Copyright 1999-2012 Gentoo Foundation
+# Copyright 1999-2013 Gentoo Foundation
 # Distributed under the terms of the GNU General Public License v2
-# $Header: /var/cvsroot/gentoo-x86/sci-libs/plplot/plplot-5.9.9-r1.ebuild,v 1.6 2012/10/16 20:22:07 jlec Exp $
+# $Header: /var/cvsroot/gentoo-x86/sci-libs/plplot/plplot-5.9.9-r1.ebuild,v 1.7 2013/01/13 12:46:02 jlec Exp $
 
 EAPI=4
 
@@ -68,6 +68,7 @@ pkg_setup() {
 }
 
 src_prepare() {
+	epatch "${FILESDIR}"/${P}-tk86.patch
 	# path for python independent of python version
 	epatch "${FILESDIR}"/${PN}-5.9.6-python.patch
 	# test with pdf assumes a modified bundled libharu