Revision: 9540 http://pure-data.svn.sourceforge.net/pure-data/?rev=9540&view=rev Author: eighthave Date: 2008-03-05 21:54:58 -0800 (Wed, 05 Mar 2008)
Log Message: ----------- #tcl member GPS suggested this cleanup to stop using a deprecated API
Modified Paths: -------------- branches/pd-extended/v0-40/pd/src/t_tkcmd.c
Modified: branches/pd-extended/v0-40/pd/src/t_tkcmd.c =================================================================== --- branches/pd-extended/v0-40/pd/src/t_tkcmd.c 2008-03-06 05:48:14 UTC (rev 9539) +++ branches/pd-extended/v0-40/pd/src/t_tkcmd.c 2008-03-06 05:54:58 UTC (rev 9540) @@ -527,7 +527,8 @@ { if (strlen(argv[i]) + strlen(buf) + 2 > MAXWRITE) { - interp->result = "pd: arg list too long"; + Tcl_SetObjResult(interp, + Tcl_NewStringObj("pd: arg list too long", -1)); return (TCL_ERROR); } if (i > 1) strcat(buf, " "); @@ -653,7 +654,7 @@ #endif tk_pdinterp = interp; pdgui_startup(interp); - interp->result = "loaded pdtcl_init"; + Tcl_SetObjResult (interp, Tcl_NewStringObj ("loaded pdtcl_init", -1));
return (TCL_OK); }
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.