From 6f40d0bd05bce901318a24e6c1409a6995a26935 Mon Sep 17 00:00:00 2001 From: Guenter Geiger Date: Tue, 30 Jul 2002 20:58:41 +0000 Subject: destroy for widgets added svn path=/trunk/externals/ggee/; revision=70 --- gui/button.c | 2 +- gui/fatom.h | 4 ++-- gui/slider.pd | 18 +++++++++--------- gui/state.c | 6 +++--- 4 files changed, 15 insertions(+), 15 deletions(-) diff --git a/gui/button.c b/gui/button.c index 32c6f84..53e0ca6 100644 --- a/gui/button.c +++ b/gui/button.c @@ -145,7 +145,7 @@ static void button_erase(t_button* x,t_glist* glist) int n; DEBUG(post("erase");) -// sys_vgui(".x%x.c.s%x delete\n",glist_getcanvas(glist),x); + sys_vgui("destroy .x%x.c.s%x\n",glist_getcanvas(glist),x); sys_vgui(".x%x.c delete %xS\n",glist_getcanvas(glist), x); diff --git a/gui/fatom.h b/gui/fatom.h index fc814d7..50adf92 100644 --- a/gui/fatom.h +++ b/gui/fatom.h @@ -118,8 +118,8 @@ static void create_widget(t_fatom *x, t_glist *glist) -width %d \ -command fatom_cb%x\n",canvas,x, x->x_max-x->x_min+14, - x->x_max, x->x_min, + x->x_max, x->x_width, x); } else if (!strcmp(x->x_type->s_name,"checkbutton")) { @@ -192,7 +192,7 @@ static void fatom_erase(t_fatom* x,t_glist* glist) int n; DEBUG(post("erase");) -// sys_vgui(".x%x.c.s%x delete\n",glist_getcanvas(glist),x); + sys_vgui("destroy .x%x.c.s%x\n",glist_getcanvas(glist),x); sys_vgui(".x%x.c delete %xS\n",glist_getcanvas(glist), x); diff --git a/gui/slider.pd b/gui/slider.pd index 892b372..bd216b0 100755 --- a/gui/slider.pd +++ b/gui/slider.pd @@ -2,13 +2,11 @@ #X obj 14 121 slider 127 0 15; #X floatatom 12 42 0 0 0; #X floatatom 14 319 0 0 0; -#X obj 12 64 metro 200; #X text 139 188 This was instantiated with "slider 200 100"; #X obj 14 85 random 127; #X obj 468 343 state sl; #X msg 468 283 save; #X msg 520 283 1; -#X obj 98 167 slider 200 100 15; #X floatatom 98 296 0 0 0; #X obj 186 252 slider 127 0 40; #X text 184 231 This was instantiated with "slider 127 0 40"; @@ -20,11 +18,13 @@ into the object. The slider takes up to 3 parameters \, the first is the maximum value \, the second is the minimum. The third is the width of the slider (contributed by Dieter . Click on the through to move in 0.01. Middle button jumps.; +#X obj 12 64 metro 2; +#X obj 98 167 slider 200 100 15; #X connect 0 0 2 0; -#X connect 1 0 3 0; -#X connect 3 0 5 0; -#X connect 5 0 0 0; -#X connect 7 0 6 0; -#X connect 8 0 6 0; -#X connect 9 0 10 0; -#X connect 13 0 15 0; +#X connect 1 0 15 0; +#X connect 4 0 0 0; +#X connect 6 0 5 0; +#X connect 7 0 5 0; +#X connect 11 0 13 0; +#X connect 15 0 4 0; +#X connect 16 0 8 0; diff --git a/gui/state.c b/gui/state.c index 44f7aa0..b865587 100755 --- a/gui/state.c +++ b/gui/state.c @@ -208,9 +208,9 @@ void state_load(t_state *x) do { if (a->te_type == T_ATOM || !strcmp(class_getname(a->te_pd),"slider") - || - !strcmp(class_getname(a->te_pd),"ticker")/* || - !strcmp(class_getname(a->te_pd),"vsl") || + || !strcmp(class_getname(a->te_pd),"ticker") + || !strcmp(class_getname(a->te_pd),"sliderh") +/* || !strcmp(class_getname(a->te_pd),"vsl") || !strcmp(class_getname(a->te_pd),"hsl" ) */ ) { if (TATOM(a)->a_type == A_SYMBOL) { -- cgit v1.2.1