[PD-cvs] SF.net SVN: pure-data: [9540] branches/pd-extended/v0-40/pd/src/t_tkcmd.c

[eighthave at users.sourceforge.net]

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.