Update of /cvsroot/pure-data/externals/miXed/shared/toxy In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3862/shared/toxy
Modified Files: scriptlet.c Log Message: toxy alpha6
Index: scriptlet.c =================================================================== RCS file: /cvsroot/pure-data/externals/miXed/shared/toxy/scriptlet.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** scriptlet.c 29 Feb 2004 17:16:44 -0000 1.5 --- scriptlet.c 9 Mar 2004 12:41:21 -0000 1.6 *************** *** 1,3 **** ! /* Copyright (c) 2003 krzYszcz and others. * For information on usage and redistribution, and for a DISCLAIMER OF ALL * WARRANTIES, see the file, "LICENSE.txt," in this distribution. */ --- 1,3 ---- ! /* Copyright (c) 2003-2004 krzYszcz and others. * For information on usage and redistribution, and for a DISCLAIMER OF ALL * WARRANTIES, see the file, "LICENSE.txt," in this distribution. */ *************** *** 426,432 **** sys_gui(sp->s_buffer); *tail = 0; ! /* LATER find out if reply does not fit better inside the query proc */ ! sprintf(buf, "after 0 {::toxy::query\n\ ! pd [concat %s _rp $::toxy::reply \;]}\n", sp->s_rptarget->s_name); sys_gui(buf); } --- 426,436 ---- sys_gui(sp->s_buffer); *tail = 0; ! /* Could not find anything more flexible, than blocking while waiting ! for ::toxy::query to complete. The model case is a Tk dialog ! hanging over the arrival of new queries. LATER probably use ! a thread-safe replacement of the 'pd' command in order to prevent ! competing tcl threads from corrupting the gui-to-pd stream. */ ! sprintf(buf, "after 0 {::toxy::query}\nvwait ::toxy::reply\n\ ! pd [concat %s _rp $::toxy::reply \;]\n", sp->s_rptarget->s_name); sys_gui(buf); } *************** *** 614,618 **** dir = canvas_getdir(sp->s_glist)->s_name; else ! dir = ""; if ((fd = open_via_path(dir, rc, ext, buf, &nameptr, MAXPDSTRING, 0)) < 0) { --- 618,622 ---- dir = canvas_getdir(sp->s_glist)->s_name; else ! dir = ""; /* which means pwd, usually the same as at Pd startup... */ if ((fd = open_via_path(dir, rc, ext, buf, &nameptr, MAXPDSTRING, 0)) < 0) {