From 2b575004921176d43108b47c2b595e8eb80d87fe Mon Sep 17 00:00:00 2001 From: Guenter Geiger Date: Mon, 15 Sep 2003 11:53:40 +0000 Subject: some bugfixes, GOP still not working svn path=/trunk/externals/ggee/; revision=968 --- gui/ticker.c | 36 +++++++----------------------------- 1 file changed, 7 insertions(+), 29 deletions(-) (limited to 'gui/ticker.c') diff --git a/gui/ticker.c b/gui/ticker.c index abb55b2..4fc3b7f 100755 --- a/gui/ticker.c +++ b/gui/ticker.c @@ -6,6 +6,7 @@ #pragma warning( disable : 4305 ) #endif +#include #include "fatom.h" /* can we use the normal text save function ?? */ @@ -17,9 +18,9 @@ static void ticker_save(t_gobj *z, t_binbuf *b) t_fatom *x = (t_fatom *)z; - binbuf_addv(b, "ssiis", gensym("#X"),gensym("obj"), + binbuf_addv(b, "ssiiss", gensym("#X"),gensym("obj"), x->x_obj.te_xpix, x->x_obj.te_ypix , - gensym("ticker")); + gensym("ticker"),x->x_text); binbuf_addv(b, ";"); } @@ -29,35 +30,11 @@ static void ticker_bang(t_fatom* x) fatom_float(x,x->x_val); } -static void *ticker_new() +static void *ticker_new(t_symbol* t) { t_fatom *x = (t_fatom *)pd_new(ticker_class); - char buf[256]; - x->x_type = gensym("checkbutton"); - x->x_glist = (t_glist*)NULL; -/* - if (h) x->x_width = h; - else -*/ -/* - if (o) x->x_height = o; - else -*/ - - /* bind to a symbol for ticker callback (later make this based on the - filepath ??) */ - - sprintf(buf,"ticker%x",x); - x->x_sym = gensym(buf); - pd_bind(&x->x_obj.ob_pd, x->x_sym); - -/* pipe startup code to slitk */ - - sys_vgui("proc fatom_cb%x {val} {\n pd [concat ticker%x f $val \\;]\n }\n",x,x); - - outlet_new(&x->x_obj, &s_float); - return (x); + return fatom_new(x,10,0,0,t); } @@ -75,9 +52,10 @@ t_widgetbehavior ticker_widgetbehavior = { void ticker_setup() { ticker_class = class_new(gensym("ticker"), (t_newmethod)ticker_new, 0, - sizeof(t_fatom),0,0); + sizeof(t_fatom),0,A_DEFSYMBOL,0); class_addbang(ticker_class,ticker_bang); fatom_setup_common(ticker_class); + class_addbang(ticker_class, (t_method)ticker_bang); class_setwidget(ticker_class,&ticker_widgetbehavior); } -- cgit v1.2.1