added fatom text attribute

svn path=/trunk/externals/ggee/; revision=972

2 files changed, 3 insertions, 3 deletions

diff --git a/gui/gcanvas.c b/gui/gcanvas.c
index 656820f..dccba01 100644
--- a/gui/gcanvas.c
+++ b/gui/gcanvas.c
@@ -33,11 +33,11 @@ void gcanvas_drawme(t_gcanvas *x, t_glist *glist, int firsttime)
 {

      if (firsttime) {

 	  sys_vgui(".x%x.c create rectangle \

-%d %d %d %d -tags %xS -fill "BACKGROUNDCOLOR"\n",

+%d %d %d %d -tags %xS -fill %s\n",

 		   glist_getcanvas(glist),

 		   x->x_obj.te_xpix, x->x_obj.te_ypix,

 		   x->x_obj.te_xpix + x->x_width, x->x_obj.te_ypix + x->x_height,

-		   x);

+		   x,x->x_color);

      }     

      else {

 	  sys_vgui(".x%x.c coords %xS \

diff --git a/gui/slider.c b/gui/slider.c
index ecb3bf6..140f7c3 100755
--- a/gui/slider.c
+++ b/gui/slider.c
@@ -29,7 +29,7 @@ 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);
+    return fatom_new(x,max,min,h,&s_);
 }