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); }