[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