From 526b5580dabbfed7cfe5439dc3a90ec727f563c2 Mon Sep 17 00:00:00 2001 From: Peter D'Hoye Date: Sun, 24 May 2009 21:28:16 +0000 Subject: Cut the files in half and it might work better (note to self: check your tree is really clean before patching) git-svn-id: svn://svn.rockbox.org/rockbox/trunk@21070 a1c6a512-1295-4272-9138-f99709370657 --- apps/plugins/pdbox/PDa/src/g_text.c | 1317 ----------------------------------- 1 file changed, 1317 deletions(-) (limited to 'apps/plugins/pdbox/PDa/src/g_text.c') diff --git a/apps/plugins/pdbox/PDa/src/g_text.c b/apps/plugins/pdbox/PDa/src/g_text.c index 8cf1fe2834..f1fbb7f719 100644 --- a/apps/plugins/pdbox/PDa/src/g_text.c +++ b/apps/plugins/pdbox/PDa/src/g_text.c @@ -1313,1320 +1313,3 @@ void g_text_setup(void) class_setpropertiesfn(gatom_class, gatom_properties); } - -/* Copyright (c) 1997-1999 Miller Puckette. -* For information on usage and redistribution, and for a DISCLAIMER OF ALL -* WARRANTIES, see the file, "LICENSE.txt," in this distribution. */ - -/* changes by Thomas Musil IEM KUG Graz Austria 2001 */ -/* the methods for calling the gui-objects from menu are implemented */ -/* all changes are labeled with iemlib */ - -#include -#include "m_pd.h" -#include "m_imp.h" -#include "s_stuff.h" -#include "t_tk.h" -#include "g_canvas.h" -#include -#include -#include - -static t_class *text_class; -static t_class *message_class; -static t_class *gatom_class; -static void text_vis(t_gobj *z, t_glist *glist, int vis); -static void text_displace(t_gobj *z, t_glist *glist, - int dx, int dy); -static void text_getrect(t_gobj *z, t_glist *glist, - int *xp1, int *yp1, int *xp2, int *yp2); - -void canvas_startmotion(t_canvas *x); -t_widgetbehavior text_widgetbehavior; - -/* ----------------- the "text" object. ------------------ */ - - /* add a "text" object (comment) to a glist. While this one goes for any glist, - the other 3 below are for canvases only. (why?) This is called - without args if invoked from the GUI; otherwise at least x and y - are provided. */ - -void glist_text(t_glist *gl, t_symbol *s, int argc, t_atom *argv) -{ - t_text *x = (t_text *)pd_new(text_class); - t_atom at; - x->te_width = 0; /* don't know it yet. */ - x->te_type = T_TEXT; - x->te_binbuf = binbuf_new(); - if (argc > 1) - { - x->te_xpix = atom_getfloatarg(0, argc, argv); - x->te_ypix = atom_getfloatarg(1, argc, argv); - if (argc > 2) binbuf_restore(x->te_binbuf, argc-2, argv+2); - else - { - SETSYMBOL(&at, gensym("comment")); - binbuf_restore(x->te_binbuf, 1, &at); - } - glist_add(gl, &x->te_g); - } - else - { - int xpix, ypix; - pd_vmess((t_pd *)glist_getcanvas(gl), gensym("editmode"), "i", 1); - SETSYMBOL(&at, gensym("comment")); - glist_noselect(gl); - glist_getnextxy(gl, &xpix, &ypix); - x->te_xpix = glist_pixelstox(gl, xpix-3); - x->te_ypix = glist_pixelstoy(gl, ypix-3); - binbuf_restore(x->te_binbuf, 1, &at); - glist_add(gl, &x->te_g); - glist_noselect(gl); - glist_select(gl, &x->te_g); - /* it would be nice to "activate" here, but then the second, - "put-me-down" click changes the text selection, which is quite - irritating, so I took this back out. It's OK in messages - and objects though since there's no text in them at menu - creation. */ - /* gobj_activate(&x->te_g, gl, 1); */ - canvas_startmotion(glist_getcanvas(gl)); - } -} - -/* ----------------- the "object" object. ------------------ */ - -extern t_pd *newest; -void canvas_getargs(int *argcp, t_atom **argvp); - -static void canvas_objtext(t_glist *gl, int xpix, int ypix, int selected, - t_binbuf *b) -{ - t_text *x; - int argc; - t_atom *argv; - newest = 0; - canvas_setcurrent((t_canvas *)gl); - canvas_getargs(&argc, &argv); - binbuf_eval(b, &pd_objectmaker, argc, argv); - if (binbuf_getnatom(b)) - { - if (!newest) - { - binbuf_print(b); - post("... couldn't create"); - x = 0; - } - else if (!(x = pd_checkobject(newest))) - { - binbuf_print(b); - post("... didn't return a patchable object"); - } - } - else x = 0; - if (!x) - { - - /* LATER make the color reflect this */ - x = (t_text *)pd_new(text_class); - } - x->te_binbuf = b; - x->te_xpix = xpix; - x->te_ypix = ypix; - x->te_width = 0; - x->te_type = T_OBJECT; - glist_add(gl, &x->te_g); - if (selected) - { - /* this is called if we've been created from the menu. */ - glist_select(gl, &x->te_g); - gobj_activate(&x->te_g, gl, 1); - } - if (pd_class(&x->ob_pd) == vinlet_class) - canvas_resortinlets(glist_getcanvas(gl)); - if (pd_class(&x->ob_pd) == voutlet_class) - canvas_resortoutlets(glist_getcanvas(gl)); - canvas_unsetcurrent((t_canvas *)gl); -} - - /* object creation routine. These are called without any arguments if - they're invoked from the - gui; when pasting or restoring from a file, we get at least x and y. */ - -void canvas_obj(t_glist *gl, t_symbol *s, int argc, t_atom *argv) -{ - t_text *x; - if (argc >= 2) - { - t_binbuf *b = binbuf_new(); - binbuf_restore(b, argc-2, argv+2); - canvas_objtext(gl, atom_getintarg(0, argc, argv), - atom_getintarg(1, argc, argv), 0, b); - } - else - { - t_binbuf *b = binbuf_new(); - int xpix, ypix; - pd_vmess(&gl->gl_pd, gensym("editmode"), "i", 1); - glist_noselect(gl); - glist_getnextxy(gl, &xpix, &ypix); - canvas_objtext(gl, xpix, ypix, 1, b); - canvas_startmotion(glist_getcanvas(gl)); - } -} - -/* make an object box for an object that's already there. */ - -/* iemlib */ -void canvas_iemguis(t_glist *gl, t_symbol *guiobjname) -{ - t_atom at; - t_binbuf *b = binbuf_new(); - int xpix, ypix; - - pd_vmess(&gl->gl_pd, gensym("editmode"), "i", 1); - glist_noselect(gl); - SETSYMBOL(&at, guiobjname); - binbuf_restore(b, 1, &at); - glist_getnextxy(gl, &xpix, &ypix); - canvas_objtext(gl, xpix, ypix, 1, b); - canvas_startmotion(glist_getcanvas(gl)); -} - -void canvas_bng(t_glist *gl, t_symbol *s, int argc, t_atom *argv) -{ - canvas_iemguis(gl, gensym("bng")); -} - -void canvas_toggle(t_glist *gl, t_symbol *s, int argc, t_atom *argv) -{ - canvas_iemguis(gl, gensym("tgl")); -} - -void canvas_vslider(t_glist *gl, t_symbol *s, int argc, t_atom *argv) -{ - canvas_iemguis(gl, gensym("vsl")); -} - -void canvas_hslider(t_glist *gl, t_symbol *s, int argc, t_atom *argv) -{ - canvas_iemguis(gl, gensym("hsl")); -} - -void canvas_hdial(t_glist *gl, t_symbol *s, int argc, t_atom *argv) -{ - canvas_iemguis(gl, gensym("hdl")); -} - -void canvas_vdial(t_glist *gl, t_symbol *s, int argc, t_atom *argv) -{ - canvas_iemguis(gl, gensym("vdl")); -} - -void canvas_hradio(t_glist *gl, t_symbol *s, int argc, t_atom *argv) -{ - canvas_iemguis(gl, gensym("hradio")); -} - -void canvas_vradio(t_glist *gl, t_symbol *s, int argc, t_atom *argv) -{ - canvas_iemguis(gl, gensym("vradio")); -} - -void canvas_vumeter(t_glist *gl, t_symbol *s, int argc, t_atom *argv) -{ - canvas_iemguis(gl, gensym("vu")); -} - -void canvas_mycnv(t_glist *gl, t_symbol *s, int argc, t_atom *argv) -{ - canvas_iemguis(gl, gensym("cnv")); -} - -void canvas_numbox(t_glist *gl, t_symbol *s, int argc, t_atom *argv) -{ - canvas_iemguis(gl, gensym("nbx")); -} - -/* iemlib */ - -void canvas_objfor(t_glist *gl, t_text *x, int argc, t_atom *argv) -{ - x->te_width = 0; /* don't know it yet. */ - x->te_type = T_OBJECT; - x->te_binbuf = binbuf_new(); - x->te_xpix = atom_getfloatarg(0, argc, argv); - x->te_ypix = atom_getfloatarg(1, argc, argv); - if (argc > 2) binbuf_restore(x->te_binbuf, argc-2, argv+2); - glist_add(gl, &x->te_g); -} - -/* ---------------------- the "message" text item ------------------------ */ - -typedef struct _messresponder -{ - t_pd mr_pd; - t_outlet *mr_outlet; -} t_messresponder; - -typedef struct _message -{ - t_text m_text; - t_messresponder m_messresponder; - t_glist *m_glist; - t_clock *m_clock; -} t_message; - -static t_class *message_class, *messresponder_class; - -static void messresponder_bang(t_messresponder *x) -{ - outlet_bang(x->mr_outlet); -} - -static void messresponder_float(t_messresponder *x, t_float f) -{ - outlet_float(x->mr_outlet, f); -} - -static void messresponder_symbol(t_messresponder *x, t_symbol *s) -{ - outlet_symbol(x->mr_outlet, s); -} - -static void messresponder_list(t_messresponder *x, - t_symbol *s, int argc, t_atom *argv) -{ - outlet_list(x->mr_outlet, s, argc, argv); -} - -static void messresponder_anything(t_messresponder *x, - t_symbol *s, int argc, t_atom *argv) -{ - outlet_anything(x->mr_outlet, s, argc, argv); -} - -static void message_bang(t_message *x) -{ - binbuf_eval(x->m_text.te_binbuf, &x->m_messresponder.mr_pd, 0, 0); -} - -static void message_float(t_message *x, t_float f) -{ - t_atom at; - SETFLOAT(&at, f); - binbuf_eval(x->m_text.te_binbuf, &x->m_messresponder.mr_pd, 1, &at); -} - -static void message_symbol(t_message *x, t_symbol *s) -{ - t_atom at; - SETSYMBOL(&at, s); - binbuf_eval(x->m_text.te_binbuf, &x->m_messresponder.mr_pd, 1, &at); -} - -static void message_list(t_message *x, t_symbol *s, int argc, t_atom *argv) -{ - binbuf_eval(x->m_text.te_binbuf, &x->m_messresponder.mr_pd, argc, argv); -} - -static void message_set(t_message *x, t_symbol *s, int argc, t_atom *argv) -{ - binbuf_clear(x->m_text.te_binbuf); - binbuf_add(x->m_text.te_binbuf, argc, argv); - glist_retext(x->m_glist, &x->m_text); -} - -static void message_add2(t_message *x, t_symbol *s, int argc, t_atom *argv) -{ - binbuf_add(x->m_text.te_binbuf, argc, argv); - glist_retext(x->m_glist, &x->m_text); -} - -static void message_add(t_message *x, t_symbol *s, int argc, t_atom *argv) -{ - binbuf_add(x->m_text.te_binbuf, argc, argv); - binbuf_addsemi(x->m_text.te_binbuf); - glist_retext(x->m_glist, &x->m_text); -} - -static void message_click(t_message *x, - t_floatarg xpos, t_floatarg ypos, t_floatarg shift, - t_floatarg ctrl, t_floatarg alt) -{ - message_float(x, 0); - if (glist_isvisible(x->m_glist)) - { - t_rtext *y = glist_findrtext(x->m_glist, &x->m_text); - sys_vgui(".x%x.c itemconfigure %sR -width 5\n", - glist_getcanvas(x->m_glist), rtext_gettag(y)); - clock_delay(x->m_clock, 120); - } -} - -static void message_tick(t_message *x) -{ - if (glist_isvisible(x->m_glist)) - { - t_rtext *y = glist_findrtext(x->m_glist, &x->m_text); - sys_vgui(".x%x.c itemconfigure %sR -width 1\n", - glist_getcanvas(x->m_glist), rtext_gettag(y)); - } -} - -static void message_free(t_message *x) -{ - clock_free(x->m_clock); -} - -void canvas_msg(t_glist *gl, t_symbol *s, int argc, t_atom *argv) -{ - t_message *x = (t_message *)pd_new(message_class); - x->m_messresponder.mr_pd = messresponder_class; - x->m_messresponder.mr_outlet = outlet_new(&x->m_text, &s_float); - x->m_text.te_width = 0; /* don't know it yet. */ - x->m_text.te_type = T_MESSAGE; - x->m_text.te_binbuf = binbuf_new(); - x->m_glist = gl; - x->m_clock = clock_new(x, (t_method)message_tick); - if (argc > 1) - { - x->m_text.te_xpix = atom_getfloatarg(0, argc, argv); - x->m_text.te_ypix = atom_getfloatarg(1, argc, argv); - if (argc > 2) binbuf_restore(x->m_text.te_binbuf, argc-2, argv+2); - glist_add(gl, &x->m_text.te_g); - } - else - { - int xpix, ypix; - pd_vmess(&gl->gl_pd, gensym("editmode"), "i", 1); - glist_noselect(gl); - glist_getnextxy(gl, &xpix, &ypix); - x->m_text.te_xpix = xpix-3; - x->m_text.te_ypix = ypix-3; - glist_add(gl, &x->m_text.te_g); - glist_noselect(gl); - glist_select(gl, &x->m_text.te_g); - gobj_activate(&x->m_text.te_g, gl, 1); - canvas_startmotion(glist_getcanvas(gl)); - } -} - -/* ---------------------- the "atom" text item ------------------------ */ - -#define ATOMBUFSIZE 40 -#define ATOM_LABELLEFT 0 -#define ATOM_LABELRIGHT 1 -#define ATOM_LABELUP 2 -#define ATOM_LABELDOWN 3 - -typedef struct _gatom -{ - t_text a_text; - t_atom a_atom; /* this holds the value and the type */ - t_glist *a_glist; /* owning glist */ - t_float a_toggle; /* value to toggle to */ - t_float a_draghi; /* high end of drag range */ - t_float a_draglo; /* low end of drag range */ - t_symbol *a_label; /* symbol to show as label next to box */ - t_symbol *a_symfrom; /* "receive" name -- bind ourselvs to this */ - t_symbol *a_symto; /* "send" name -- send to this on output */ - char a_buf[ATOMBUFSIZE];/* string buffer for typing */ - char a_shift; /* was shift key down when dragging started? */ - char a_wherelabel; /* 0-3 for left, right, above, below */ - t_symbol *a_expanded_to; /* a_symto after $0, $1, ... expansion */ -} t_gatom; - - /* prepend "-" as necessary to avoid empty strings, so we can - use them in Pd messages. A more complete solution would be - to introduce some quoting mechanism; but then we'd be much more - complicated. */ -static t_symbol *gatom_escapit(t_symbol *s) -{ - if (!*s->s_name) - return (gensym("-")); - else if (*s->s_name == '-') - { - char shmo[100]; - shmo[0] = '-'; - strncpy(shmo+1, s->s_name, 99); - shmo[99] = 0; - return (gensym(shmo)); - } - else return (iemgui_dollar2raute(s)); -} - - /* undo previous operation: strip leading "-" if found. */ -static t_symbol *gatom_unescapit(t_symbol *s) -{ - if (*s->s_name == '-') - return (gensym(s->s_name+1)); - else return (iemgui_raute2dollar(s)); -} - -#if 0 /* ??? */ - /* expand leading $0, $1, etc. in the symbol */ -static t_symbol *gatom_realizedollar(t_gatom *x, t_symbol *s) -{ - return (canvas_realizedollar(x->a_glist, s)); -} -#endif - -static void gatom_retext(t_gatom *x, int senditup) -{ - binbuf_clear(x->a_text.te_binbuf); - binbuf_add(x->a_text.te_binbuf, 1, &x->a_atom); - if (senditup) - glist_retext(x->a_glist, &x->a_text); -} - -static void gatom_set(t_gatom *x, t_symbol *s, int argc, t_atom *argv) -{ - t_atom oldatom = x->a_atom; - int senditup = 0; - if (!argc) return; - if (x->a_atom.a_type == A_FLOAT) - x->a_atom.a_w.w_float = atom_getfloat(argv), - senditup = (x->a_atom.a_w.w_float != oldatom.a_w.w_float); - else if (x->a_atom.a_type == A_SYMBOL) - x->a_atom.a_w.w_symbol = atom_getsymbol(argv), - senditup = (x->a_atom.a_w.w_symbol != oldatom.a_w.w_symbol); - gatom_retext(x, senditup); - x->a_buf[0] = 0; -} - -static void gatom_bang(t_gatom *x) -{ - if (x->a_atom.a_type == A_FLOAT) - { - if (x->a_text.te_outlet) - outlet_float(x->a_text.te_outlet, x->a_atom.a_w.w_float); - if (*x->a_expanded_to->s_name && x->a_expanded_to->s_thing) - { - if (x->a_symto == x->a_symfrom) - pd_error(x, - "%s: atom with same send/receive name (infinite loop)", - x->a_symto->s_name); - else pd_float(x->a_expanded_to->s_thing, x->a_atom.a_w.w_float); - } - } - else if (x->a_atom.a_type == A_SYMBOL) - { - if (x->a_text.te_outlet) - outlet_symbol(x->a_text.te_outlet, x->a_atom.a_w.w_symbol); - if (*x->a_symto->s_name && x->a_expanded_to->s_thing) - { - if (x->a_symto == x->a_symfrom) - pd_error(x, - "%s: atom with same send/receive name (infinite loop)", - x->a_symto->s_name); - else pd_symbol(x->a_expanded_to->s_thing, x->a_atom.a_w.w_symbol); - } - } -} - -static void gatom_float(t_gatom *x, t_float f) -{ - t_atom at; - SETFLOAT(&at, f); - gatom_set(x, 0, 1, &at); - gatom_bang(x); -} - -static void gatom_clipfloat(t_gatom *x, t_float f) -{ - if (x->a_draglo != 0 || x->a_draghi != 0) - { - if (f < x->a_draglo) - f = x->a_draglo; - if (f > x->a_draghi) - f = x->a_draghi; - } - gatom_float(x, f); -} - -static void gatom_symbol(t_gatom *x, t_symbol *s) -{ - t_atom at; - SETSYMBOL(&at, s); - gatom_set(x, 0, 1, &at); - gatom_bang(x); -} - -static void gatom_motion(void *z, t_floatarg dx, t_floatarg dy) -{ - t_gatom *x = (t_gatom *)z; - if (dy == 0) return; - if (x->a_atom.a_type == A_FLOAT) - { - if (x->a_shift) - { - double nval = x->a_atom.a_w.w_float - 0.01 * dy; - double trunc = 0.01 * (floor(100. * nval + 0.5)); - if (trunc < nval + 0.0001 && trunc > nval - 0.0001) nval = trunc; - gatom_clipfloat(x, nval); - } - else - { - double nval = x->a_atom.a_w.w_float - dy; - double trunc = 0.01 * (floor(100. * nval + 0.5)); - if (trunc < nval + 0.0001 && trunc > nval - 0.0001) nval = trunc; - trunc = floor(nval + 0.5); - if (trunc < nval + 0.001 && trunc > nval - 0.001) nval = trunc; - gatom_clipfloat(x, nval); - } - } -} - -static void gatom_key(void *z, t_floatarg f) -{ - t_gatom *x = (t_gatom *)z; - int c = f; - int len = strlen(x->a_buf); - t_atom at; - char sbuf[ATOMBUFSIZE + 4]; - if (c == 0) - { - /* we're being notified that no more keys will come for this grab */ - if (x->a_buf[0]) - gatom_retext(x, 1); - return; - } - else if (c == ' ') return; - else if (c == '\b') - { - if (len > 0) - x->a_buf[len-1] = 0; - goto redraw; - } - else if (c == '\n') - { - if (x->a_atom.a_type == A_FLOAT) - x->a_atom.a_w.w_float = atof(x->a_buf); - else if (x->a_atom.a_type == A_SYMBOL) - x->a_atom.a_w.w_symbol = gensym(x->a_buf); - else bug("gatom_key"); - gatom_bang(x); - gatom_retext(x, 1); - x->a_buf[0] = 0; - } - else if (len < (ATOMBUFSIZE-1)) - { - /* for numbers, only let reasonable characters through */ - if ((x->a_atom.a_type == A_SYMBOL) || - (c >= '0' && c <= '9' || c == '.' || c == '-' - || c == 'e' || c == 'E')) - { - x->a_buf[len] = c; - x->a_buf[len+1] = 0; - goto redraw; - } - } - return; -redraw: - /* LATER figure out how to avoid creating all these symbols! */ - sprintf(sbuf, "%s...", x->a_buf); - SETSYMBOL(&at, gensym(sbuf)); - binbuf_clear(x->a_text.te_binbuf); - binbuf_add(x->a_text.te_binbuf, 1, &at); - glist_retext(x->a_glist, &x->a_text); -} - -static void gatom_click(t_gatom *x, - t_floatarg xpos, t_floatarg ypos, t_floatarg shift, t_floatarg ctrl, - t_floatarg alt) -{ - if (x->a_text.te_width == 1) - { - if (x->a_atom.a_type == A_FLOAT) - gatom_float(x, (x->a_atom.a_w.w_float == 0)); - } - else - { - if (alt) - { - if (x->a_atom.a_type != A_FLOAT) return; - if (x->a_atom.a_w.w_float != 0) - { - x->a_toggle = x->a_atom.a_w.w_float; - gatom_float(x, 0); - return; - } - else gatom_float(x, x->a_toggle); - } - x->a_shift = shift; - x->a_buf[0] = 0; - glist_grab(x->a_glist, &x->a_text.te_g, gatom_motion, gatom_key, - xpos, ypos); - } -} - - /* message back from dialog window */ -static void gatom_param(t_gatom *x, t_symbol *sel, int argc, t_atom *argv) -{ - t_float width = atom_getfloatarg(0, argc, argv); - t_float draglo = atom_getfloatarg(1, argc, argv); - t_float draghi = atom_getfloatarg(2, argc, argv); - t_symbol *label = gatom_unescapit(atom_getsymbolarg(3, argc, argv)); - t_float wherelabel = atom_getfloatarg(4, argc, argv); - t_symbol *symfrom = gatom_unescapit(atom_getsymbolarg(5, argc, argv)); - t_symbol *symto = gatom_unescapit(atom_getsymbolarg(6, argc, argv)); - - gobj_vis(&x->a_text.te_g, x->a_glist, 0); - if (!*symfrom->s_name && *x->a_symfrom->s_name) - inlet_new(&x->a_text, &x->a_text.te_pd, 0, 0); - else if (*symfrom->s_name && !*x->a_symfrom->s_name && x->a_text.te_inlet) - { - canvas_deletelinesforio(x->a_glist, &x->a_text, - x->a_text.te_inlet, 0); - inlet_free(x->a_text.te_inlet); - } - if (!*symto->s_name && *x->a_symto->s_name) - outlet_new(&x->a_text, 0); - else if (*symto->s_name && !*x->a_symto->s_name && x->a_text.te_outlet) - { - canvas_deletelinesforio(x->a_glist, &x->a_text, - 0, x->a_text.te_outlet); - outlet_free(x->a_text.te_outlet); - } - if (draglo >= draghi) - draglo = draghi = 0; - x->a_draglo = draglo; - x->a_draghi = draghi; - if (width < 0) - width = 4; - else if (width > 80) - width = 80; - x->a_text.te_width = width; - x->a_wherelabel = ((int)wherelabel & 3); - x->a_label = label; - if (*x->a_symfrom->s_name) - pd_unbind(&x->a_text.te_pd, - canvas_realizedollar(x->a_glist, x->a_symfrom)); - x->a_symfrom = symfrom; - if (*x->a_symfrom->s_name) - pd_bind(&x->a_text.te_pd, - canvas_realizedollar(x->a_glist, x->a_symfrom)); - x->a_symto = symto; - x->a_expanded_to = canvas_realizedollar(x->a_glist, x->a_symto); - gobj_vis(&x->a_text.te_g, x->a_glist, 1); - - /* glist_retext(x->a_glist, &x->a_text); */ -} - - /* ---------------- gatom-specific widget functions --------------- */ -static void gatom_getwherelabel(t_gatom *x, t_glist *glist, int *xp, int *yp) -{ - int x1, y1, x2, y2, width, height; - text_getrect(&x->a_text.te_g, glist, &x1, &y1, &x2, &y2); - width = x2 - x1; - height = y2 - y1; - if (x->a_wherelabel == ATOM_LABELLEFT) - { - *xp = x1 - 3 - - strlen(canvas_realizedollar(x->a_glist, x->a_label)->s_name) * - sys_fontwidth(glist_getfont(glist)); - *yp = y1 + 2; - } - else if (x->a_wherelabel == ATOM_LABELRIGHT) - { - *xp = x2 + 2; - *yp = y1 + 2; - } - else if (x->a_wherelabel == ATOM_LABELUP) - { - *xp = x1 - 1; - *yp = y1 - 1 - sys_fontheight(glist_getfont(glist));; - } - else - { - *xp = x1 - 1; - *yp = y2 + 3; - } -} - -static void gatom_displace(t_gobj *z, t_glist *glist, - int dx, int dy) -{ - t_gatom *x = (t_gatom*)z; - text_displace(z, glist, dx, dy); - sys_vgui(".x%x.c move %x.l %d %d\n", glist_getcanvas(glist), - x, dx, dy); -} - -static void gatom_vis(t_gobj *z, t_glist *glist, int vis) -{ - t_gatom *x = (t_gatom*)z; - text_vis(z, glist, vis); - if (*x->a_label->s_name) - { - if (vis) - { - int x1, y1; - gatom_getwherelabel(x, glist, &x1, &y1); - sys_vgui("pdtk_text_new .x%x.c %x.l %f %f {%s} %d %s\n", - glist_getcanvas(glist), x, - (double)x1, (double)y1, - canvas_realizedollar(x->a_glist, x->a_label)->s_name, - sys_hostfontsize(glist_getfont(glist)), - "black"); - } - else sys_vgui(".x%x.c delete %x.l\n", glist_getcanvas(glist), x); - } -} - -void canvas_atom(t_glist *gl, t_atomtype type, - t_symbol *s, int argc, t_atom *argv) -{ - t_gatom *x = (t_gatom *)pd_new(gatom_class); - t_atom at; - x->a_text.te_width = 0; /* don't know it yet. */ - x->a_text.te_type = T_ATOM; - x->a_text.te_binbuf = binbuf_new(); - x->a_glist = gl; - x->a_atom.a_type = type; - x->a_toggle = 1; - x->a_draglo = 0; - x->a_draghi = 0; - x->a_wherelabel = 0; - x->a_label = &s_; - x->a_symfrom = &s_; - x->a_symto = x->a_expanded_to = &s_; - if (type == A_FLOAT) - { - x->a_atom.a_w.w_float = 0; - x->a_text.te_width = 5; - SETFLOAT(&at, 0); - } - else - { - x->a_atom.a_w.w_symbol = &s_symbol; - x->a_text.te_width = 10; - SETSYMBOL(&at, &s_symbol); - } - binbuf_add(x->a_text.te_binbuf, 1, &at); - if (argc > 1) - /* create from file. x, y, width, low-range, high-range, flags, - label, receive-name, send-name */ - { - x->a_text.te_xpix = atom_getfloatarg(0, argc, argv); - x->a_text.te_ypix = atom_getfloatarg(1, argc, argv); - x->a_text.te_width = atom_getintarg(2, argc, argv); - /* sanity check because some very old patches have trash in this - field... remove this in 2003 or so: */ - if (x->a_text.te_width < 0 || x->a_text.te_width > 500) - x->a_text.te_width = 4; - x->a_draglo = atom_getfloatarg(3, argc, argv); - x->a_draghi = atom_getfloatarg(4, argc, argv); - x->a_wherelabel = (((int)atom_getfloatarg(5, argc, argv)) & 3); - x->a_label = gatom_unescapit(atom_getsymbolarg(6, argc, argv)); - x->a_symfrom = gatom_unescapit(atom_getsymbolarg(7, argc, argv)); - if (*x->a_symfrom->s_name) - pd_bind(&x->a_text.te_pd, - canvas_realizedollar(x->a_glist, x->a_symfrom)); - - x->a_symto = gatom_unescapit(atom_getsymbolarg(8, argc, argv)); - x->a_expanded_to = canvas_realizedollar(x->a_glist, x->a_symto); - if (x->a_symto == &s_) - outlet_new(&x->a_text, - x->a_atom.a_type == A_FLOAT ? &s_float: &s_symbol); - if (x->a_symfrom == &s_) - inlet_new(&x->a_text, &x->a_text.te_pd, 0, 0); - glist_add(gl, &x->a_text.te_g); - } - else - { - int xpix, ypix; - outlet_new(&x->a_text, - x->a_atom.a_type == A_FLOAT ? &s_float: &s_symbol); - inlet_new(&x->a_text, &x->a_text.te_pd, 0, 0); - pd_vmess(&gl->gl_pd, gensym("editmode"), "i", 1); - glist_noselect(gl); - glist_getnextxy(gl, &xpix, &ypix); - x->a_text.te_xpix = xpix; - x->a_text.te_ypix = ypix; - glist_add(gl, &x->a_text.te_g); - glist_noselect(gl); - glist_select(gl, &x->a_text.te_g); - canvas_startmotion(glist_getcanvas(gl)); - } -} - -void canvas_floatatom(t_glist *gl, t_symbol *s, int argc, t_atom *argv) -{ - canvas_atom(gl, A_FLOAT, s, argc, argv); -} - -void canvas_symbolatom(t_glist *gl, t_symbol *s, int argc, t_atom *argv) -{ - canvas_atom(gl, A_SYMBOL, s, argc, argv); -} - -static void gatom_free(t_gatom *x) -{ - if (*x->a_symfrom->s_name) - pd_unbind(&x->a_text.te_pd, - canvas_realizedollar(x->a_glist, x->a_symfrom)); - gfxstub_deleteforkey(x); -} - -static void gatom_properties(t_gobj *z, t_glist *owner) -{ - t_gatom *x = (t_gatom *)z; - char buf[200]; - sprintf(buf, "pdtk_gatom_dialog %%s %d %g %g %d %s %s %s\n", - x->a_text.te_width, x->a_draglo, x->a_draghi, - x->a_wherelabel, gatom_escapit(x->a_label)->s_name, - gatom_escapit(x->a_symfrom)->s_name, - gatom_escapit(x->a_symto)->s_name); - gfxstub_new(&x->a_text.te_pd, x, buf); -} - - -/* -------------------- widget behavior for text objects ------------ */ - -static void text_getrect(t_gobj *z, t_glist *glist, - int *xp1, int *yp1, int *xp2, int *yp2) -{ - t_text *x = (t_text *)z; - int width, height, iscomment = (x->te_type == T_TEXT); - float x1, y1, x2, y2; - - /* for number boxes, we know width and height a priori, and should - report them here so that graphs can get swelled to fit. */ - - if (x->te_type == T_ATOM && x->te_width > 0) - { - int font = glist_getfont(glist); - int fontwidth = sys_fontwidth(font), fontheight = sys_fontheight(font); - width = (x->te_width > 0 ? x->te_width : 6) * fontwidth + 2; - height = fontheight + 1; /* borrowed from TMARGIN, etc, in g_rtext.c */ - } - /* if we're invisible we don't know our size so we just lie about - it. This is called on invisible boxes to establish order of inlets - and possibly other reasons. - To find out if the box is visible we can't just check the "vis" - flag because we might be within the vis() routine and not have set - that yet. So we check directly whether the "rtext" list has been - built. LATER reconsider when "vis" flag should be on and off? */ - - else if (glist->gl_editor && glist->gl_editor->e_rtext) - { - t_rtext *y = glist_findrtext(glist, x); - width = rtext_width(y); - height = rtext_height(y) - (iscomment << 1); - } - else width = height = 10; - x1 = text_xpix(x, glist); - y1 = text_ypix(x, glist); - x2 = x1 + width; - y2 = y1 + height; - y1 += iscomment; - *xp1 = x1; - *yp1 = y1; - *xp2 = x2; - *yp2 = y2; -} - -static void text_displace(t_gobj *z, t_glist *glist, - int dx, int dy) -{ - t_text *x = (t_text *)z; - x->te_xpix += dx; - x->te_ypix += dy; - if (glist_isvisible(glist)) - { - t_rtext *y = glist_findrtext(glist, x); - rtext_displace(y, dx, dy); - text_drawborder(x, glist, rtext_gettag(y), - rtext_width(y), rtext_height(y), 0); - canvas_fixlinesfor(glist_getcanvas(glist), x); - } -} - -static void text_select(t_gobj *z, t_glist *glist, int state) -{ - t_text *x = (t_text *)z; - t_rtext *y = glist_findrtext(glist, x); - rtext_select(y, state); - if (glist_isvisible(glist) && text_shouldvis(x, glist)) - sys_vgui(".x%x.c itemconfigure %sR -fill %s\n", glist, - rtext_gettag(y), (state? "blue" : "black")); -} - -static void text_activate(t_gobj *z, t_glist *glist, int state) -{ - t_text *x = (t_text *)z; - t_rtext *y = glist_findrtext(glist, x); - if (z->g_pd != gatom_class) rtext_activate(y, state); -} - -static void text_delete(t_gobj *z, t_glist *glist) -{ - t_text *x = (t_text *)z; - canvas_deletelinesfor(glist, x); -} - - /* return true if the text box should be drawn. - We don't show object boxes inside graphs. */ -int text_shouldvis(t_text *x, t_glist *glist) -{ - return (glist->gl_havewindow || - (x->te_pd != canvas_class && x->te_pd->c_wb != &text_widgetbehavior) || - (x->te_pd == canvas_class && (((t_glist *)x)->gl_isgraph))); -} - -static void text_vis(t_gobj *z, t_glist *glist, int vis) -{ - t_text *x = (t_text *)z; - if (vis) - { - if (text_shouldvis(x, glist)) - { - t_rtext *y = glist_findrtext(glist, x); - if (x->te_type == T_ATOM) - glist_retext(glist, x); - text_drawborder(x, glist, rtext_gettag(y), - rtext_width(y), rtext_height(y), 1); - rtext_draw(y); - } - } - else - { - t_rtext *y = glist_findrtext(glist, x); - if (text_shouldvis(x, glist)) - { - text_eraseborder(x, glist, rtext_gettag(y)); - rtext_erase(y); - } - } -} - -static int text_click(t_gobj *z, struct _glist *glist, - int xpix, int ypix, int shift, int alt, int dbl, int doit) -{ - t_text *x = (t_text *)z; - if (x->te_type == T_OBJECT) - { - t_symbol *clicksym = gensym("click"); - if (zgetfn(&x->te_pd, clicksym)) - { - if (doit) - pd_vmess(&x->te_pd, clicksym, "fffff", - (double)xpix, (double)ypix, - (double)shift, 0, (double)alt); - return (1); - } - else return (0); - } - else if (x->te_type == T_ATOM) - { - if (doit) - gatom_click((t_gatom *)x, (t_floatarg)xpix, (t_floatarg)ypix, - (t_floatarg)shift, 0, (t_floatarg)alt); - return (1); - } - else if (x->te_type == T_MESSAGE) - { - if (doit) - message_click((t_message *)x, (t_floatarg)xpix, (t_floatarg)ypix, - (t_floatarg)shift, 0, (t_floatarg)alt); - return (1); - } - else return (0); -} - -void text_save(t_gobj *z, t_binbuf *b) -{ - t_text *x = (t_text *)z; - if (x->te_type == T_OBJECT) - { - /* if we have a "saveto" method, and if we don't happen to be - a canvas that's an abstraction, the saveto method does the work */ - if (zgetfn(&x->te_pd, gensym("saveto")) && - !((pd_class(&x->te_pd) == canvas_class) && - (canvas_isabstraction((t_canvas *)x) - || canvas_istable((t_canvas *)x)))) - { - mess1(&x->te_pd, gensym("saveto"), b); - binbuf_addv(b, "ssii", gensym("#X"), gensym("restore"), - (t_int)x->te_xpix, (t_int)x->te_ypix); - } - else /* otherwise just save the text */ - { - binbuf_addv(b, "ssii", gensym("#X"), gensym("obj"), - (t_int)x->te_xpix, (t_int)x->te_ypix); - } - binbuf_addbinbuf(b, x->te_binbuf); - binbuf_addv(b, ";"); - } - else if (x->te_type == T_MESSAGE) - { - binbuf_addv(b, "ssii", gensym("#X"), gensym("msg"), - (t_int)x->te_xpix, (t_int)x->te_ypix); - binbuf_addbinbuf(b, x->te_binbuf); - binbuf_addv(b, ";"); - } - else if (x->te_type == T_ATOM) - { - t_atomtype t = ((t_gatom *)x)->a_atom.a_type; - t_symbol *sel = (t == A_SYMBOL ? gensym("symbolatom") : - (t == A_FLOAT ? gensym("floatatom") : gensym("intatom"))); - t_symbol *label = gatom_escapit(((t_gatom *)x)->a_label); - t_symbol *symfrom = gatom_escapit(((t_gatom *)x)->a_symfrom); - t_symbol *symto = gatom_escapit(((t_gatom *)x)->a_symto); - binbuf_addv(b, "ssiiifffsss", gensym("#X"), sel, - (t_int)x->te_xpix, (t_int)x->te_ypix, (t_int)x->te_width, - (double)((t_gatom *)x)->a_draglo, - (double)((t_gatom *)x)->a_draghi, - (double)((t_gatom *)x)->a_wherelabel, - label, symfrom, symto); - binbuf_addv(b, ";"); - } - else - { - binbuf_addv(b, "ssii", gensym("#X"), gensym("text"), - (t_int)x->te_xpix, (t_int)x->te_ypix); - binbuf_addbinbuf(b, x->te_binbuf); - binbuf_addv(b, ";"); - } -} - - /* this one is for everyone but "gatoms"; it's imposed in m_class.c */ -t_widgetbehavior text_widgetbehavior = -{ - text_getrect, - text_displace, - text_select, - text_activate, - text_delete, - text_vis, - text_click, -}; - -static t_widgetbehavior gatom_widgetbehavior = -{ - text_getrect, - gatom_displace, - text_select, - text_activate, - text_delete, - gatom_vis, - text_click, -}; - -/* -------------------- the "text" class ------------ */ - -#ifdef MACOSX -#define EXTRAPIX 2 -#else -#define EXTRAPIX 1 -#endif - - /* draw inlets and outlets for a text object or for a graph. */ -void glist_drawiofor(t_glist *glist, t_object *ob, int firsttime, - char *tag, int x1, int y1, int x2, int y2) -{ - int n = obj_noutlets(ob), nplus = (n == 1 ? 1 : n-1), i; - int width = x2 - x1; - for (i = 0; i < n; i++) - { - int onset = x1 + (width - IOWIDTH) * i / nplus; - if (firsttime) - sys_vgui(".x%x.c create rectangle %d %d %d %d -tags %so%d\n", - glist_getcanvas(glist), - onset, y2 - 1, - onset + IOWIDTH, y2, - tag, i); - else - sys_vgui(".x%x.c coords %so%d %d %d %d %d\n", - glist_getcanvas(glist), tag, i, - onset, y2 - 1, - onset + IOWIDTH, y2); - } - n = obj_ninlets(ob); - nplus = (n == 1 ? 1 : n-1); - for (i = 0; i < n; i++) - { - int onset = x1 + (width - IOWIDTH) * i / nplus; - if (firsttime) - sys_vgui(".x%x.c create rectangle %d %d %d %d -tags %si%d\n", - glist_getcanvas(glist), - onset, y1, - onset + IOWIDTH, y1 + EXTRAPIX, - tag, i); - else - sys_vgui(".x%x.c coords %si%d %d %d %d %d\n", - glist_getcanvas(glist), tag, i, - onset, y1, - onset + IOWIDTH, y1 + EXTRAPIX); - } -} - -void text_drawborder(t_text *x, t_glist *glist, - char *tag, int width2, int height2, int firsttime) -{ - t_object *ob; - int x1, y1, x2, y2, width, height; - text_getrect(&x->te_g, glist, &x1, &y1, &x2, &y2); - width = x2 - x1; - height = y2 - y1; - if (x->te_type == T_OBJECT) - { - if (firsttime) - sys_vgui(".x%x.c create line\ - %d %d %d %d %d %d %d %d %d %d -tags %sR\n", - glist_getcanvas(glist), - x1, y1, x2, y1, x2, y2, x1, y2, x1, y1, tag); - else - sys_vgui(".x%x.c coords %sR\ - %d %d %d %d %d %d %d %d %d %d\n", - glist_getcanvas(glist), tag, - x1, y1, x2, y1, x2, y2, x1, y2, x1, y1); - } - else if (x->te_type == T_MESSAGE) - { - if (firsttime) - sys_vgui(".x%x.c create line\ - %d %d %d %d %d %d %d %d %d %d %d %d %d %d -tags %sR\n", - glist_getcanvas(glist), - x1, y1, x2+4, y1, x2, y1+4, x2, y2-4, x2+4, y2, - x1, y2, x1, y1, - tag); - else - sys_vgui(".x%x.c coords %sR\ - %d %d %d %d %d %d %d %d %d %d %d %d %d %d\n", - glist_getcanvas(glist), tag, - x1, y1, x2+4, y1, x2, y1+4, x2, y2-4, x2+4, y2, - x1, y2, x1, y1); - } - else if (x->te_type == T_ATOM) - { - if (firsttime) - sys_vgui(".x%x.c create line\ - %d %d %d %d %d %d %d %d %d %d %d %d -tags %sR\n", - glist_getcanvas(glist), - x1, y1, x2-4, y1, x2, y1+4, x2, y2, x1, y2, x1, y1, - tag); - else - sys_vgui(".x%x.c coords %sR\ - %d %d %d %d %d %d %d %d %d %d %d %d\n", - glist_getcanvas(glist), tag, - x1, y1, x2-4, y1, x2, y1+4, x2, y2, x1, y2, x1, y1); - } - /* draw inlets/outlets */ - - if (ob = pd_checkobject(&x->te_pd)) - glist_drawiofor(glist, ob, firsttime, tag, x1, y1, x2, y2); -} - -void glist_eraseiofor(t_glist *glist, t_object *ob, char *tag) -{ - int i, n; - n = obj_noutlets(ob); - for (i = 0; i < n; i++) - sys_vgui(".x%x.c delete %so%d\n", - glist_getcanvas(glist), tag, i); - n = obj_ninlets(ob); - for (i = 0; i < n; i++) - sys_vgui(".x%x.c delete %si%d\n", - glist_getcanvas(glist), tag, i); -} - -void text_eraseborder(t_text *x, t_glist *glist, char *tag) -{ - if (x->te_type == T_TEXT) return; - sys_vgui(".x%x.c delete %sR\n", - glist_getcanvas(glist), tag); - glist_eraseiofor(glist, x, tag); -} - - /* change text; if T_OBJECT, remake it. LATER we'll have an undo buffer - which should be filled in here before making the change. */ - -void text_setto(t_text *x, t_glist *glist, char *buf, int bufsize) -{ - if (x->te_type == T_OBJECT) - { - t_binbuf *b = binbuf_new(); - int natom1, natom2; - t_atom *vec1, *vec2; - binbuf_text(b, buf, bufsize); - natom1 = binbuf_getnatom(x->te_binbuf); - vec1 = binbuf_getvec(x->te_binbuf); - natom2 = binbuf_getnatom(b); - vec2 = binbuf_getvec(b); - /* special case: if pd args change just pass the message on. */ - if (natom1 >= 1 && natom2 >= 1 && vec1[0].a_type == A_SYMBOL - && !strcmp(vec1[0].a_w.w_symbol->s_name, "pd") && - vec2[0].a_type == A_SYMBOL - && !strcmp(vec2[0].a_w.w_symbol->s_name, "pd")) - { - typedmess(&x->te_pd, gensym("rename"), natom2-1, vec2+1); - binbuf_free(x->te_binbuf); - x->te_binbuf = b; - } - else /* normally, just destroy the old one and make a new one. */ - { - int xwas = x->te_xpix, ywas = x->te_ypix; - glist_delete(glist, &x->te_g); - canvas_objtext(glist, xwas, ywas, 0, b); - /* if it's an abstraction loadbang it here */ - if (newest && pd_class(newest) == canvas_class) - canvas_loadbang((t_canvas *)newest); - canvas_restoreconnections(glist_getcanvas(glist)); - } - /* if we made a new "pd" or changed a window name, - update window list */ - if (natom2 >= 1 && vec2[0].a_type == A_SYMBOL - && !strcmp(vec2[0].a_w.w_symbol->s_name, "pd")) - canvas_updatewindowlist(); - } - else binbuf_text(x->te_binbuf, buf, bufsize); -} - -void g_text_setup(void) -{ - text_class = class_new(gensym("text"), 0, 0, sizeof(t_text), - CLASS_NOINLET | CLASS_PATCHABLE, 0); - - message_class = class_new(gensym("message"), 0, (t_method)message_free, - sizeof(t_message), CLASS_PATCHABLE, 0); - class_addbang(message_class, message_bang); - class_addfloat(message_class, message_float); - class_addsymbol(message_class, message_symbol); - class_addlist(message_class, message_list); - class_addanything(message_class, message_list); - - class_addmethod(message_class, (t_method)message_click, gensym("click"), - A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, 0); - class_addmethod(message_class, (t_method)message_set, gensym("set"), - A_GIMME, 0); - class_addmethod(message_class, (t_method)message_add, gensym("add"), - A_GIMME, 0); - class_addmethod(message_class, (t_method)message_add2, gensym("add2"), - A_GIMME, 0); - - messresponder_class = class_new(gensym("messresponder"), 0, 0, - sizeof(t_text), CLASS_PD, 0); - class_addbang(messresponder_class, messresponder_bang); - class_addfloat(messresponder_class, (t_method) messresponder_float); - class_addsymbol(messresponder_class, messresponder_symbol); - class_addlist(messresponder_class, messresponder_list); - class_addanything(messresponder_class, messresponder_anything); - - gatom_class = class_new(gensym("gatom"), 0, (t_method)gatom_free, - sizeof(t_gatom), CLASS_NOINLET | CLASS_PATCHABLE, 0); - class_addbang(gatom_class, gatom_bang); - class_addfloat(gatom_class, gatom_float); - class_addsymbol(gatom_class, gatom_symbol); - class_addmethod(gatom_class, (t_method)gatom_set, gensym("set"), - A_GIMME, 0); - class_addmethod(gatom_class, (t_method)gatom_click, gensym("click"), - A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, A_FLOAT, 0); - class_addmethod(gatom_class, (t_method)gatom_param, gensym("param"), - A_GIMME, 0); - class_setwidget(gatom_class, &gatom_widgetbehavior); - class_setpropertiesfn(gatom_class, gatom_properties); -} - - -- cgit v1.2.3