[PD-cvs] SF.net SVN: pure-data: [9760] branches/pd-extended/v0-40/pd/src/s_path.c
zmoelnig at users.sourceforge.net
zmoelnig at users.sourceforge.net
Mon May 5 14:37:22 CEST 2008
Revision: 9760
http://pure-data.svn.sourceforge.net/pure-data/?rev=9760&view=rev
Author: zmoelnig
Date: 2008-05-05 05:37:21 -0700 (Mon, 05 May 2008)
Log Message:
-----------
fixed the crasher-bug with the path (and potentially startup) dialog
Modified Paths:
--------------
branches/pd-extended/v0-40/pd/src/s_path.c
Modified: branches/pd-extended/v0-40/pd/src/s_path.c
===================================================================
--- branches/pd-extended/v0-40/pd/src/s_path.c 2008-05-04 17:05:53 UTC (rev 9759)
+++ branches/pd-extended/v0-40/pd/src/s_path.c 2008-05-05 12:37:21 UTC (rev 9760)
@@ -532,15 +532,9 @@
int i;
t_namelist *nl;
- sprintf(buf, "list");
- for (nl = sys_searchpath, i = 0; nl; nl = nl->nl_next, i++) {
- if(nl->nl_string){
- strcat(buf, " \"");
- strcat(buf, nl->nl_string);
- strcat(buf, "\"");
- }
- }
- sys_vgui("pd_set pd_path [%s]\n", buf);
+ sys_gui("global pd_path; set pd_path {}\n");
+ for (nl = sys_searchpath, i = 0; nl; nl = nl->nl_next, i++)
+ sys_vgui("lappend pd_path {%s}\n", nl->nl_string);
sprintf(buf, "pdtk_path_dialog %%s %d %d\n", sys_usestdpath, sys_verbose);
gfxstub_new(&glob_pdobject, (void *)glob_start_path_dialog, buf);
@@ -569,15 +563,11 @@
int i;
t_namelist *nl;
- sprintf(buf, "list");
- for (nl = sys_externlist, i = 0; nl; nl = nl->nl_next, i++) {
- if(nl->nl_string){
- strcat(buf, " \"");
- strcat(buf, nl->nl_string);
- strcat(buf, "\"");
- }
- }
- sys_vgui("pd_set pd_startup [%s]\n", buf);
+ sys_gui("global pd_startup; set pd_startup {}\n");
+ for (nl = sys_externlist, i = 0; nl; nl = nl->nl_next, i++)
+ sys_vgui("lappend pd_startup {%s}\n", nl->nl_string);
+ sprintf(buf, "pdtk_startup_dialog %%s %d \"%s\"\n", sys_defeatrt,
+ sys_flags->s_name);
sprintf(buf, "pdtk_startup_dialog %%s %d \"%s\"\n", sys_defeatrt,
sys_flags->s_name);
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
More information about the Pd-cvs
mailing list