diff options
| author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-03-08 02:12:52 +0000 |
|---|---|---|
| committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-03-08 02:12:52 +0000 |
| commit | 47c48c71f7b95aee1347fa4e02c0de09eef1234d (patch) | |
| tree | d44148b95dccf1ecd7d1c98563a61c40d79cd01b /cyclone/hammer | |
| parent | 9d2b9b9fabb73757c710440c955ef528d76aea87 (diff) | |
ported to 0.43 and added backwards compatibility proc
svn path=/trunk/externals/miXed/; revision=15018
Diffstat (limited to 'cyclone/hammer')
| -rw-r--r-- | cyclone/hammer/comment.c | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/cyclone/hammer/comment.c b/cyclone/hammer/comment.c index 8fd2431..b10728d 100644 --- a/cyclone/hammer/comment.c +++ b/cyclone/hammer/comment.c @@ -247,11 +247,11 @@ static void comment__clickhook(t_comment *x, t_symbol *s, int ac, t_atom *av) char buf[COMMENT_OUTBUFSIZE], *outp = buf; int cvid = (int)x->x_canvas; sprintf(outp, ".x%x.c bind %s <ButtonRelease> \ - {pd [concat %s _release %s \\;]}\n", cvid, x->x_texttag, + {pdsend {%s _release %s}}\n", cvid, x->x_texttag, x->x_bindsym->s_name, x->x_bindsym->s_name); outp += strlen(outp); sprintf(outp, ".x%x.c bind %s <Motion> \ - {pd [concat %s _motion %s %%x %%y \\;]}\n", cvid, x->x_texttag, + {pdsend {%s _motion %s %%x %%y}}\n", cvid, x->x_texttag, x->x_bindsym->s_name, x->x_bindsym->s_name); outp += strlen(outp); sprintf(outp, ".x%x.c create rectangle %d %d %d %d -outline blue \ @@ -812,13 +812,17 @@ void comment_setup(void) gensym("_bbox"), A_SYMBOL, A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, 0); + /* if older than 0.43, create an 0.43-style pdsend */ + sys_gui("if {[llength [info procs ::pdsend]] == 0} {"); + sys_gui("proc ::pdsend {args} {::pd \"[join $args { }] ;\"}}\n"); + sys_gui("proc comment_bbox {target cvname tag} {\n\ - pd $target _bbox $target [$cvname bbox $tag]\\;}\n"); + pdsend \"$target _bbox $target [$cvname bbox $tag]\"}\n"); /* LATER think about window vs canvas coords */ sys_gui("proc comment_click {target cvname x y tag} {\n\ - pd $target _click $target [$cvname canvasx $x] [$cvname canvasy $y]\ - [$cvname index $tag @$x,$y] [$cvname bbox $tag]\\;}\n"); + pdsend \"$target _click $target [$cvname canvasx $x] [$cvname canvasy $y]\ + [$cvname index $tag @$x,$y] [$cvname bbox $tag]\"}\n"); /* LATER think how to conditionally (FORKY_VERSION >= 38) replace puts with pdtk_post */ |