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

[eighthave at users.sourceforge.net]

Revision: 9539
          http://pure-data.svn.sourceforge.net/pure-data/?rev=9539&view=rev
Author:   eighthave
Date:     2008-03-05 21:48:14 -0800 (Wed, 05 Mar 2008)

Log Message:
-----------
included some tweaks suggested by GPS in #tcl.  Tested this on Windows and it does indeed fix the $text_color, etc. issues.  Yee haw!

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:32:12 UTC (rev 9538)
+++ branches/pd-extended/v0-40/pd/src/t_tkcmd.c	2008-03-06 05:48:14 UTC (rev 9539)
@@ -546,8 +546,11 @@
 
 void tcl_mess(char *s)
 {
-    Tcl_Obj *tk_stringobj = Tcl_NewStringObj(s,strlen(s));
-    int result = Tcl_EvalObjEx(tk_pdinterp, tk_stringobj, TCL_EVAL_GLOBAL);
+    int result;
+    Tcl_Obj *messageObjPtr = Tcl_NewStringObj(s,-1);
+    Tcl_IncrRefCount(messageObjPtr);
+    result = Tcl_EvalObjEx(tk_pdinterp, messageObjPtr, TCL_EVAL_GLOBAL);
+    Tcl_DecrRefCount(messageObjPtr);
     if (result != TCL_OK)
     {
         if (tk_pdinterp) printf("%s\n",  Tcl_GetStringResult(tk_pdinterp));


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.