Add FS #10214. Initial commit of the original PDa code for the GSoC Pure Data plugin project of Wincent Balin. Stripped some non-sourcefiles and added a rockbox readme that needs a bit more info from Wincent. Is added to CATEGORIES and viewers, but not yet to SUBDIRS (ie doesn't build yet)

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@21044 a1c6a512-1295-4272-9138-f99709370657

1 files changed, 2632 insertions, 0 deletions

diff --git a/apps/plugins/pdbox/PDa/src/g_text.c b/apps/plugins/pdbox/PDa/src/g_text.c
new file mode 100644
index 0000000..8cf1fe2
--- /dev/null
+++ b/apps/plugins/pdbox/PDa/src/g_text.c
@@ -0,0 +1,2632 @@
+/* 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 <stdlib.h>
+#include "m_pd.h"
+#include "m_imp.h"
+#include "s_stuff.h"
+#include "t_tk.h"
+#include "g_canvas.h"
+#include <stdio.h>
+#include <string.h>
+#include <math.h>
+
+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);
+}
+
+
+/* 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 <stdlib.h>
+#include "m_pd.h"
+#include "m_imp.h"
+#include "s_stuff.h"
+#include "t_tk.h"
+#include "g_canvas.h"
+#include <stdio.h>
+#include <string.h>
+#include <math.h>
+
+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);
+}
+
+