diff options
| author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-10-19 05:08:12 +0000 |
|---|---|---|
| committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-10-19 05:08:12 +0000 |
| commit | 0e92c962dabd566146d84295041961856593eb90 (patch) | |
| tree | dd0d197beccec9222aca06e3837a7437fcf03a26 /src/pmenu.c | |
| parent | ff18f0335026ada7cfa2710c5fa9c8eec386bd52 (diff) | |
port to 0.43's pdsend proc in pd-gui
svn path=/trunk/externals/tof/; revision=15622
Diffstat (limited to 'src/pmenu.c')
| -rw-r--r-- | src/pmenu.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/pmenu.c b/src/pmenu.c index f8d0664..212060f 100644 --- a/src/pmenu.c +++ b/src/pmenu.c @@ -325,8 +325,8 @@ static void *pmenu_new(t_symbol *s, int argc, t_atom *argv) pd_bind(&x->x_obj.ob_pd, x->callback); /* define proc in tcl/tk where "pmenu%p" is the receive, "callback" is the method, and "$index" is an argument. */ - //sys_vgui("proc select%x {index} {\n pd [concat pmenu%p callback $index \\;]\n }\n",x,x); - sys_vgui("proc select%x {index} {\n pd [concat %s callback $index \\;]\n }\n",x,pmenu_buffer); + //sys_vgui("proc select%x {index} {\n pdsend \"pmenu%p callback $index \"\n }\n",x,x); + sys_vgui("proc select%x {index} {\n pdsend \"%s callback $index \"\n }\n",x,pmenu_buffer); x->outlet1 = outlet_new(&x->x_obj, &s_float); x->outlet2 = outlet_new(&x->x_obj, &s_list); |