some fixes for easier use

src/construct.jl

 export @construct
 
-
 function make_widget(binding)
     if binding.head != :(=)
         error("@construct syntax error.")
@@ -17,7 +16,7 @@ end
 function map_block(block, symbols)
     lambda = Expr(:(->), Expr(:tuple, symbols...),
                   block)
-    :(map($lambda, $(map(s->:(observe($s)), symbols)...)))
+    :(map($lambda, $(map(s->:(InteractNext.observe($s)), symbols)...)))
 end
 
 function symbols(bindings)

src/svg_helper.jl

 #Provides some routines for easier svg construction, along with some 
 #(hopefully!) sane defaults
 
-export svg_rect, svg_circle, svg_line, svg_polyline, svg_polygon, svg_text, default_height, default_width, default_posy, default_posx, s_black, s_red, s_green, s_blue, stdstyle, stdattr, svgsvg_symb
+export svg_rect, svg_circle, svg_line, svg_polyline, svg_polygon, svg_text, default_height, default_width, default_posy, default_posx, s_black, s_red, s_green, s_blue, stdstyle, stdattr, svgsvg_symb, s_color
 global const default_height = 900
 global const default_width  = 600
 global const default_posy   = 0
@@ -21,6 +21,8 @@ global const stdstyle = Dict(:fill => "rgb$s_black")
 
 global const svgsvg_symb = instanceof(dom"svg:svg"())
 
+s_color(color) = Dict(:fill => "rgb$(Int.(floor.(color)))")
+
 ####################
 
 function svg_rect(width, height, x=0, y=0, style = stdstyle)