diff options
Diffstat (limited to 'math/plplot/files/patch-drivers__ntk.c')
-rw-r--r-- | math/plplot/files/patch-drivers__ntk.c | 74 |
1 files changed, 0 insertions, 74 deletions
diff --git a/math/plplot/files/patch-drivers__ntk.c b/math/plplot/files/patch-drivers__ntk.c deleted file mode 100644 index ff18c65e6e51..000000000000 --- a/math/plplot/files/patch-drivers__ntk.c +++ /dev/null @@ -1,74 +0,0 @@ ---- drivers/ntk.c.orig -+++ drivers/ntk.c -@@ -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; |