From 67258c47567dcbd1c8e0a0db81c85966f8b3a051 Mon Sep 17 00:00:00 2001 From: Guenter Geiger Date: Tue, 30 Jul 2002 20:39:13 +0000 Subject: button and sliderh really added svn path=/trunk/externals/ggee/; revision=69 --- gui/sliderh.c | 55 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 55 insertions(+) create mode 100644 gui/sliderh.c (limited to 'gui/sliderh.c') diff --git a/gui/sliderh.c b/gui/sliderh.c new file mode 100644 index 0000000..b83f9c7 --- /dev/null +++ b/gui/sliderh.c @@ -0,0 +1,55 @@ +#include +#include "g_canvas.h" +#include + +#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 *sliderh_class; + +static void sliderh_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("sliderh"),x->x_max,x->x_min,x->x_width); + binbuf_addv(b, ";"); +} + + +static void *sliderh_new(t_floatarg max, t_floatarg min,t_floatarg h) +{ + t_fatom *x = (t_fatom *)pd_new(sliderh_class); + x->x_type = gensym("hslider"); + return fatom_new(x,max,min,h); +} + + +t_widgetbehavior sliderh_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: sliderh_save, + w_clickfn: NULL, + w_propertiesfn: NULL, +}; + + +void sliderh_setup() { + sliderh_class = class_new(gensym("sliderh"), (t_newmethod)sliderh_new, 0, + sizeof(t_fatom),0,A_DEFFLOAT,A_DEFFLOAT,A_DEFFLOAT,0); + + fatom_setup_common(sliderh_class); + class_setwidget(sliderh_class,&sliderh_widgetbehavior); +} -- cgit v1.2.1