Update of /cvsroot/pure-data/externals/bbogart/entry In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21938
Modified Files: entry.c Log Message: Added JMZ's fix for escaping "," and ";"
Index: entry.c =================================================================== RCS file: /cvsroot/pure-data/externals/bbogart/entry/entry.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** entry.c 11 Dec 2005 17:06:58 -0000 1.5 --- entry.c 12 Dec 2005 18:32:40 -0000 1.6 *************** *** 321,328 **** static void entry_bang_output(t_entry* x) { ! /* This code is not functional, all OS's return "unmatches quote in string" removed until someone has time to look more closely. ! sys_vgui("pd [concat entry%p output [string map {"," "\\," ";" "\\;} [.x%x.c.s%x get 0.0 end]]" \;]\n", x, x->x_glist, x); */
! sys_vgui("pd [concat entry%p output [.x%x.c.s%x get 0.0 end] \;]\n", x, x->x_glist, x);
sys_vgui("bind .x%x.c.s%x <Leave> {focus [winfo parent .x%x.c.s%x]} \n", x->x_glist, x, x->x_glist, x); --- 321,329 ---- static void entry_bang_output(t_entry* x) { ! /* With "," and ";" escaping thanks to JMZ */ ! sys_vgui("pd [concat entry%p output [string map {"," "\\," ";" "\\;"} [.x%x.c.s%x get 0.0 end]] \;]\n", x, x->x_glist, x);
! /* Without "," and ";" escaping, left here but commented out in case we want to add a kind of "pd terminal" mode in the future. ! sys_vgui("pd [concat entry%p output [.x%x.c.s%x get 0.0 end] \;]\n", x, x->x_glist, x); */
sys_vgui("bind .x%x.c.s%x <Leave> {focus [winfo parent .x%x.c.s%x]} \n", x->x_glist, x, x->x_glist, x);