Added CoreAttrib to Body_Option type

Cédric RICARD
1 parent 3d904527
Showing 1 changed file with 3 additions and 1 deletions Show diff stats
calexium_lib/web/CXM_making_a_web_site.anubis
@@ -1453,6 +1453,7 @@ public type HTML_Meta:
  
  
 public type Body_Option:
+   core_attrs(List(CoreAttrs)),
    background_color   (RGB),
    background_image   (String url),
    background_image   (String url, List(BackgroundOption)).
@@ -4139,9 +4140,10 @@ define Printable_tree
     ) =
   if o is
     {
+      core_attrs(core_attr_list)         then [" " + format_attrs(core_attr_list)], 
       background_color(c)                then [" bgcolor=\"" , (String)html_format(c), "\""],
       background_image(n)                then [" background=", n],
-      background_image(n,o2)              then [" style=\"background: url(",n,")",format(o2),"\""]
+      background_image(n,o2)             then [" style=\"background: url(",n,")",format(o2),"\""]
  
     }.