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.