1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
#include <m_pd.h>
#include "g_canvas.h"
#ifdef NT
#pragma warning( disable : 4244 )
#pragma warning( disable : 4305 )
#endif
#include "fatom.h"
/* can we use the normal text save function ?? */
static t_class *ticker_class;
static void ticker_save(t_gobj *z, t_binbuf *b)
{
t_fatom *x = (t_fatom *)z;
binbuf_addv(b, "ssiis", gensym("#X"),gensym("obj"),
x->x_obj.te_xpix, x->x_obj.te_ypix ,
gensym("ticker"));
binbuf_addv(b, ";");
}
static void ticker_bang(t_fatom* x)
{
x->x_val = !x->x_val;
fatom_float(x,x->x_val);
}
static void *ticker_new()
{
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);
}
t_widgetbehavior ticker_widgetbehavior = {
w_getrectfn: fatom_getrect,
w_displacefn: fatom_displace,
w_selectfn: fatom_select,
w_activatefn: fatom_activate,
w_deletefn: fatom_delete,
w_visfn: fatom_vis,
w_savefn: ticker_save,
w_clickfn: NULL,
w_propertiesfn: NULL,
};
void ticker_setup() {
ticker_class = class_new(gensym("ticker"), (t_newmethod)ticker_new, 0,
sizeof(t_fatom),0,0);
class_addbang(ticker_class,ticker_bang);
fatom_setup_common(ticker_class);
class_setwidget(ticker_class,&ticker_widgetbehavior);
}
|
