[PD-cvs] externals/ggee/gui slider.c,1.9,1.10
Guenter Geiger
ggeiger at users.sourceforge.net
Sun Jul 25 15:45:57 CEST 2004
Update of /cvsroot/pure-data/externals/ggee/gui
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17324
Added Files:
slider.c
Log Message:
readded
--- NEW FILE: slider.c ---
#include <stdio.h>
#include <m_pd.h>
#include "g_canvas.h" /* for widgetbehaviour */
#include "fatom.h"
static t_class *slider_class;
static void slider_save(t_gobj *z, t_binbuf *b)
{
t_fatom *x = (t_fatom *)z;
binbuf_addv(b, "ssiisiii", gensym("#X"),gensym("obj"),
x->x_obj.te_xpix, x->x_obj.te_ypix ,
gensym("slider"),x->x_max,x->x_min,x->x_width);
binbuf_addv(b, ";");
}
static void *slider_new(t_floatarg max, t_floatarg min, t_floatarg h)
{
t_fatom *x = (t_fatom *)pd_new(slider_class);
x->x_type = gensym("vslider");
return fatom_new(x,max,min,h,&s_);
}
t_widgetbehavior slider_widgetbehavior;
void slider_setup() {
slider_class = class_new(gensym("slider"), (t_newmethod)slider_new, 0,
sizeof(t_fatom),0,A_DEFFLOAT,A_DEFFLOAT,A_DEFFLOAT,0);
slider_widgetbehavior.w_getrectfn = fatom_getrect,
slider_widgetbehavior.w_displacefn = fatom_displace,
slider_widgetbehavior.w_selectfn = fatom_select,
slider_widgetbehavior.w_activatefn = fatom_activate,
slider_widgetbehavior.w_deletefn = fatom_delete,
slider_widgetbehavior.w_visfn= fatom_vis,
#if PD_MINOR_VERSION < 37
slider_widgetbehavior.w_savefn = slider_save,
slider_widgetbehavior.w_propertiesfn = NULL,
#endif
slider_widgetbehavior.w_clickfn = NULL,
fatom_setup_common(slider_class);
class_setwidget(slider_class,&slider_widgetbehavior);
#if PD_MINOR_VERSION >= 37
class_setsavefn(slider_class,&slider_save);
#endif
class_setpropertiesfn(slider_class,&fatom_properties);
}
More information about the Pd-cvs
mailing list