static void pddplink_getrect(t_gobj *z, t_glist *glist,
int *xp1, int *yp1, int *xp2, int *yp2)
{
t_pddplink *x = (t_pddplink *)z;
int width, height;
float x1, y1, x2, y2;
if (glist->gl_editor && glist->gl_editor->e_rtext)
{
if (x->x_rtextactive)
{
t_rtext *y = glist_findrtext(glist, (t_text *)x);
width = rtext_width(y);
height = rtext_height(y) - 2;
}
else
{
int font = glist_getfont(glist);
width = x->x_vislength * sys_fontwidth(font) + 2;
height = sys_fontheight(font) + 2;
}
}
else width = height = 10;
x1 = text_xpix((t_text *)x, glist);
y1 = text_ypix((t_text *)x, glist);
x2 = x1 + width;
y2 = y1 + height;
y1 += 1;
*xp1 = x1;
*yp1 = y1;
*xp2 = x2;
*yp2 = y2;
}
static void pddplink_activate(t_gobj *z, t_glist *glist, int state)
{
t_pddplink *x = (t_pddplink *)z;
t_rtext *y = glist_findrtext(glist, (t_text *)x);
rtext_activate(y, state);
x->x_rtextactive = state;
}
static void scope_vis(t_gobj *z, t_glist *glist, int vis)
{
t_scope *x = (t_scope *)z;
t_text *t = (t_text *)z;
t_canvas *cv = scope_getcanvas(x, glist);
if (vis)
{
t_scopehandle *sh = (t_scopehandle *)x->x_handle;
#if FORKY_VERSION < 37
rtext_new(glist, t, glist->gl_editor->e_rtext, 0);
#endif
sprintf(sh->h_pathname, ".x%lx.h%lx", (unsigned long)cv, (unsigned long)sh);
if (x->x_xymode)
scope_drawxy(x, cv);
else
scope_drawmono(x, cv);
}
else
{
#if FORKY_VERSION < 37
t_rtext *rt = glist_findrtext(glist, t);
if (rt) rtext_free(rt);
#endif
sys_vgui(".x%lx.c delete %s\n", (unsigned long)cv, x->x_tag);
x->x_canvas = 0;
}
}
/* Note that some code in here would also be useful for drawing
graph decorations in toplevels... */
static void graph_vis(t_gobj *gr, t_glist *parent_glist, int vis)
{
t_glist *x = (t_glist *)gr;
char tag[50];
t_gobj *g;
int x1, y1, x2, y2;
/* ordinary subpatches: just act like a text object */
if (!x->gl_isgraph)
{
text_widgetbehavior.w_visfn(gr, parent_glist, vis);
return;
}
if (vis && canvas_showtext(x))
rtext_draw(glist_findrtext(parent_glist, &x->gl_obj));
graph_getrect(gr, parent_glist, &x1, &y1, &x2, &y2);
if (!vis)
rtext_erase(glist_findrtext(parent_glist, &x->gl_obj));
sprintf(tag, "graph%lx", (t_int)x);
if (vis)
glist_drawiofor(parent_glist, &x->gl_obj, 1,
tag, x1, y1, x2, y2);
else glist_eraseiofor(parent_glist, &x->gl_obj, tag);
/* if we look like a graph but have been moved to a toplevel,
just show the bounding rectangle */
if (x->gl_havewindow)
{
if (vis)
{
sys_vgui(".x%lx.c create polygon\
%d %d %d %d %d %d %d %d %d %d -tags [list %s graph] -fill #c0c0c0\n",
glist_getcanvas(x->gl_owner),
x1, y1, x1, y2, x2, y2, x2, y1, x1, y1, tag);
sys_vgui(".x%lx.c raise cord\n", glist_getcanvas(x->gl_owner));
}
else
{
sys_vgui(".x%lx.c delete %s\n",
glist_getcanvas(x->gl_owner), tag);
}
return;
}
void glist_retext(t_glist *glist, t_text *y)
{
t_canvas *c = glist_getcanvas(glist);
/* check that we have built rtexts yet. LATER need a better test. */
if (glist->gl_editor && glist->gl_editor->e_rtext)
{
t_rtext *rt = glist_findrtext(glist, y);
if (rt)
rtext_retext(rt);
}
}
static void pddplink_displace(t_gobj *z, t_glist *glist, int dx, int dy)
{
t_text *t = (t_text *)z;
t->te_xpix += dx;
t->te_ypix += dy;
if (glist_isvisible(glist))
{
t_rtext *y = glist_findrtext(glist, t);
rtext_displace(y, dx, dy);
}
}
static void pddplink_vis(t_gobj *z, t_glist *glist, int vis)
{
t_pddplink *x = (t_pddplink *)z;
t_rtext *y;
if (vis)
{
if ((glist->gl_havewindow || x->x_isgopvisible)
&& (y = glist_findrtext(glist, (t_text *)x)))
{
rtext_draw(y);
sys_vgui(".x%lx.c itemconfigure %s -text {%s} -fill #0000dd -activefill #e70000\n",
glist_getcanvas(glist), rtext_gettag(y), x->x_vistext);
}
}
else
{
if ((glist->gl_havewindow || x->x_isgopvisible)
&& (y = glist_findrtext(glist, (t_text *)x)))
rtext_erase(y);
}
}
static void pddplink_select(t_gobj *z, t_glist *glist, int state)
{
t_pddplink *x = (t_pddplink *)z;
t_rtext *y = glist_findrtext(glist, (t_text *)x);
rtext_select(y, state);
if (glist_isvisible(glist) && glist->gl_havewindow)
{
if (state) {
sys_vgui(".x%lx.c itemconfigure %s -fill $select_color\n",
glist, rtext_gettag(y));
sys_vgui(".x%lx.c addtag selected withtag %s\n",
glist, rtext_gettag(y));
}
else {
sys_vgui(".x%lx.c itemconfigure %s -text {%s} -fill #0000dd -activefill #e70000\n",
glist, rtext_gettag(y), x->x_vistext);
sys_vgui(".x%lx.c dtag %s selected\n", glist, rtext_gettag(y));
}
}
}
static void mknob_draw_new(t_mknob *x, t_glist *glist)
{
int xpos=text_xpix(&x->x_gui.x_obj, glist);
int ypos=text_ypix(&x->x_gui.x_obj, glist);
int r = xpos + (x->x_val + 50)/100;
t_float xc=xpos+x->x_gui.x_w/2.0;
t_float yc=ypos+x->x_gui.x_w/2.0;
t_float rc=x->x_gui.x_w/2.0;
t_canvas *canvas=glist_getcanvas(glist);
t_gobj *y = (t_gobj *)x;
t_object *ob = pd_checkobject(&y->g_pd);
/* GOP objects are unable to call findrtext triggering consistency check error */
t_rtext *yyyy = NULL;
if (!glist->gl_isgraph || glist_istoplevel(glist))
yyyy = glist_findrtext(canvas, (t_text *)&ob->ob_g);
/* on GOP we cause segfault as apparently text_gettag() returns bogus data */
char *nlet_tag;
if (yyyy) nlet_tag = rtext_gettag(yyyy);
else nlet_tag = "bogus";
sys_vgui(".x%lx.c create circle %f %f -r %f -fill #%6.6x -tags {%xBASE %xMKNOB %s}\n",
canvas,xc,yc,rc,
x->x_gui.x_bcol, x, x, nlet_tag);
/*sys_vgui(".x%lx.c create circle %f %f -r %f -stroke \"\" -fill #%6.6x -tags {%xCENTER %xMKNOB}\n",
canvas,xc,yc,3.5,
x->x_gui.x_fcol, x, x);*/
/*sys_vgui(".x%lx.c create ppolygon %d %d %d %d %d %d -fill #%6.6x -tags {%xKNOB %xMKNOB}\n",
glist_getcanvas(glist),
(int)xc,ypos,(int)xc-4,(int)yc,(int)xc+4,(int)yc,x->x_gui.x_fcol,x,x);*/
sys_vgui(".x%lx.c create ppolygon %f %d %f %f -strokewidth 2 -stroke #%6.6x -tags {%xKNOB %xMKNOB %s}\n",
canvas,xc,ypos,xc,yc,x->x_gui.x_fcol,x,x,nlet_tag);
mknob_update_knob(x,glist);
sys_vgui(".x%lx.c create text %d %d -text {%s} -anchor w \
-font {{%s} %d bold} -fill #%6.6x -tags {%xLABEL %xMKNOB %s}\n",
/* delete an object from a glist and free it */
void glist_delete(t_glist *x, t_gobj *y)
{
t_gobj *g;
t_object *ob;
t_gotfn chkdsp = zgetfn(&y->g_pd, gensym("dsp"));
t_canvas *canvas = glist_getcanvas(x);
int drawcommand = class_isdrawcommand(y->g_pd);
int wasdeleting;
wasdeleting = canvas_setdeleting(canvas, 1);
if (x->gl_editor)
{
if (x->gl_editor->e_grab == y) x->gl_editor->e_grab = 0;
if (glist_isselected(x, y)) glist_deselect(x, y);
/* HACK -- we had phantom outlets not getting erased on the
screen because the canvas_setdeleting() mechanism is too
crude. LATER carefully set up rules for when the rtexts
should exist, so that they stay around until all the
steps of becoming invisible are done. In the meantime, just
zap the inlets and outlets here... */
if (pd_class(&y->g_pd) == canvas_class)
{
t_glist *gl = (t_glist *)y;
if (gl->gl_isgraph && glist_isvisible(x))
{
char tag[80];
sprintf(tag, "graph%lx", (t_int)gl);
glist_eraseiofor(x, &gl->gl_obj, tag);
}
else
{
if (glist_isvisible(x))
text_eraseborder(&gl->gl_obj, x,
rtext_gettag(glist_findrtext(x, &gl->gl_obj)));
}
}
}
/* if we're a drawing command, erase all scalars now, before deleting
it; we'll redraw them once it's deleted below. */
if (drawcommand)
canvas_redrawallfortemplate(template_findbyname(canvas_makebindsym(
glist_getcanvas(x)->gl_name)), 2);
gobj_delete(y, x);
if (glist_isvisible(canvas))
{
gobj_vis(y, x, 0);
}
if (x->gl_editor && (ob = pd_checkobject(&y->g_pd)))
rtext_new(x, ob);
if (x->gl_list == y) x->gl_list = y->g_next;
else for (g = x->gl_list; g; g = g->g_next)
if (g->g_next == y)
{
g->g_next = y->g_next;
break;
}
pd_free(&y->g_pd);
if (chkdsp) canvas_update_dsp();
if (drawcommand)
canvas_redrawallfortemplate(template_findbyname(canvas_makebindsym(
glist_getcanvas(x)->gl_name)), 1);
canvas_setdeleting(canvas, wasdeleting);
x->gl_valid = ++glist_valid;
}