[*] BIG CHANGE. Maybe that xlib will become 2.0

Removed all HTML_In_Form, HTML_Off_Form, HTML_Partial_Content type and replaced it by the new type HTML. Update all library according to that change. [-] removed the generic_form.anubis and generic_table.anubis which was obsolete.

[*] BIG CHANGE. Maybe that xlib will become 2.0
Removed all HTML_In_Form, HTML_Off_Form, HTML_Partial_Content type and replaced it by the new type HTML. Update all library according to that change. [-] removed the generic_form.anubis and generic_table.anubis which was obsolete.
David RENÉ
1 parent 8dc27220
Showing 49 changed files with 9506 additions and 4157 deletions Show diff stats
generic/types/stepper.anubis
minimal_web_site.ide
web/controllers_web_site.anubis
web/counter.anubis
web/dojo.anubis
web/dropzone.anubis
web/fonts/awesome.anubis
web/form.anubis
web/form.anubis.bak
web/form.anubis.rej
web/frameworks/adminlte4/sidebar.anubis
web/generic_form.anubis
web/generic_login.anubis
web/generic_table.anubis
web/html_tooltip.anubis
web/jQuery/jq_animate.anubis
web/jQuery/jq_button.anubis
web/jQuery/jq_checkbox.anubis
web/jQuery/jq_datatable.anubis
web/jQuery/jq_dialog.anubis
@@ -27,7 +27,7 @@ public type Step:
     String      name,                     //step name
     Int         index,                    //step number
     (Step_Session stp_session) -> Step_Session          process,
-    (Step_Session stp_session) -> HTML_Partial_Content  view
+    (Step_Session stp_session) -> HTML  view
   )
 .
+
+Microsoft Visual Studio Solution File, Format Version 9.00
+# Visual Studio 2005
+# SharpDevelop 1.0.12.108
+Project("{B6712916-30DE-4a3e-A54C-2A79AC984AEE}") = "minimal_web_site", "minimal_web_site.aproj", "{F2C65267-0D20-4964-A5D8-602BD42C01A4}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{F2C65267-0D20-4964-A5D8-602BD42C01A4}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{F2C65267-0D20-4964-A5D8-602BD42C01A4}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{F2C65267-0D20-4964-A5D8-602BD42C01A4}.Release|Any CPU.Build.0 = Release|Any CPU
+		{F2C65267-0D20-4964-A5D8-602BD42C01A4}.Release|Any CPU.ActiveCfg = Release|Any CPU
+	EndGlobalSection
+EndGlobal
@@ -127,7 +127,7 @@ public type WEB_Page_Renderer:
   web_page_renderer(
     String                                                                              app,          //application
     String                                                                              name,         //renderer name
-    (WEB_Session _session, List(WEB_Plugin), HTML_Partial_Content  _content) -> HTTP_Answer page_layout   //call back for rendering page
+    (WEB_Session _session, List(WEB_Plugin), HTML  _content) -> HTTP_Answer page_layout   //call back for rendering page
   )
 .
@@ -156,7 +156,7 @@ define HTTP_Answer
         pre("Error "+to_String(http_status)),
         pre("Internal message :"+message),
         br,
-        in_form(html_Id(""),text_area(wan(""), init(dump(_session)), 120, 60))
+        textarea(120, 60, text(dump(_session)))
       ])
     )
   )
@@ -183,14 +183,14 @@ public define WEB_Controller_Result
 public define WEB_Controller_Result
   ajax
   (
-    HTML_Partial_Content content
+    HTML content
   )=
   ajax(failure, content, "").
 public define WEB_Controller_Result
   ajax
   (
-    HTML_Partial_Content  content,
+    HTML  content,
     String                additional_script
   )=
   ajax(failure, content, additional_script).
@@ -199,7 +199,7 @@ public define WEB_Controller_Result
   ajax
   (
     WEB_Session           session,        //modified session
-    HTML_Partial_Content  content
+    HTML  content
   )=
   ajax(success(session), content, "").
@@ -207,7 +207,7 @@ public define WEB_Controller_Result
   ajax
   (
     WEB_Session           session,        //modified session
-    HTML_Partial_Content  content,
+    HTML  content,
     String                additional_script    
   )=
   ajax(success(session), content, additional_script).
@@ -246,7 +246,7 @@ public define WEB_Controller_Result
 public define WEB_Controller_Result
   renderer_content(
-    HTML_Partial_Content  content,    
+    HTML  content,    
   )=
   renderer_content(failure, content)
 .
@@ -254,7 +254,7 @@ public define WEB_Controller_Result
 public define WEB_Controller_Result
   renderer_content(
     WEB_Session           session, //modified session if success else failure
-    HTML_Partial_Content  content,    
+    HTML  content,    
   )=
   renderer_content(success(session), content)
 .
@@ -262,7 +262,7 @@ public define WEB_Controller_Result
 public define WEB_Controller_Result
   partial_content
   (
-    HTML_Partial_Content  content,    
+    HTML  content,    
   )=
   http_answer(html_page(
     "",         // title of web site
@@ -273,7 +273,7 @@ public define WEB_Controller_Result
       [],
       // content of page
-      partial(content)
+      content
     ))
   )
 .
@@ -285,7 +285,7 @@ define WEB_Page_Renderer
   web_page_renderer("AWS", "AWS_DEFAULT_PAGE",
     ( WEB_Session           _session,
       List(WEB_Plugin)      _plugins,
-      HTML_Partial_Content  _content
+      HTML                  _content
     ) |->
     with _title = get_page_title(_session),
     html_page
@@ -296,7 +296,7 @@ define WEB_Page_Renderer
       body                      // body of page
       (
         [], //body options empty
-        (HTML_Off_Form)partial(_content)
+        _content
       )
     )
   )
@@ -430,8 +430,8 @@ define WEB_Page_Renderer
   }
 .
-public define JsonValue to_html_ajax_content(Printable_tree        content_HTML, String additional_script).
-public define JsonValue to_html_ajax_content(HTML_Partial_Content  content_HTML, CommonInfo cinfo, String additional_script).
+public define JsonValue to_html_ajax_content(Printable_tree  content_HTML, String additional_script).
+public define JsonValue to_html_ajax_content(HTML            content_HTML, CommonInfo cinfo, String additional_script).
 define String
   get_controller_from_web_arg
@@ -17,7 +17,7 @@ read web/making_a_web_site.anubis
    This is the counter to be inserted into a web page:
-public define HTML_Off_Form
+public define HTML
    web_counter
      (
        String           directory,      // where the counter file will be located
@@ -57,7 +57,7 @@ define List(Word8)
    else l. 
-define HTML_Off_Form
+define HTML
    web_counter
      (
        Int                   n,          // value of counter
@@ -76,7 +76,7 @@ define HTML_Off_Form
-public define HTML_Off_Form
+public define HTML
    web_counter
      (
        String           directory,      // where the counter file will be located
@@ -110,4 +110,4 @@ public define One
      }. 
-   
 \ No newline at end of file
+   
@@ -49,7 +49,7 @@ define String
-public define HTML_Off_Form
+public define HTML
   dojo_button
   	(
   	  String name,
@@ -74,11 +74,11 @@ public type InputDial:
   input_hidden(HTML_Id id, WebArgValue value).
-define List(HTML_Off_Form)
+define List(HTML)
   format_list_data 
   (
     List((List(CoreAttrs), WebArgValue, String))  list_data,
-    List(HTML_Off_Form)         result_list
+    List(HTML)         result_list
   )=
   if list_data is
   {
@@ -88,7 +88,7 @@ define List(HTML_Off_Form)
       format_list_data(t, [literal("<option value=\"" + wa.value + "\">" + label + "</option>") . result_list])
   }.
-public define HTML_Off_Form
+public define HTML
   dojo_combobox
   (
     WebArgName                  the_name,
@@ -106,7 +106,7 @@ public define HTML_Off_Form
     literal("</select>")
     ]).
-define HTML_Off_Form
+define HTML
   _maybe_label
   (
     String    label_text,
@@ -115,7 +115,7 @@ define HTML_Off_Form
   if length(label_text) > 0 then literal("<label for=\"" + html_id.id + "\">" + label_text + "</label>") 
                             else literal("").
-public define HTML_Off_Form
+public define HTML
   dojo_checkbox
   (
     WebArgName    the_name,
@@ -131,7 +131,7 @@ public define HTML_Off_Form
   ]).
-define HTML_Off_Form
+define HTML
   input_in_dialog
   (
     InputDial input_data
@@ -189,7 +189,7 @@ define HTML_Off_Form
   }
 .
-define List(HTML_Off_Form)
+define List(HTML)
   inputs_in_dialog
   (
     List(InputDial) inputs_data
@@ -200,7 +200,7 @@ define List(HTML_Off_Form)
     [h . t] then [input_in_dialog(h) . inputs_in_dialog(t)]
   }.
-public define HTML_Off_Form
+public define HTML
   dijit_dialog
   	(
   	  String          name,
@@ -233,7 +233,7 @@ public define HTML_Off_Form
  ])
 .
-public define HTML_Off_Form
+public define HTML
   dojo_dialog
   	(
   	  String        name,
@@ -330,7 +330,7 @@ public define String
     + "];
 </script>".
-public define HTML_Off_Form
+public define HTML
   dojo_make_grid_script
     (
   	  HTML_Id          html_id,
@@ -346,7 +346,7 @@ public define HTML_Off_Form
  	});
 </script>").
-public define HTML_Off_Form
+public define HTML
   dojo_grid
     (
   	  HTML_Id                html_id,
@@ -358,7 +358,7 @@ public define HTML_Off_Form
          empty, [], empty).
-public define HTML_Off_Form
+public define HTML
   dojo_grid
   (
     HTML_Id            html_id,
@@ -384,11 +384,11 @@ public define HTML_Off_Form
 //<div id=\"gridContainer\"></div>").
-public define HTML_Off_Form
+public define HTML
   dojo_message_box
   (
-    HTML_Off_Form name1,
-    HTML_Off_Form name2,
+    HTML name1,
+    HTML name2,
   )=
   sequence([
     br,
@@ -401,7 +401,7 @@ public define HTML_Off_Form
-public define HTML_Off_Form
+public define HTML
   dojo_tooltip
   (
     String title,
@@ -452,13 +452,13 @@ define String
   }.
-public define HTML_Off_Form
+public define HTML
   dojo_ContentPane
   (
       List(CoreAttrs)       attributes,
       BorderContainerRegion region,
       Bool                  splitter,
-      HTML_Off_Form         content
+      HTML         content
   )  =
   div([ attr("dojoType", "dijit.layout.ContentPane"), 
         attr("region", to_String(region)), 
@@ -478,17 +478,17 @@ public define HTML_In_Form
         attr("splitter", if splitter then "true" else "false") . attributes ],
       content).
-public define HTML_Off_Form
+public define HTML
   dojo_TabContainer
   (
       List(CoreAttrs) attributes,
-      HTML_Off_Form   content
+      HTML   content
   )  =
   div([attr("dojoType", "dijit.layout.TabContainer") . attributes ],
       content).
-public define HTML_Off_Form
+public define HTML
   dojo_BorderContainer
   (
       List(CoreAttrs)       attributes,
@@ -498,7 +498,7 @@ public define HTML_Off_Form
       Bool                  persist,
       Bool                  closable,
       String                container,
-      HTML_Off_Form         content
+      HTML         content
   )  =
   with the_attributes = (List(CoreAttrs)) [attr("dojoType", "dijit.layout.BorderContainer"), attr("dojoAttachPoint", container),
                          attr("design", to_String(design)), attr("liveSplitters", live_splitter), attr("persist", persist), 
@@ -532,7 +532,7 @@ public define HTML_In_Form
                           },
   div(total_attributes, content).    
-public define HTML_Off_Form
+public define HTML
   dojo_tree
   (
       List(CoreAttrs) attributes,
@@ -541,24 +541,24 @@ public define HTML_Off_Form
-public define HTML_Off_Form
+public define HTML
   dojo_Toolbar
   (
     List(CoreAttrs) attributes,
-    HTML_Off_Form         content
+    HTML         content
   )=
   div([attr("dojoType", "dijit.Toolbar") . attributes ],
       content).
-public define HTML_Off_Form
+public define HTML
   dojo_tooltip
   (
     List(CoreAttrs)   attributes,
 //    List(Text_Option) txt_attr,  
     HTML_Id            html_id,
     String            label,
-    HTML_Off_Form     tooltip_content,
+    HTML     tooltip_content,
   )=
   sequence([
     text([id(html_id.id)], label),
@@ -566,7 +566,7 @@ public define HTML_Off_Form
   ]).
-public define HTML_Off_Form
+public define HTML
   dojo_button
   	(
   	  HTML_Id        html_id,
@@ -615,12 +615,12 @@ public define HTML_In_Form
   }).
-public define HTML_Off_Form
+public define HTML
   dojo_declaration
   	(
       String          name,
       List(CoreAttrs) attributes,
-      HTML_Off_Form   content
+      HTML   content
     )=
   div([attr("dojoType", "dijit.Declaration"), attr("widgetClass", name) . attributes ],
       content).
@@ -636,13 +636,13 @@ public define HTML_In_Form
   div([attr("dojoType", "dijit.Declaration"), attr("widgetClass", name) . attributes ],
       content).
-public define HTML_Off_Form
+public define HTML
   dojo_editor
   	(
       List(CoreAttrs)  attributes,
       HTML_Id           html_id,
       WebArgName       input_name,
-      HTML_Off_Form     text,
+      HTML     text,
     )=
     div([id(html_id.id), attr("name", input_name.name), attr("dojoType", "dijit.Editor")
 	  ,attr("extraPlugins", "['|', 'foreColor','hiliteColor',{name:'dojox.editor.plugins.FontChoice', command:'fontName', generic:true},'fontSize','formatBlock','|','createLink','insertImage']")
@@ -690,7 +690,7 @@ public define HTML_In_Form
    // selector_c([attr("dojoType", "dijit.form.ComboBox") . attributes], label, id, name, 1, list_data, selected, non_mandatory).
   selector_c([attr("dojoType", "dijit.form.ComboBox") . attributes], label(label_str, no_help), id, name, 1, list_data, selected).
-public define HTML_Off_Form
+public define HTML
   dojo_toaster
   (
     List(CoreAttrs)            attributes,
@@ -712,7 +712,7 @@ public define HTML_Off_Form
       . attributes ]),
       literal("")).
-public define HTML_Off_Form
+public define HTML
   dojo_progressBar
   (
     List(CoreAttrs)            attributes,
@@ -725,7 +725,7 @@ public define HTML_Off_Form
      div([id(html_id.id), class("progress_bar"), attr("indeterminate", "true"), attr("dojoType", "dijit.ProgressBar") . attributes], literal(""))
    ]).
-public define HTML_Off_Form
+public define HTML
   dojo_progressBar
   (
     List(CoreAttrs)            attributes,
@@ -11,7 +11,7 @@ read system/string.anubis
 read xlib/web/making_a_web_site.anubis
 read xlib/web/jquery.anubis
-public define HTML_Partial_Content
+public define HTML
   dropzone
   (
     String          dropzone_form_name,
@@ -23,7 +23,7 @@ public define HTML_Partial_Content
     List((String,String))     extra_ops,
   ) =
   with dropzone_form_id = to_lower(dropzone_form_name+"_"+generate_random_string(15)),
-  partial_content(
+  head_tags(
     [ js(js_file("xlib/js/dropzone.js")), 
       css(css_file("xlib/css/dropzone.css")),
       js_script("
@@ -42,11 +42,11 @@ public define HTML_Partial_Content
         $('#"+dropzone_form_id+"').dropzone(); "
       )
     ],
-    form(dropzone_form_id, [class("dropzone")], submit_action, extra_ops, empty)
+    form([id(dropzone_form_id), class("dropzone"), action(submit_action, extra_ops)])
   )
 .
-public define HTML_Partial_Content
+public define HTML
   dropzone
   (
     String          dropzone_form_name,
@@ -14,7 +14,7 @@ public type Font_Awesome:
   )
 .
-public define HTML_Off_Form
+public define HTML
   to_HTML
   (
     Font_Awesome    fa,
@@ -27,7 +27,7 @@ public define HTML_Off_Form
-public define HTML_Off_Form
+public define HTML
   to_HTML
   (
     Font_Awesome    fa,
@@ -36,7 +36,7 @@ public define HTML_Off_Form
   to_HTML(fa, attrs, "")
 .
-public define HTML_Off_Form
+public define HTML
   to_HTML
   (
     Font_Awesome    fa,
@@ -46,7 +46,7 @@ public define HTML_Off_Form
 .
-public define HTML_Off_Form
+public define HTML
   to_HTML
   (
     Font_Awesome    fa,
@@ -55,7 +55,7 @@ public define HTML_Off_Form
   to_HTML(fa, [], text)
 .
-public define HTML_Off_Form
+public define HTML
   to_HTML
   (
     Font_Awesome    fa
@@ -63,49 +63,49 @@ public define HTML_Off_Form
   to_HTML(fa, [], "")
 .
-public define HTML_In_Form
-  to_HTML
-  (
-    Font_Awesome    fa,
-    List(CoreAttrs) attrs,
-    String          text
-  )=
-  since fa is awesome(code),
-  i([class("fa fa-"+code), attr("aria-hidden", "true")]+attrs, text)
-.
-
-public define HTML_In_Form
-  to_HTML
-  (
-    Font_Awesome    fa,
-    List(CoreAttrs) attrs
-  )=
-  to_HTML(fa, attrs, "")
-.
-
-public define HTML_In_Form
-  to_HTML
-  (
-    Font_Awesome    fa,
-    CoreAttrs       attr
-  )=
-  to_HTML(fa, [attr], "")
-.
-
-
-public define HTML_In_Form
-  to_HTML
-  (
-    Font_Awesome    fa,
-    String          text
-  )=
-  to_HTML(fa, [], text)
-.
-
-public define HTML_In_Form
-  to_HTML
-  (
-    Font_Awesome    fa
-  )=
-  to_HTML(fa, [], "")
-.
+//public define HTML_In_Form
+//  to_HTML
+//  (
+//    Font_Awesome    fa,
+//    List(CoreAttrs) attrs,
+//    String          text
+//  )=
+//  since fa is awesome(code),
+//  i([class("fa fa-"+code), attr("aria-hidden", "true")]+attrs, text)
+//.
+
+//public define HTML_In_Form
+//  to_HTML
+//  (
+//    Font_Awesome    fa,
+//    List(CoreAttrs) attrs
+//  )=
+//  to_HTML(fa, attrs, "")
+//.
+//
+//public define HTML_In_Form
+//  to_HTML
+//  (
+//    Font_Awesome    fa,
+//    CoreAttrs       attr
+//  )=
+//  to_HTML(fa, [attr], "")
+//.
+//
+//
+//public define HTML_In_Form
+//  to_HTML
+//  (
+//    Font_Awesome    fa,
+//    String          text
+//  )=
+//  to_HTML(fa, [], text)
+//.
+//
+//public define HTML_In_Form
+//  to_HTML
+//  (
+//    Font_Awesome    fa
+//  )=
+//  to_HTML(fa, [], "")
+//.
@@ -49,44 +49,44 @@ public type CXM_Form_Field:
    //--- text input field ----------------------------------------------------------------
   input(
     List(CoreAttrs) options,
-    HTML_Label    label,
-    HTML_Id        id,
-    WebArgName    web_arg_name,   
-    InitialValue   init_value,
-    Width          width, 
-    Mandatory      mandatory
+    HTML_Label      label,
+    HTML_Id         id,
+    WebArgName      web_arg_name,   
+    InitialValue    init_value,
+    Width           width, 
+    Mandatory       mandatory
   ),
   input_readonly(
     List(CoreAttrs) options,
-    HTML_Label    label,         
+    HTML_Label      label,         
     HTML_Id         id,
-    WebArgName     web_arg_name, 
-    InitialValue   init_value,   
-    Width          width
+    WebArgName      web_arg_name, 
+    InitialValue    init_value,   
+    Width           width
   ),
    //--- text area field -----------------------------------------------------------------
   text_area(
-    List(TextAreaOption)  options,
-    HTML_Label            label,
-    HTML_Id               id,
-    WebArgName            web_arg_name,
-    InitialValue          init_value,
-    Width                 width, 
-    Int                   height,
-    Mandatory             mandatory
+    List(CoreAttrs)   options,
+    HTML_Label        label,
+    HTML_Id           id,
+    WebArgName        web_arg_name,
+    InitialValue      init_value,
+    Width             width, 
+    Int               height,
+    Mandatory         mandatory
   ),
    //--- password input field ------------------------------------------------------------
   password_input(
     List(CoreAttrs) options,
-    HTML_Label    label,
+    HTML_Label      label,
     HTML_Id         id,
     WebArgName     web_arg_name,
     InitialValue   init_value,
-    Width          width, 
-    Mandatory      mandatory),
+    Width           width, 
+    Mandatory       mandatory),
    //--- phone field ------------------------------------------------------------
   phone_input(
@@ -162,7 +162,7 @@ public type CXM_Form_Field:
                    HTML_Id         id,
                    WebArgName     web_arg_name, 
                    Int            size,
-                   List((List(CoreAttrs), WebArgValue, String, HTML_Partial_Content))   items,
+                   List((List(CoreAttrs), WebArgValue, String, HTML))   items,
                    Maybe(InitialValue)  selected,
                    Mandatory      mandatory), 
@@ -252,13 +252,13 @@ public type CXM_Form_Field:
                     Width           width,
                     Mandatory       mandatory),
-   raw_in_form      (HTML_In_Form   html),
+   raw_in_form      (HTML   html),
    label_for        ( String          label,
                       HTML_Id          id,
-                      HTML_In_Form    input),
-   div              (List(CoreAttrs), List(HTML_In_Form)    contents),
+                      HTML    input),
+   div              (List(CoreAttrs), List(HTML)    contents),
    div              (List(CoreAttrs), List(CXM_Form_Field)  fields),
-   partial          (HTML_Partial_Content p_content),
+   html             (HTML p_content),
    br,
    hr               (List(CoreAttrs) options),
 //   input_with_help  (CXM_Form_Field   field,
@@ -376,14 +376,6 @@ public define CXM_Form_Field
 public define CXM_Form_Field
   upload(HTML_Label label, HTML_Id id, WebArgName name, Width width, Mandatory mand)
   = upload([], label, id, name, width, mand).
-  
- public define CXM_Form_Field
-  input_with_help (CXM_Form_Field field, String help_text)
-  = input_with_help (field, failure, help_text, 250).
-
- public define CXM_Form_Field
-  input_with_help (CXM_Form_Field field, String help_text, Int width)
-  = input_with_help (field, failure, help_text, width).
 public define CXM_Form_Field
   ip_input
@@ -433,7 +425,7 @@ public define CXM_Form_Field
   div
   ( 
     List(CoreAttrs) attrs, 
-    HTML_In_Form    content
+    HTML   content
   )=
   div(attrs, [content])
 .
@@ -441,7 +433,7 @@ public define CXM_Form_Field
 public define CXM_Form_Field
   div
   ( 
-    HTML_In_Form    content
+    HTML    content
   )=
   div([], [content])
 .  
@@ -449,13 +441,13 @@ public define CXM_Form_Field
 // //////////////////////////////////////////////////////////
-define (List((List(CoreAttrs), WebArgValue, String)), List(HTML_Partial_Content))
+define (List((List(CoreAttrs), WebArgValue, String)), List(HTML))
   construct_selector_hide_show
   (
     String div_id,
-    List((List(CoreAttrs), WebArgValue, String, HTML_Partial_Content)) items,
+    List((List(CoreAttrs), WebArgValue, String, HTML)) items,
     List((List(CoreAttrs), WebArgValue, String)) so_far_1,
-    List(HTML_Partial_Content) so_far_2,
+    List(HTML) so_far_2,
     Int n
   ) =
     if items is
@@ -464,17 +456,17 @@ define (List((List(CoreAttrs), WebArgValue, String)), List(HTML_Partial_Content)
       [h . t] then
         since h is (cores, wav, label, content),
           with linked_element = div_id + n,
-          construct_selector_hide_show(div_id, t, [([data("linked_element", linked_element) . cores], wav, label) . so_far_1], [ partial_content([], div([id(linked_element), style("display: none")], content)) . so_far_2 ], n + 1)
+          construct_selector_hide_show(div_id, t, [([data("linked_element", linked_element) . cores], wav, label) . so_far_1], [ div([id(linked_element), style("display: none")], content) . so_far_2 ], n + 1)
     }.  
-define (List((List(CoreAttrs), WebArgValue, String)), List(HTML_Partial_Content))
+define (List((List(CoreAttrs), WebArgValue, String)), List(HTML))
   construct_selector_hide_show
   (
     String div_id,
-    List((List(CoreAttrs), WebArgValue, String, HTML_Partial_Content)) items
+    List((List(CoreAttrs), WebArgValue, String, HTML)) items
   ) = construct_selector_hide_show(div_id, items, [], [], 0).
-public define HTML_In_Form
+public define HTML
   format_div_CXM_Form_Field
   (
     List(CXM_Form_Field)  field,
@@ -484,7 +476,7 @@ public define HTML_In_Form
   ).
-public define HTML_In_Form
+public define HTML
   format_CXM_Form_Field
   (
     CXM_Form_Field  ff,           //CXM_Form_Field to format
@@ -523,14 +515,11 @@ public define HTML_In_Form
   if ff is 
   {
-    no_field then 
-      empty,
+    no_field    then empty,
-    title(t) then
-     literal("<h3>"+t+"</h3>"),
+    title(t)    then h3(t),
-    message(t) then
-      literal(t),
+    message(t)  then literal(t),
     input(options, _label, id, wan, default, w, mand) then
       text_input([class("in") . options], star(_label, mand), id, wan, init(get_String(lwa, wan.name, default.value)), pixels(w)),
@@ -539,39 +528,38 @@ public define HTML_In_Form
       text_input_ro([class("in") . options], _label, id, name, init, pixels(w)),
     text_area(options, _label, id, wan, default, w, height, mand) then  
-      text_area([input_attrs([class("in")]) . options], star(_label, mand), id, wan, init(get_String(lwa, wan.name, default.value)), pixels(w), height),
+      text_area([class("in") . options], star(_label, mand), id, wan, init(get_String(lwa, wan.name, default.value)), pixels(w), height),
     password_input(options, _label, id, name, init, w, mand) then
       password_input([class("in") . options], star(_label, mand), id, name, init, pixels(w)),
-    phone_input(mb_sms_options, icon_options, options, _label, id, wan, default, phone_type, w, mand) then
+    phone_input(mb_sms_options, icon_options, options, _label, _id, wan, default, phone_type, w, mand) then
       sequence([
         if mb_sms_options is
         {
           failure               then  empty,
-          success(sms_options)  then  image([event(onmouseover, "/icons/16x16/send_sms.png")]+sms_options, "/icons/16x16/sms.png", "")
+          success(sms_options)  then  img([event(onmouseover, "/icons/16x16/send_sms.png")]+sms_options, "/icons/16x16/sms.png")
         },
-        image(icon_options, "/icons/16x16/"+to_Icon(phone_type), ""),
-        text_input([class("in") . options], star(_label, mand), id, wan, init(get_String(lwa, wan.name, default.value)), pixels(w)),
+        img(icon_options, "/icons/16x16/"+to_Icon(phone_type)),
+        input([class("in"), id(_id.id), name(wan.name), init(get_String(lwa, wan.name, default.value)), size(pixels(w)). options]),
       ]),
     email_input(icon_options, options, _label, id, wan, default, w, mand) then
       sequence([
-        image(icon_options, "/icons/16x16/email_edit.png", ""),
+        img(icon_options, "/icons/16x16/email_edit.png"),
         text_input([class("in") . options], star(_label, mand), id, wan, init(get_String(lwa, wan.name, default.value)), pixels(w)),
       ]),
     url_input(icon_options, options, _label, id, wan, default, w, mand) then
       sequence([
-        image(icon_options, "/icons/16x16/url.png", ""),
+        img(icon_options, "/icons/16x16/url.png"),
         text_input([class("in") . options], star(_label, mand), id, wan, init(get_String(lwa, wan.name, default.value)), pixels(w)),
       ]),
-    hidden(id, name, init) then
-       hidden(id, name, init),
+    hidden(h_id, wan, wav) then  hidden(wan.name, wav.value),
     explain(t) then
-      div([class("sub")], literal(t)),
+      div(class("sub"), literal(t)),
     selector(options, _label, id, wan, size, items, selected, mand) then  
       if selected is
@@ -591,8 +579,8 @@ public define HTML_In_Form
       with div_id = generate_random_string(15),
       since construct_selector_hide_show(div_id, items_with_partial) is (items, partial_content_list), 
       sequence([
-          selector_c([class("in"), class("cxm_selector_hide_show"), event(onchange, "select_hide_show('" + div_id + "', this);")], star(_label, mand), id, wan, size, reverse(items), if selected is { failure then init(""), success(default) then init(get_String(lwa, wan.name, default.value)) } ),
-              partial(partial_content(partial_content_list))
+          selector_c([class("in cxm_selector_hide_show"), event(onchange, "select_hide_show('" + div_id + "', this);")], star(_label, mand), id, wan, size, reverse(items), if selected is { failure then init(""), success(default) then init(get_String(lwa, wan.name, default.value)) } ),
+              sequence(partial_content_list)
             ]),
     checkbox(options, _label, id, wan, checked, mand) then
@@ -604,7 +592,7 @@ public define HTML_In_Form
     checkbox_hide_show(options, _label, wan, checked, fields)  then  
       with div_id = generate_random_string(15),
       sequence([
-        check_box([data("show_id", div_id), class("in"), class("cxm_checkbox_hide_show"), event(onclick, "checked_hide_show_element('"+div_id+"', this);")], _label, html_Id("checkbox_"+div_id), wan, get_Bool(lwa, wan.name, checked)),
+        check_box([data("show_id", div_id), class("in cxm_checkbox_hide_show"), event(onclick, "checked_hide_show_element('"+div_id+"', this);")], _label, html_Id("checkbox_"+div_id), wan, get_Bool(lwa, wan.name, checked)),
         div([id(div_id), style("display:"+if checked then "block" else "none")], format_div_CXM_Form_Field(fields, lwa, _class, b_with_label))
       ]),
@@ -644,39 +632,29 @@ public define HTML_In_Form
         ),
       ]),
     one_line_fields(fields) then
-      table([nude, class("form_one_line")],[row([], 
-             map((CXM_Form_Field ff2) |-> cell([],format_CXM_Form_Field(ff2, lwa, _class, b_with_label)),fields))])
+      table(class("form_one_line nude"),[tr( 
+             map((CXM_Form_Field ff2) |-> td(format_CXM_Form_Field(ff2, lwa, _class, b_with_label)),fields))])
     ,
-      
     upload(options, _label, id, name, w, mand) then
       file_upload([class("in") . options], star(_label, mand), id, name, pixels(w)),
-    raw_in_form(html)   then  html,
-//      div([class("in")], html),
-    label_for(label, id, input) then
+    raw_in_form(html)           then  div(class("in"), html),
+    label_for(_label, _id, input) then
       sequence([
-        if id is html_Id(_id) then
-          literal("<label for=\"" + _id + "\">" + label + "</label>"),
+          label(for(_id.id), _label),
           input
       ]),
     div(options, e)     then  div(options, e),
     div(options, fields)then  div(options, format_div_CXM_Form_Field(fields, lwa, _class, b_with_label)),
-    partial(p_content)  then partial(p_content),
+    html(p_content)     then p_content,
     br                  then br,
     hr(opts)            then hr(opts),
-//    input_with_help(input, help_title, help_text, width) then 
-//      sequence([
-//        format_CXM_Form_Field(input, lwa, html_tooltip(force_String(help_title), help_text, width)),
-//      ]),
-
-    fieldset(options, legend, fields) then
-      sequence([
-        literal("<fieldset" + format_attrs(options) + ">"),
-        literal(if length(legend) > 0 then "<legend>" + legend + "</legend>" else ""),
+    fieldset(options, _legend, fields) then
+      fieldset(options, [
+          if _legend = "" then legend(_legend) else empty,
           format_div_CXM_Form_Field(fields, lwa, _class, b_with_label),
-        literal("</fieldset>")
-      ]),
+        ]),
     blank_space then
       div([class("blank_space")], literal("&nbsp")),
@@ -698,31 +676,8 @@ public define HTML_In_Form
     empty  then  literal("")
   }.
- public define HTML_In_Form
-  format_div_CXM_Form_Field
-  (
-    CXM_Form_Field  field,
-    List(Web_arg)   lwa,
-    String          _class,
-    Bool            b_with_label
-  )=
-  if field is empty then 
-    empty   
-  else if field is no_field then 
-    empty 
-  else if field is hidden(id, name, init) then
-    format_CXM_Form_Field(field, lwa, _class, b_with_label)
-  else if field is br then
-    format_CXM_Form_Field(field, lwa, _class, b_with_label)
-  else if field is text_area(options, _label, id, wan, default, w, height, mand) then
-    div([], format_CXM_Form_Field(field, lwa, _class, b_with_label))
-  else
-    div([class(_class)], format_CXM_Form_Field(field, lwa, _class, b_with_label))
-.
-
-
-public define HTML_In_Form
+public define HTML
   format_div_CXM_Form_Field
   (
     List(CXM_Form_Field)  fields,
@@ -739,7 +694,7 @@ public define HTML_In_Form
         empty   
       else if field is no_field then 
         empty 
-      else if field is hidden(id, name, init) then
+      else if field is hidden(_id, name, init) then
         format_CXM_Form_Field(field, lwa, _class, b_with_label)
       else if field is br then
         format_CXM_Form_Field(field, lwa, _class, b_with_label)
@@ -750,8 +705,8 @@ public define HTML_In_Form
     , fields))
 .
-public define HTML_In_Form
-  to_HTML_In_Form
+public define HTML
+  to_HTML
   (
     List(CXM_Form_Field)  fields,
     List(Web_arg)         lwa,    
@@ -761,61 +716,47 @@ public define HTML_In_Form
   format_div_CXM_Form_Field(fields, lwa, _class, b_with_label)
 .
- "form_field aligned"
- 
- public define HTML_In_Form
-  fieldset
-  (
-    CXM_Form_Field  field,
-    List(Web_arg)   lwa,
-    String          _class,
-    Bool            b_with_label
-  )=
-  fieldset([field], lwa, _class, b_with_label)
-.
-
-
-public define HTML_In_Form
-  to_HTML_In_Form
+public define HTML
+  to_HTML
   (
     List(CXM_Form_Field)  fields,
     String                _class,
     Bool                  b_with_label
   )=
-  to_HTML_In_Form(fields, [], _class, b_with_label).
+  to_HTML(fields, [], _class, b_with_label).
-public define HTML_In_Form
-  to_HTML_In_Form
+public define HTML
+  to_HTML
   (
     List(CXM_Form_Field)  fields,
     List(Web_arg)         lwa
   )=
-  to_HTML_In_Form(fields, lwa, "form_field aligned", true)
+  to_HTML(fields, lwa, "form_field aligned", true)
 .
-public define HTML_In_Form
-  to_HTML_In_Form
+public define HTML
+  to_HTML
   (
     CXM_Form_Field        field,
     List(Web_arg)         lwa
   )=
-  to_HTML_In_Form([field], lwa, "form_field aligned", true)
+  to_HTML([field], lwa, "form_field aligned", true)
 .
-public define HTML_In_Form
-  to_HTML_In_Form
+public define HTML
+  to_HTML
   (
     List(CXM_Form_Field)  fields
   )=
-  to_HTML_In_Form(fields, [], "form_field aligned", true)
+  to_HTML(fields, [], "form_field aligned", true)
 .
-public define HTML_Off_Form
+public define HTML
   cxm_form
   (
     HTML_Id               form_Id,
     List(CoreAttrs)       options,
-    WEB_Action_Name       action,
+    WEB_Action_Name       _action,
     List((String,String)) extra_ops,
     List(Web_arg)         lwa,
     List(CXM_Form_Field)  fields,
@@ -823,39 +764,32 @@ public define HTML_Off_Form
     Bool                  b_with_label
   ) =
   form(  
-    form_Id,
-    [class("cxm_form") . options],
-    action,
-    extra_ops,
+    [id(form_Id.id), class("cxm_form"), action(_action, extra_ops) . options],
     format_div_CXM_Form_Field(fields, lwa, _class, b_with_label)
   ).
-public define HTML_Off_Form
-/* older manner to call CXM_form with action as String.
- * this function only exists for compatibility with older projects. Please consider
- * to use the above function with WEB_Action_Name instead of String
-*/
-  cxm_form
-  (
-    HTML_Id               form_Id,
-    List(CoreAttrs)       options,
-    String                action,     //older manner to call action with String
-    List((String,String)) extra_ops,
-    List(Web_arg)         lwa,
-    List(CXM_Form_Field)  fields,
-    String                _class,
-    Bool                  b_with_label
-  ) =
-  
-  form(  
-    form_Id,
-    [class("cxm_form") . options],
-    action_name(action),
-    extra_ops,
-    format_div_CXM_Form_Field(fields, lwa, _class, b_with_label)
-  ).
+//public define HTML
+///* older manner to call CXM_form with action as String.
+// * this function only exists for compatibility with older projects. Please consider
+// * to use the above function with WEB_Action_Name instead of String
+//*/
+//  cxm_form
+//  (
+//    HTML_Id               form_Id,
+//    List(CoreAttrs)       options,
+//    String                _action,     //older manner to call action with String
+//    List((String,String)) extra_ops,
+//    List(Web_arg)         lwa,
+//    List(CXM_Form_Field)  fields,
+//    String                _class,
+//    Bool                  b_with_label
+//  ) =  
+//  form(
+//    [class("cxm_form"), id(form_Id.id), action(_action, extra_ops) . options],
+//    format_div_CXM_Form_Field(fields, lwa, _class, b_with_label)
+//  ).
-public define HTML_Off_Form
+public define HTML
   cxm_form
   (
     String                form_name, 
@@ -869,7 +803,7 @@ public define HTML_Off_Form
   )=
   cxm_form(html_Id(form_name), options, action, extra_ops, lwa, form_fields, _class, b_with_label).
-public define HTML_Off_Form
+public define HTML
   cxm_form
   (
     String                form_name, 
@@ -882,7 +816,7 @@ public define HTML_Off_Form
   cxm_form(form_name, options, action, extra_ops, lwa, form_fields, "form_field aligned", true)
 .
-public define HTML_Off_Form
+public define HTML
   cxm_form
   (
     String                form_name, 
@@ -897,7 +831,7 @@ public define HTML_Off_Form
   cxm_form(html_Id(form_name), options, action_name(action), extra_ops, lwa, form_fields, "form_field aligned", b_with_label)
 .
-public define HTML_Off_Form
+public define HTML
   cxm_form
   (
     String                form_name,
@@ -910,28 +844,28 @@ public define HTML_Off_Form
   cxm_form(html_Id(form_name), options, action_name(action), extra_ops, lwa, form_fields, "form_field aligned", true)
 .
-public define HTML_Off_Form
+public define HTML
   cxm_form
   (
     String              form_id, 
     List(CoreAttrs)     options,
-    List(HTML_In_Form)  fields,
+    List(HTML)  fields,
     String              _class
   ) =
-  cxm_form(html_Id(form_id), options, action_name(""), [], [], map((HTML_In_Form field) |-> raw_in_form(field), fields), _class, true )
+  cxm_form(html_Id(form_id), options, action_name(""), [], [], map((HTML field) |-> raw_in_form(field), fields), _class, true )
 .
-public define HTML_Off_Form
+public define HTML
   cxm_form
   (
     String              form_id, 
-    List(CoreAttrs)     options,
-    List(HTML_In_Form)  fields
+    List(CoreAttrs)      options,
+    List(HTML)  fields
   ) =
-  cxm_form(html_Id(form_id), options, action_name(""), [], [], map((HTML_In_Form field) |-> raw_in_form(field), fields), "form_field aligned", true )
+  cxm_form(html_Id(form_id), options, action_name(""), [], [], map((HTML field) |-> raw_in_form(field), fields), "form_field aligned", true )
 .
-public define HTML_Off_Form
+public define HTML
   cxm_form
   (
     String                form_id,
@@ -943,16 +877,16 @@ public define HTML_Off_Form
   ) =
   cxm_form(html_Id(form_id), options, action_name(""), [], lwa, fields, _class, b_with_label).
-public define HTML_Off_Form
+public define HTML
   cxm_form
   (
     String              form_id,
-    List(HTML_In_Form)  fields,
+    List(HTML)  fields,
     String              _class
   ) =
-  cxm_form(html_Id(form_id), [], action_name(""), [], [], map((HTML_In_Form field) |-> raw_in_form(field), fields), _class, true ).
+  cxm_form(html_Id(form_id), [], action_name(""), [], [], map((HTML field) |-> raw_in_form(field), fields), _class, true ).
-public define HTML_Off_Form
+public define HTML
   cxm_form
   (
     String                form_id, 
@@ -962,7 +896,7 @@ public define HTML_Off_Form
   ) =
   cxm_form(form_id, [], lwa, fields, _class, true).
-public define HTML_Off_Form
+public define HTML
   cxm_form
   (
     String                form_id, 
@@ -971,7 +905,7 @@ public define HTML_Off_Form
   ) =
   cxm_form(form_id, [], lwa, fields, "form_field aligned", true).
-public define HTML_Off_Form
+public define HTML
   cxm_form
   (
     String                form_id, 
@@ -980,7 +914,7 @@ public define HTML_Off_Form
   ) =
   cxm_form(form_id, options, [], fields, "form_field aligned", true).  
-public define HTML_Off_Form
+public define HTML
   cxm_form
   (
     String                form_id, 
@@ -989,7 +923,7 @@ public define HTML_Off_Form
   ) =
   cxm_form(html_Id(form_id), [], action_name(""), [], [], fields, _class, true).
-public define HTML_Off_Form
+public define HTML
   cxm_form
   (
     String                form_id, 
+/*
+ * Created by PyramIDE.
+ * User: フランスのトトロ 
+ * Date: 07/12/2014
+ * Time: 16:49
+ * © David RENÉ
+ */
+
+// *************************************************************************************
+// *** Generic form
+// *************************************************************************************
+read tools/basis.anubis
+read system/string.anubis
+read xlib/web/common.anubis
+read xlib/web/web_arg_utils.anubis
+read xlib/web/making_a_web_site.anubis
+read xlib/web/html_tooltip.anubis
+read xlib/web/widgets.anubis
+read xlib/web/widgets/specialized_elements.anubis
+
+public type Mandatory:         // used to mark fields as mandatory. 
+   mandatory,
+   non_mandatory.
+   
+public type Width:
+   small,           //10  char
+   narrow_small,    //20  char
+   narrow,          //50  char
+   wide,            //70  char
+   custom(Int). 
+   
+public type FormFieldWidth:
+   auto,
+   custom(Int).
+  
+public type CXM_Form_Field:
+  no_field,  // empty field
+   
+   //--- title field ---------------------------------------------------------------------
+  title(
+    String  text
+  ),
+
+   //--- message field -------------------------------------------------------------------
+  message(
+    String text
+  ),
+   
+   //--- text input field ----------------------------------------------------------------
+  input(
+    List(CoreAttrs) options,
+    HTML_Label      label,
+    HTML_Id         id,
+    WebArgName      web_arg_name,   
+    InitialValue    init_value,
+    Width           width, 
+    Mandatory       mandatory
+  ),
+  
+  input_readonly(
+    List(CoreAttrs) options,
+    HTML_Label      label,         
+    HTML_Id         id,
+    WebArgName      web_arg_name, 
+    InitialValue    init_value,   
+    Width           width
+  ),
+   
+   //--- text area field -----------------------------------------------------------------
+  text_area(
+    List(TextAreaOption)  options,
+    HTML_Label            label,
+    HTML_Id               id,
+    WebArgName            web_arg_name,
+    InitialValue          init_value,
+    Width                 width, 
+    Int                   height,
+    Mandatory             mandatory
+  ),
+   
+   //--- password input field ------------------------------------------------------------
+  password_input(
+    List(CoreAttrs) options,
+    HTML_Label      label,
+    HTML_Id         id,
+    WebArgName     web_arg_name,
+    InitialValue   init_value,
+    Width           width, 
+    Mandatory       mandatory),
+  
+   //--- phone field ------------------------------------------------------------
+  phone_input(
+    Maybe(List(CoreAttrs)) sms_icon_options,  //if there is sms available it's success with the options (generally the js call to edit sms)
+    List(CoreAttrs) phone_icon_options,
+    List(CoreAttrs) text_options,
+    HTML_Label      label,
+    HTML_Id         id,
+    WebArgName      web_arg_name,
+    InitialValue    init_value,
+    Phone_Type      phone_type,
+    Width           width, 
+    Mandatory       mandatory),
+
+   //--- email field ------------------------------------------------------------
+  email_input(
+    List(CoreAttrs) icon_options,
+    List(CoreAttrs) options,
+    HTML_Label      label,
+    HTML_Id         id,
+    WebArgName      web_arg_name,
+    InitialValue    init_value,
+    Width           width, 
+    Mandatory       mandatory),
+
+   //--- url field ------------------------------------------------------------
+  url_input(
+    List(CoreAttrs) icon_options,
+    List(CoreAttrs) options,
+    HTML_Label      label,
+    HTML_Id         id,
+    WebArgName      web_arg_name,
+    InitialValue    init_value,
+    Width           width, 
+    Mandatory       mandatory),
+    
+   //--- hidden field ------------------------------------------------------------
+  hidden(
+    HTML_Id         id,
+    WebArgName      web_arg_name,
+    WebArgValue     init_value
+  ),
+   //--- explanation field ---------------------------------------------------------------
+  explain(
+    String text
+  ),
+   
+   //--- selector field ------------------------------------------------------------------
+  selector(
+    List(CoreAttrs) options,
+    HTML_Label    label, 
+    HTML_Id         id,
+    WebArgName     web_arg_name, 
+    Int            size,
+    List(String)   items,
+    Maybe(InitialValue)  selected,
+    Mandatory      mandatory
+  ),
+                   
+  selector_c(
+    List(CoreAttrs)  options,
+    HTML_Label       label,
+    HTML_Id            id,
+    WebArgName        web_arg_name, 
+    Int               size,
+    List((List(CoreAttrs), WebArgValue, String))   items,
+    Maybe(InitialValue) selected,
+    Mandatory           mandatory
+  ),
+   
+   selector_hide_show (List(CoreAttrs) options,
+                   HTML_Label     label, 
+                   HTML_Id         id,
+                   WebArgName     web_arg_name, 
+                   Int            size,
+                   List((List(CoreAttrs), WebArgValue, String, HTML_Partial_Content))   items,
+                   Maybe(InitialValue)  selected,
+                   Mandatory      mandatory), 
+   
+   //--- checkbox field ------------------------------------------------------------------
+   checkbox       (List(CoreAttrs) options,
+                   HTML_Label      label, 
+                   HTML_Id           id, 
+                   WebArgName       web_arg_name, 
+                   Bool             checked,
+                   Mandatory        mandatory),
+                   
+   // the same one, but with the tag on the right of the checkbox
+  checkboxr(
+    List(CoreAttrs) options,
+    HTML_Label      label, 
+    HTML_Id           id, 
+    WebArgName       web_arg_name, 
+    Bool             checked,
+    Mandatory        mandatory
+  ),
+                   
+  //checkbox_hide_show
+  checkbox_hide_show( 
+    List(CoreAttrs)      options,
+    HTML_Label           label,
+    WebArgName            web_arg_name, 
+    Bool                  checked,
+    List(CXM_Form_Field)  fields
+  ),
+            
+   //--- radio-button field --------------------------------------------------------------
+  radio_button(
+    List(CoreAttrs)  options,
+    HTML_Label       label, 
+    HTML_Id            id, 
+    WebArgName        web_arg_name,
+    WebArgValue       web_arg_value,
+    Bool              checked,
+    Mandatory         mandatory
+  ),
+  //radio_button_hide_show
+  radio_button_hide_show(
+    List(CoreAttrs)      options,
+    HTML_Label           label,
+    WebArgName            web_arg_name, 
+    WebArgValue           web_arg_value,
+    Bool                  checked,
+    List(CXM_Form_Field)  fields
+  ),
+   // the same one, but with the tag on the right of the radio_button
+   radio_buttonr  (List(CoreAttrs) options,
+                   HTML_Label    label, 
+                   HTML_Id         id, 
+                   WebArgName     web_arg_name, 
+                   WebArgValue    web_arg_value,
+                   Bool           checked,
+                   Mandatory      mandatory), 
+   
+  radio_button_list(
+    List(CoreAttrs) options,
+                      HTML_Label         label, 
+                      HTML_Id         id,
+                      WebArgName     web_arg_name, 
+                      List((WebArgValue, String))    web_arg_value,
+                      Maybe(InitialValue)  selected,
+                      Mandatory      mandatory,
+                      Bool           is_wide),
+
+//   //--- fields table --------------------------------------------------------------------
+//   fields_table   (String            tag,
+//                   List(FormField)   fields),
+//   
+//   //--- fields line ---------------------------------------------------------------------
+//   fields_line   (String            tag,
+//                   List(FormField)   fields),
+   one_line_fields   (List(CXM_Form_Field)   fields),
+
+//   
+//   //--- preview field -------------------------------------------------------------------
+//   preview        (String         html_text), 
+  
+   //--- upload field -------------------------------------------------------------------
+   upload           (List(CoreAttrs) options,
+                    HTML_Label         label,
+                    HTML_Id          id,
+                    WebArgName      name,
+                    Width           width,
+                    Mandatory       mandatory),
+
+   raw_in_form      (HTML_Off_Form   html),
+   label_for        ( String          label,
+                      HTML_Id          id,
+                      HTML_Off_Form    input),
+   div              (List(CoreAttrs), List(HTML_Off_Form)    contents),
+   div              (List(CoreAttrs), List(CXM_Form_Field)  fields),
+   partial          (HTML_Partial_Content p_content),
+   br,
+   hr               (List(CoreAttrs) options),
+//   input_with_help  (CXM_Form_Field   field,
+//                    Maybe(String)  help_title,
+//                    String         help_text,
+//                    Int          width),
+
+   fieldset         (List(CoreAttrs)      options,
+                    String                legend,
+                    List(CXM_Form_Field)  fields),
+   
+   blank_space,
+   blank_space     (HtmlClass class),
+
+   //--- submit button -------------------------------------------------------------------
+   submit         (List(CoreAttrs)          options,
+                   HtmlClass                class,
+                   WEB_Action_Name          action_name,
+                   Maybe(String)            label, 
+                   String                   button_text, 
+                   List((String,String))    extra_operands),
+   empty.
+
+// //////////////////////////////////////////////   
+// Alternate constructors:
+
+public define CXM_Form_Field
+  fieldset
+  (
+    HTML_Id                fieldSetId,
+    List(CXM_Form_Field)  fields
+  ) =
+  fieldset([id(fieldSetId.id)], "", fields).
+
+public define CXM_Form_Field
+  fieldset
+  (
+    List(CXM_Form_Field)  fields
+  ) =
+  fieldset([], "", fields).
+
+public define CXM_Form_Field
+  fieldset
+  (
+    String                legend,
+    List(CXM_Form_Field)  fields
+  ) =
+  fieldset([], legend, fields).
+  
+public define CXM_Form_Field
+  input(WebArgName n, InitialValue init_value, Width width)
+  =  input([], no_label, html_Id(n.name), n, init_value, width, non_mandatory).
+
+public define CXM_Form_Field
+  input(HTML_Label label, WebArgName n, InitialValue init_value, Width width)
+  =  input([], label, html_Id(n.name), n, init_value, width, non_mandatory).
+
+public define CXM_Form_Field
+  input(HTML_Label label, WebArgName n, InitialValue init_value, Width width, Mandatory mand)
+  =  input([], label, html_Id(n.name), n, init_value, width, mand).
+
+public define CXM_Form_Field
+  input(HTML_Label label, HTML_Id id, WebArgName n, InitialValue init_value, Width width, Mandatory mand)
+  =  input([], label, id, n, init_value, width, mand).
+
+public define CXM_Form_Field
+  input(List(CoreAttrs) options, HTML_Label label, WebArgName n, InitialValue init_value, Width width, Mandatory mand)
+  =  input(options, label, html_Id(n.name), n, init_value, width, mand).
+  
+public define CXM_Form_Field
+  input_readonly(HTML_Label label, WebArgName n, InitialValue init_value, Width width)
+  =  input_readonly([], label, html_Id(n.name), n, init_value, width).
+
+public define CXM_Form_Field
+  password_input(HTML_Label label, WebArgName n, InitialValue init_value, Width width, Mandatory mand)
+  =  password_input([], label, html_Id(n.name), n, init_value, width, mand).
+
+public define CXM_Form_Field
+  checkbox(HTML_Label label, WebArgName n, Bool checked, Mandatory mand)
+  = checkbox([], label, html_Id(n.name), n, checked, mand).
+  
+public define CXM_Form_Field
+  checkboxr(HTML_Label label, WebArgName n, Bool checked, Mandatory mand)
+  = checkboxr([], label, html_Id(n.name), n, checked, mand).
+
+public define CXM_Form_Field
+  radio_button(HTML_Label label, WebArgName n, WebArgValue  value, Bool checked, Mandatory mand)
+  = radio_button([], label, html_Id(n.name), n, value, checked, mand).
+
+public define CXM_Form_Field
+  radio_buttonr(HTML_Label label, WebArgName n, WebArgValue  value, Bool checked, Mandatory mand)
+  = radio_buttonr([], label, html_Id(n.name), n, value, checked, mand).
+
+public define CXM_Form_Field
+  submit(WEB_Action_Name action_name, HtmlClass class, Maybe(String) label, String button_text, List((String,String)) extra_operands)
+  = submit([], class, action_name, label, button_text, extra_operands).
+
+public define CXM_Form_Field
+  submit(WEB_Action_Name action_name, Maybe(String) label, String button_text, List((String,String)) extra_operands)
+  = submit([], htmlClass(""), action_name, label, button_text, extra_operands).
+
+public define CXM_Form_Field
+  submit(WEB_Action_Name action_name, Maybe(String) label, String button_text)
+  = submit([], htmlClass(""), action_name, label, button_text, []).
+  
+public define CXM_Form_Field  //Helper for older project wich use only String as Action name
+  submit(String _action_name, Maybe(String) label, String button_text, List((String,String)) extra_operands)
+  = submit([], htmlClass(""), action_name(_action_name), label, button_text, extra_operands).
+
+
+public define CXM_Form_Field
+  upload(HTML_Label label, HTML_Id id, WebArgName name, Width width)
+  = upload([], label, id, name, width, non_mandatory).
+
+public define CXM_Form_Field
+  upload(HTML_Label label, HTML_Id id, WebArgName name, Width width, Mandatory mand)
+  = upload([], label, id, name, width, mand).
+
+public define CXM_Form_Field
+  ip_input
+  (
+    String      label,
+    HTML_Id      id,
+    WebArgName  wan_prefix,
+    String      ip
+  )=
+  label_for(
+    label,
+    id,
+    ip_input(id, wan_prefix, ip)
+  ).
+
+
+public define CXM_Form_Field
+  partial_ip_input
+  (
+    String        label,
+    HTML_Id        id,
+    WebArgName    wan_prefix,
+    List(String)  ip_fixed_part,
+    String        ip
+  )=
+  label_for(
+    label,
+    id,
+    partial_ip_input(id, wan_prefix, ip_fixed_part, ip)
+  ).
+
+public define CXM_Form_Field
+  hidden
+  (
+    WebArgName    web_arg_name,
+    WebArgValue   value
+  )=
+  hidden(html_Id(""), web_arg_name, value).
+  
+public define CXM_Form_Field
+  hr
+  =
+  hr([])
+.
+
+public define CXM_Form_Field
+  div
+  ( 
+    List(CoreAttrs) attrs, 
+    HTML_Off_Form   content
+  )=
+  div(attrs, [content])
+.
+
+public define CXM_Form_Field
+  div
+  ( 
+    HTML_Off_Form    content
+  )=
+  div([], [content])
+.  
+   //--- explanation field ---------------------  
+  
+// //////////////////////////////////////////////////////////
+
+define (List((List(CoreAttrs), WebArgValue, String)), List(HTML_Partial_Content))
+  construct_selector_hide_show
+  (
+    String div_id,
+    List((List(CoreAttrs), WebArgValue, String, HTML_Partial_Content)) items,
+    List((List(CoreAttrs), WebArgValue, String)) so_far_1,
+    List(HTML_Partial_Content) so_far_2,
+    Int n
+  ) =
+    if items is
+    {
+      [] then (so_far_1, so_far_2),
+      [h . t] then
+        since h is (cores, wav, label, content),
+          with linked_element = div_id + n,
+          construct_selector_hide_show(div_id, t, [([data("linked_element", linked_element) . cores], wav, label) . so_far_1], [ partial_content([], div([id(linked_element), style("display: none")], content)) . so_far_2 ], n + 1)
+    }.  
+    
+define (List((List(CoreAttrs), WebArgValue, String)), List(HTML_Partial_Content))
+  construct_selector_hide_show
+  (
+    String div_id,
+    List((List(CoreAttrs), WebArgValue, String, HTML_Partial_Content)) items
+  ) = construct_selector_hide_show(div_id, items, [], [], 0).
+
+public define HTML_Off_Form
+  format_div_CXM_Form_Field
+  (
+    List(CXM_Form_Field)  field,
+    List(Web_arg)         lwa,
+    String                _class,
+    Bool                  b_with_label
+  ).
+
+
+public define HTML_Off_Form
+  format_CXM_Form_Field
+  (
+    CXM_Form_Field  ff,           //CXM_Form_Field to format
+    List(Web_arg)   lwa,          //web arguments of the session, can be useful for the current drawing
+    String          _class,
+    Bool            b_with_label  //if false, no need to show/generate label
+  ) =
+  with star = (HTML_Label l, Mandatory m) 
+              |->
+                (HTML_Label)
+                if b_with_label then
+                  if m is 
+                  {
+                  mandatory      then
+                    if l is 
+                    {
+                      no_label         then l,
+                      label(str, help) then label(str + "<span>*</span>", help),
+                    }
+                  non_mandatory  then l
+                  }
+                else
+                  no_label
+                ,
+     pixels = (Width width)
+              |->
+                if width is
+                {
+                  small         then 10,
+                  narrow_small  then 20,
+                  narrow        then 50, 
+                  wide          then 70,
+                  custom(n)     then n
+                },
+
+
+  if ff is 
+  {
+    no_field    then empty,
+    
+    title(t)    then h3(t),
+  
+    message(t)  then literal(t),
+ 
+    input(options, _label, id, wan, default, w, mand) then
+      text_input([class("in") . options], star(_label, mand), id, wan, init(get_String(lwa, wan.name, default.value)), pixels(w)),
+
+    input_readonly(options, _label, id, name, init, w) then
+      text_input_ro([class("in") . options], _label, id, name, init, pixels(w)),
+      
+    text_area(options, _label, id, wan, default, w, height, mand) then  
+      text_area([input_attrs([class("in")]) . options], star(_label, mand), id, wan, init(get_String(lwa, wan.name, default.value)), pixels(w), height),
+
+    password_input(options, _label, id, name, init, w, mand) then
+      password_input([class("in") . options], star(_label, mand), id, name, init, pixels(w)),
+
+    phone_input(mb_sms_options, icon_options, options, _label, _id, wan, default, phone_type, w, mand) then
+      sequence([
+        if mb_sms_options is
+        {
+          failure               then  empty,
+          success(sms_options)  then  img([event(onmouseover, "/icons/16x16/send_sms.png")]+sms_options, "/icons/16x16/sms.png")
+        },
+        img(icon_options, "/icons/16x16/"+to_Icon(phone_type)),
+        input([class("in"), id(_id.id), name(wan.name), init(get_String(lwa, wan.name, default.value)), size(pixels(w)). options]),
+      ]),
+
+    email_input(icon_options, options, _label, id, wan, default, w, mand) then
+      sequence([
+        img(icon_options, "/icons/16x16/email_edit.png"),
+        text_input([class("in") . options], star(_label, mand), id, wan, init(get_String(lwa, wan.name, default.value)), pixels(w)),
+      ]),
+
+    url_input(icon_options, options, _label, id, wan, default, w, mand) then
+      sequence([
+        img(icon_options, "/icons/16x16/url.png"),
+        text_input([class("in") . options], star(_label, mand), id, wan, init(get_String(lwa, wan.name, default.value)), pixels(w)),
+      ]),
+      
+    hidden(h_id, name, init) then  hidden(name, init),
+
+    explain(t) then
+      div([class("sub")], literal(t)),
+
+    selector(options, _label, id, wan, size, items, selected, mand) then  
+      if selected is
+      {
+        failure          then selector([class("in") . options], star(_label, mand), id, wan, size, items),
+        success(default) then selector([class("in") . options], star(_label, mand), id, wan, size, items, init(get_String(lwa, wan.name, default.value))),
+      },
+    
+    selector_c(options, _label, id, wan, size, items, selected, mand) then 
+      if selected is
+      {
+        failure          then selector_c([class("in") . options], star(_label, mand), id, wan, size, items),
+        success(default) then selector_c([class("in") . options], star(_label, mand), id, wan, size, items, init(get_String(lwa, wan.name, default.value))),
+      },
+    
+    selector_hide_show(options, _label, id, wan, size, items_with_partial, selected, mand) then   
+      with div_id = generate_random_string(15),
+      since construct_selector_hide_show(div_id, items_with_partial) is (items, partial_content_list), 
+      sequence([
+          selector_c([class("in"), class("cxm_selector_hide_show"), event(onchange, "select_hide_show('" + div_id + "', this);")], star(_label, mand), id, wan, size, reverse(items), if selected is { failure then init(""), success(default) then init(get_String(lwa, wan.name, default.value)) } ),
+              partial(partial_content(partial_content_list))
+            ]),
+    
+    checkbox(options, _label, id, wan, checked, mand) then
+      check_box([class("in") . options], star(_label, mand), id, wan, get_Bool(lwa, wan.name, checked)),
+ 
+    checkboxr(options, _label, id, wan, checked, mand) then
+      check_box_r([class("in") . options], star(_label, mand), id, wan, get_Bool(lwa, wan.name, checked)),
+      
+    checkbox_hide_show(options, _label, wan, checked, fields)  then  
+      with div_id = generate_random_string(15),
+      sequence([
+        check_box([data("show_id", div_id), class("in cxm_checkbox_hide_show"), event(onclick, "checked_hide_show_element('"+div_id+"', this);")], _label, html_Id("checkbox_"+div_id), wan, get_Bool(lwa, wan.name, checked)),
+        div([id(div_id), style("display:"+if checked then "block" else "none")], format_div_CXM_Form_Field(fields, lwa, _class, b_with_label))
+      ]),
+              
+    radio_button(options, _label, id, wan, val, checked, mand) then
+      radio_button([class("in"), event(onclick, "radio_hide_show_group('"+wan.name+"', this);") . options], star(_label, mand), id, wan, val, get_Bool(lwa, wan.name, checked)),
+
+    radio_button_hide_show(options, _label, wan, val, checked, fields)  then  
+      with div_id = generate_random_string(15),
+      sequence([
+        radio_button([data("show_id", div_id), class("in"), class("cxm_radio_hide_show"), event(onclick, "radio_hide_show_group('"+wan.name+"', this);")], _label, html_Id("radio_button_hide_show_"+div_id), wan, val, get_Bool(lwa, wan.name, checked)),
+        div([id(div_id), style("display:"+if checked then "block" else "none")], format_div_CXM_Form_Field(fields, lwa, _class, b_with_label))
+              ]),
+ 
+    radio_buttonr(options, _label, id, wan, val, checked, mand) then
+      radio_button_r([class("in") . options], star(_label, mand), id, wan, val, get_Bool(lwa, wan.name, checked)),
+ 
+    radio_button_list (options, _label, id, wan, items, selected, mand, wide) then
+      with new_selected = 
+        if get_String(lwa, wan.name) is
+        {
+          failure         then selected,
+          success(value)  then success(init(value))
+        },
+        
+      sequence([
+        //literal("<label for=\"" + wan.name + "\">" + label + star(_label, mand) + "</label>"),
+        div( [class("radiolist")], sequence(
+          with i = var((Int)-1),
+               itemclass = if wide then "radiolistitem_wide" else "radiolistitem",
+          map( ((WebArgValue, String) item) |->
+                  i <- *i + 1;
+                  if item is (wav, item_label) then
+                  with _id = if id is html_Id(the_id) then html_Id(the_id + "_radio_" + *i),
+                  div([class(itemclass)], radio_button_r(options, label(item_label), _id, wan, wav, 
+                                                         if new_selected is success(v) then wav.value = v.value else false)),
+               items))
+        ),
+      ]),
+    one_line_fields(fields) then
+      table([nude, class("form_one_line")],[row([], 
+             map((CXM_Form_Field ff2) |-> cell([],format_CXM_Form_Field(ff2, lwa, _class, b_with_label)),fields))])
+    ,
+      
+    upload(options, _label, id, name, w, mand) then
+      file_upload([class("in") . options], star(_label, mand), id, name, pixels(w)),
+     
+    raw_in_form(html)   then  html,
+//      div([class("in")], html),
+    label_for(label, id, input) then
+      sequence([
+        if id is html_Id(_id) then
+          literal("<label for=\"" + _id + "\">" + label + "</label>"),
+          input
+      ]),
+      
+    div(options, e)     then  div(options, e),
+    div(options, fields)then  div(options, format_div_CXM_Form_Field(fields, lwa, _class, b_with_label)),
+    partial(p_content)  then partial(p_content),
+    br                  then br,
+    hr(opts)            then hr(opts),
+//    input_with_help(input, help_title, help_text, width) then 
+//      sequence([
+//        format_CXM_Form_Field(input, lwa, html_tooltip(force_String(help_title), help_text, width)),
+//      ]),
+
+    fieldset(options, legend, fields) then
+      sequence([
+        literal("<fieldset" + format_attrs(options) + ">"),
+        literal(if length(legend) > 0 then "<legend>" + legend + "</legend>" else ""),
+          format_div_CXM_Form_Field(fields, lwa, _class, b_with_label),
+        literal("</fieldset>")
+      ]),
+      
+    blank_space then
+      div([class("blank_space")], literal("&nbsp")),
+          
+    blank_space(htmlClass) then
+      div([class(htmlClass.class)], literal("&nbsp")),
+      
+    submit(attrs, htmlClass, action_name, Maybe(String) mb_label, button_text, extra_operands) then
+      actioner( same, // TODO change this to allow external URL
+                if mb_label is
+                {
+                  failure     then same,
+                  success(n)  then same(n)
+                },
+                submit(attrs + [class(htmlClass.class + " cxm_submit")], button_text),
+                action_name,
+                extra_operands
+              ),
+    empty  then  literal("")
+  }.
+
+    
+public define HTML_Off_Form
+  format_div_CXM_Form_Field
+  (
+    List(CXM_Form_Field)  fields,
+    List(Web_arg)         lwa,
+    String                _class,
+    Bool                  b_with_label
+  )=
+  //println("format_div_CXM_Form_Field");
+  sequence( map((CXM_Form_Field field) 
+    |->
+    //with css_line = if line = 0 then " odd_line" else " even_line",
+    //println("class "+css_line+" line "+line);    
+      if field is empty then
+        empty   
+      else if field is no_field then 
+        empty 
+      else if field is hidden(_id, name, init) then
+        format_CXM_Form_Field(field, lwa, _class, b_with_label)
+      else if field is br then
+        format_CXM_Form_Field(field, lwa, _class, b_with_label)
+      else if field is text_area(options, _label, id, wan, default, w, height, mand) then
+        div([class(_class)], format_CXM_Form_Field(field, lwa, _class, b_with_label))
+      else       
+        div([class(_class)], format_CXM_Form_Field(field, lwa, _class, b_with_label))
+    , fields))
+.
+
+public define HTML_Off_Form
+  to_HTML_Off_Form
+  (
+    List(CXM_Form_Field)  fields,
+    List(Web_arg)         lwa,    
+    String                _class,
+    Bool                  b_with_label
+  )=
+  format_div_CXM_Form_Field(fields, lwa, _class, b_with_label)
+.
+
+public define HTML_Off_Form
+  to_HTML_Off_Form
+  (
+    List(CXM_Form_Field)  fields,
+    String                _class,
+    Bool                  b_with_label
+  )=
+  to_HTML_Off_Form(fields, [], _class, b_with_label).
+
+public define HTML_Off_Form
+  to_HTML_Off_Form
+  (
+    List(CXM_Form_Field)  fields,
+    List(Web_arg)         lwa
+  )=
+  to_HTML_Off_Form(fields, lwa, "form_field aligned", true)
+.
+
+public define HTML_Off_Form
+  to_HTML_Off_Form
+  (
+    CXM_Form_Field        field,
+    List(Web_arg)         lwa
+  )=
+  to_HTML_Off_Form([field], lwa, "form_field aligned", true)
+.
+  
+public define HTML_Off_Form
+  to_HTML_Off_Form
+  (
+    List(CXM_Form_Field)  fields
+  )=
+  to_HTML_Off_Form(fields, [], "form_field aligned", true)
+.
+
+public define HTML_Off_Form
+  cxm_form
+  (
+    HTML_Id               form_Id,
+    List(CoreAttrs)       options,
+    WEB_Action_Name                action,
+    List((String,String)) extra_ops,
+    List(Web_arg)         lwa,
+    List(CXM_Form_Field)  fields,
+    String                _class,
+    Bool                  b_with_label
+  ) =
+  form(  
+    //form_Id,
+    [class("cxm_form"), id(form_Id.id) . options],
+    action,
+    extra_ops,
+    format_div_CXM_Form_Field(fields, lwa, _class, b_with_label)
+  ).
+  
+public define HTML_Off_Form
+/* older manner to call CXM_form with action as String.
+ * this function only exists for compatibility with older projects. Please consider
+ * to use the above function with WEB_Action_Name instead of String
+*/
+  cxm_form
+  (
+    HTML_Id               form_Id,
+    List(CoreAttrs)       options,
+    String                action,     //older manner to call action with String
+    List((String,String)) extra_ops,
+    List(Web_arg)         lwa,
+    List(CXM_Form_Field)  fields,
+    String                _class,
+    Bool                  b_with_label
+  ) =
+  
+  form(  
+    //form_Id,
+    [class("cxm_form"), id(form_Id.id) . options],
+    action_name(action),
+    extra_ops,
+    format_div_CXM_Form_Field(fields, lwa, _class, b_with_label)
+  ).
+      
+public define HTML_Off_Form
+  cxm_form
+  (
+    String                form_name, 
+    List(CoreAttrs)       options,
+    WEB_Action_Name       action, 
+    List((String,String)) extra_ops,
+    List(Web_arg)         lwa,
+    List(CXM_Form_Field)  form_fields,
+    String                _class,
+    Bool                  b_with_label
+  )=
+  cxm_form(html_Id(form_name), options, action, extra_ops, lwa, form_fields, _class, b_with_label).
+
+public define HTML_Off_Form
+  cxm_form
+  (
+    String                form_name, 
+    List(CoreAttrs)       options,
+    WEB_Action_Name       action, 
+    List((String,String)) extra_ops,
+    List(Web_arg)         lwa,
+    List(CXM_Form_Field)  form_fields
+  )=
+  cxm_form(form_name, options, action, extra_ops, lwa, form_fields, "form_field aligned", true)
+.
+  
+public define HTML_Off_Form
+  cxm_form
+  (
+    String                form_name, 
+    List(CoreAttrs)       options,
+    String                action, 
+    List((String,String)) extra_ops,
+    List(Web_arg)         lwa,
+    List(CXM_Form_Field)  form_fields,
+    
+    Bool                  b_with_label
+  )=
+  cxm_form(html_Id(form_name), options, action_name(action), extra_ops, lwa, form_fields, "form_field aligned", b_with_label)
+.
+
+public define HTML_Off_Form
+  cxm_form
+  (
+    String                form_name,
+    List(CoreAttrs)       options,
+    String                action,
+    List((String,String)) extra_ops,
+    List(Web_arg)         lwa,
+    List(CXM_Form_Field)  form_fields
+  )=
+  cxm_form(html_Id(form_name), options, action_name(action), extra_ops, lwa, form_fields, "form_field aligned", true)
+.
+
+public define HTML_Off_Form
+  cxm_form
+  (
+    String              form_id, 
+    List(CoreAttrs)     options,
+    List(HTML_Off_Form)  fields,
+    String              _class
+  ) =
+  cxm_form(html_Id(form_id), options, action_name(""), [], [], map((HTML_Off_Form field) |-> raw_in_form(field), fields), _class, true )
+.
+
+public define HTML_Off_Form
+  cxm_form
+  (
+    String              form_id, 
+    List(CoreAttrs)      options,
+    List(HTML_Off_Form)  fields
+  ) =
+  cxm_form(options, action_name(""), [], [], map((HTML_Off_Form field) |-> raw_in_form(field), fields), "form_field aligned", true )
+.
+
+public define HTML_Off_Form
+  cxm_form
+  (
+    String                form_id,
+    List(CoreAttrs)       options,
+    List(Web_arg)         lwa,
+    List(CXM_Form_Field)  fields,
+    String                _class,
+    Bool                  b_with_label
+  ) =
+  cxm_form(html_Id(form_id), options, action_name(""), [], lwa, fields, _class, b_with_label).
+  
+public define HTML_Off_Form
+  cxm_form
+  (
+    String              form_id,
+    List(HTML_Off_Form)  fields,
+    String              _class
+  ) =
+  cxm_form(html_Id(form_id), [], action_name(""), [], [], map((HTML_Off_Form field) |-> raw_in_form(field), fields), _class, true ).
+
+public define HTML_Off_Form
+  cxm_form
+  (
+    String                form_id, 
+    List(Web_arg)         lwa,
+    List(CXM_Form_Field)  fields,
+    String                _class
+  ) =
+  cxm_form(form_id, [], lwa, fields, _class, true).
+
+public define HTML_Off_Form
+  cxm_form
+  (
+    String                form_id, 
+    List(Web_arg)         lwa,
+    List(CXM_Form_Field)  fields,
+  ) =
+  cxm_form(form_id, [], lwa, fields, "form_field aligned", true).
+
+public define HTML_Off_Form
+  cxm_form
+  (
+    String                form_id, 
+    List(CoreAttrs)       options,
+    List(CXM_Form_Field)  fields,
+  ) =
+  cxm_form(form_id, options, [], fields, "form_field aligned", true).  
+
+public define HTML_Off_Form
+  cxm_form
+  (
+    String                form_id, 
+    List(CXM_Form_Field)  fields,
+    String                _class
+  ) =
+  cxm_form(html_Id(form_id), [], action_name(""), [], [], fields, _class, true).
+  
+public define HTML_Off_Form
+  cxm_form
+  (
+    String                form_id, 
+    List(CXM_Form_Field)  fields
+  ) =
+  cxm_form(html_Id(form_id), [], action_name(""), [], [], fields, "form_field aligned", true).
+diff a/web/form.anubis b/web/form.anubis	(rejected hunks)
+@@ -521,7 +521,6 @@
+   
+     message(t)  then literal(t),
+  
+-    input(options, _label, id, wan, default, w, mand) then
+     input(options, _label, _id, _name, default, w, mand) then
+       sequence([
+         input([class("in"), options], name(_name.name), value(get_String(lwa, wan.name, default.value)), size(pixels(w)) . options], star(_label, mand)),
+/*
+ * Created by PyramIDE.
+ * User: フランスのトトロ aka (David RENÉ) 
+ * Date: 01/05/2026
+ * Time: 15:11
+ * © David RENÉ
+ */
+
+
+transmit xlib/web/widgets/left_menu.anubis
+read xlib/web/making_a_web_site.anubis
+read xlib/web/web_action.anubis
+read xlib/web/load_content.anubis
+
+define List(HTML)
+  make_sidebar 
+  (
+    (String) -> String    _T,         //translator function 
+    List(Left_Menu_Entry) entries,
+    String                selected,
+    List(HTML)   so_far
+  )=
+  if entries is 
+  {
+    []      then reverse(so_far),  //reverse to be in the right direction
+    [h . t] then
+      with entry = 
+        if h is
+        {
+          left_menu_entry(_menu_id, subentry, _classes, _action, _text, _extra) then 
+            with item_class = if subentry then "subitem " else "item ",
+            li(class("nav-item"),
+             p([class(item_class+_menu_id+"_icon"+(if _menu_id=selected then " selected" else "")+ " "+join(" ", _classes))],actioner(same,same, link(_T(_text)),_action,_extra))),
+            
+          left_menu_entry_js(_menu_id, subentry, _classes, _js_to_call, _text) then
+            with item_class = if subentry then "subitem " else "item ",
+             li(class("nav-item"),
+                p([class(item_class+"clickable "+_menu_id+"_icon"+(if _menu_id=selected then " active" else "")+ " "+join(" ", _classes)),
+                 event(onclick, _js_to_call)],text(_T(_text)))),
+                 
+          left_menu_entry_load_content(_menu_id, subentry, _classes, _action, _text, _extra, _target_id, _replace, _overlay) then
+            with item_class = if subentry then "subitem " else "item ",
+              li(class("nav-item"),
+                p([class(item_class+"clickable "+_menu_id+"_icon"+(if _menu_id=selected then " active" else "")+ " "+join(" ", _classes)),
+                   event(onclick, load_content(_target_id, _action, _extra, _replace, _overlay))],text(_T(_text)))),
+                   
+          title(_title_id, subtitle, _classes, _text)  then
+            p([class(if subtitle then "menu_subtitle" else "menu_title"), class((if _title_id=selected then " active" else "")+ " "+join(" ", _classes))], text([],_T(_text)))
+//            p([class("menu_title"), class("item "+_title_id+"_icon"+if _title_id=selected then " selected" else ""+ " "+join(" ", _classes))], text([],_T(_text)))
+        },
+      make_sidebar(_T, t, selected, [ entry . so_far])
+  }.
+
+public define HTML
+  make_sidebar
+  (
+    (String) -> String    _T,         //translator function 
+    Left_Menu             l_menu
+  )=
+  if l_menu is 
+  {
+    no_left_menu                  then empty,
+    left_menu(entries, selected)  then
+      head_tags([css(css_file("/css/left_menu.css"))],
+        make_sidebar(_T, entries, selected, [])
+      )
+  }
+.
+  
+
+
+public define One     set_current_left_menu(WEB_Session s, String v)                    = replace_String(s.fields, "AWS_CURRENT_LEFT_MENU", v).
+public define One     set_current_left_menu(Var(List(Session_Field)) fields, String v)  = replace_String(fields, "AWS_CURRENT_LEFT_MENU", v).
+public define String  get_current_left_menu(WEB_Session s)                              = get_String    (s.fields, "AWS_CURRENT_LEFT_MENU", "").
+
+public define One     set_selected_left_menu_entry(WEB_Session s, String v)                    = replace_String(s.fields, "AWS_SELECTED_LEFT_MENU_ENTRY", v).
+public define One     set_selected_left_menu_entry(Var(List(Session_Field)) fields, String v)  = replace_String(fields, "AWS_SELECTED_LEFT_MENU_ENTRY", v).
+public define String  get_selected_left_menu_entry(WEB_Session s)                              = get_String    (s.fields, "AWS_SELECTED_LEFT_MENU_ENTRY", "").
-
-   
-   
- *Project*                             The Anubis Project
-   
- *Title*               
-   
- *Copyright*                     Copyright (c) Alain Prouté 2005. 
-
-
- *Author*       Alain Prouté
-   
-
-   
-   In this file we rationalize the construction of forms. 
-
-   
-
-read CXM_making_a_web_site.anubis   
-read tools/basis.anubis
-   
-
-public type Mandatory:         // used to mark fields as mandatory. 
-   mandatory,
-   non_mandatory.
-   
-public type Width:
-   small,
-   narrow,
-   wide,
-   custom(Int). 
-   
-public type FormFieldWidth:
-   auto,
-   custom(Int).
-   
-   
-   
-   Sorts of fields that you can put in a form:
-   
-public type FormField:
-   
-   //--- title field ---------------------------------------------------------------------
-   title          (String         text), 
-   title          (Int          text_size, 
-                   String         text), 
-   title_f        (List(Text_Option) -> HTML_In_Form), 
-
-   //--- message field -------------------------------------------------------------------
-   message        (Result(String,String)    msg), 
-   message_f      (Result(List(Text_Option) -> HTML_In_Form,List(Text_Option) -> HTML_In_Form)),
-   
-   //--- text input field ----------------------------------------------------------------
-   input          (WebArgName     web_arg_name,   
-                   String         tag,         
-                   Width          width, 
-                   InitialValue   init_value,
-                   Mandatory      mandatory), 
-   input          (WebArgName     web_arg_name,   
-                   Width          width, 
-                   InitialValue   init_value), 
-   input_f        (WebArgName     web_arg_name,   
-                   List(Text_Option) -> HTML_In_Form tag,         
-                   Width          width, 
-                   InitialValue   init_value,
-                   Mandatory      mandatory), 
-   
-   //--- password input field ------------------------------------------------------------
-   password_input   (WebArgName     web_arg_name,
-                     String         tag,
-                     Mandatory      mandatory), 
-   password_input_f (WebArgName     web_arg_name,
-                     List(Text_Option) -> HTML_In_Form tag,
-                     Mandatory      mandatory), 
-   
-   //--- explanation field ---------------------------------------------------------------
-   explain        (String text), 
-   explain        (String          text,
-                   FormFieldWidth  width), 
-   explain_f      (List(Text_Option) -> HTML_In_Form), 
-   
-   //--- selector field ------------------------------------------------------------------
-   selector       (WebArgName     web_arg_name, 
-                   String         tag, 
-                   List(String)   items,
-                   Maybe(InitialValue)  selected,
-                   Mandatory      mandatory), 
-   selector_f     (WebArgName     web_arg_name, 
-                   List(Text_Option) -> HTML_In_Form, 
-                   List(String)   items,
-                   Maybe(InitialValue)  selected,
-                   Mandatory      mandatory), 
-   selector_c     (WebArgName              web_arg_name, 
-                   String                  tag, 
-                   List((List(CoreAttrs), WebArgValue, String))   items,
-                   Maybe(InitialValue)           selected,
-                   Mandatory               mandatory), 
-   
-   
-   
-   //--- checkbox field ------------------------------------------------------------------
-   checkbox       (WebArgName     web_arg_name, 
-                   String         tag, 
-                   Bool           checked,
-                   Mandatory      mandatory), 
-   // the same one, but with the tag on the right of the checkbox
-   checkboxr      (WebArgName     web_arg_name, 
-                   String         tag, 
-                   Bool           checked,
-                   Mandatory      mandatory), 
-   checkbox_f     (WebArgName     web_arg_name, 
-                   List(Text_Option) -> HTML_In_Form, 
-                   Bool           checked,
-                   Mandatory      mandatory), 
-
-   //--- radio-button field --------------------------------------------------------------
-   radio_button   (WebArgName     web_arg_name, 
-                   WebArgValue    web_arg_value,
-                   String         tag, 
-                   Bool           checked,
-                   Mandatory      mandatory), 
-   // the same one, but with the tag on the right of the radio_button
-   radio_buttonr  (WebArgName     web_arg_name, 
-                   WebArgValue    web_arg_value,
-                   String         tag, 
-                   Bool           checked,
-                   Mandatory      mandatory), 
-   
-   //--- text area field -----------------------------------------------------------------
-   text_area      (WebArgName     web_arg_name,
-                   InitialValue   initial_text), 
-   text_area      (WebArgName     web_arg_name,
-                   String         tag, 
-                   InitialValue   initial_text), 
-   text_area      (WebArgName     web_arg_name,
-                   String         tag, 
-                   InitialValue   initial_text,
-                   Int          width,
-                   Int          height), 
-   
-   //--- fields table --------------------------------------------------------------------
-   fields_table   (String            tag,
-                   List(FormField)   fields),
-   
-   //--- fields line ---------------------------------------------------------------------
-   fields_line   (String            tag,
-                   List(FormField)   fields),
-   fields_line   (List(FormField)   fields),
-   
-   //--- preview field -------------------------------------------------------------------
-   preview        (String         html_text), 
-   
-   //--- submit button -------------------------------------------------------------------
-   submit         (String                  action_name, 
-                   Maybe(String)           label, 
-                   String                  button_text, 
-                   List((String,String))   extra_operands). 
-   
-
-   Convenience functions:
-   
-public define FormField title(List(Text_Option) -> HTML_In_Form f) = title_f(f). 
-public define FormField 
-   message(Result(List(Text_Option) -> HTML_In_Form,List(Text_Option) -> HTML_In_Form) f) = message_f(f). 
-public define FormField input(WebArgName     web_arg_name,   
-                              List(Text_Option) -> HTML_In_Form tag,         
-                              Width          width, 
-                              InitialValue   init_value,
-                              Mandatory      mandatory)   
-   = input_f(web_arg_name,tag,width,init_value,mandatory). 
-public define FormField password_input(WebArgName     web_arg_name,
-                                       List(Text_Option) -> HTML_In_Form tag,
-                                       Mandatory      mandatory) 
-   = password_input_f(web_arg_name,tag,mandatory). 
-public define FormField explain(List(Text_Option) -> HTML_In_Form f) = explain_f(f). 
-public define FormField selector(WebArgName     web_arg_name, 
-                                 List(Text_Option) -> HTML_In_Form f, 
-                                 List(String)   items,
-                                 Maybe(InitialValue)  selected,
-                                 Mandatory      mandatory) 
-   = selector_f(web_arg_name,f,items,selected,mandatory). 
-public define FormField checkbox(WebArgName     web_arg_name, 
-                                 List(Text_Option) -> HTML_In_Form f, 
-                                 Bool           checked,
-                                 Mandatory      mandatory) 
-   = checkbox_f(web_arg_name,f,checked,mandatory). 
-   
-   Make the form itself with:
-   
-public define HTML_Off_Form
-   generic_form
-     (
-       String            form_name, 
-       RGB               background_color,
-       Int             width, 
-       List(FormField)   fields
-     ).
-      
-   
-   
-   --- That's all for the public part ! --------------------------------------------------
-   
-// TO DO update code of CXM generic form
-define HTML_Row(HTML_In_Form)
-   format_form_field
-     (
-       FormField   ff
-     ) =
-   with star = (Mandatory m) |-> (HTML_In_Form)text([color(rgb(255,0,0)),size(12)],
-                    if m is 
-                      {
-                        mandatory      then "*",
-                        non_mandatory  then ""
-                      }),
-   row(
-   if ff is 
-     {
-       title(t) then (List(HTML_Cell(HTML_In_Form)))
-         [
-           cell([columns(3),h_center],text([size(16),bold,color(rgb(0,0,0))],t))
-         ],
-
-       title(s,t) then (List(HTML_Cell(HTML_In_Form)))
-         [
-           cell([columns(3),h_center],text([size(s),bold,color(rgb(0,0,0))],t))
-         ],
-
-       title_f(t) then (List(HTML_Cell(HTML_In_Form)))
-         [
-           cell([columns(3),h_center],t([size(16),bold,color(rgb(0,0,0))]))
-         ],
-    
-       message(r) then (List(HTML_Cell(HTML_In_Form))) if r is 
-         {
-           error(msg) then [cell([columns(3),h_center],
-                                 text([size(10),color(rgb(240,0,0))],msg))] 
-           ok(msg)    then [cell([columns(3),h_center],
-                                 text([size(10),color(rgb(0,150,0))],msg))] 
-         }, 
-   
-       message_f(r) then (List(HTML_Cell(HTML_In_Form))) if r is 
-         {
-           error(msg) then [cell([columns(3),h_center],
-                                 msg([size(10),color(rgb(240,0,0))]))] 
-           ok(msg)    then [cell([columns(3),h_center],
-                                 msg([size(10),color(rgb(0,150,0))]))] 
-         }, 
-   
-       input(wan,tag,w,init,mand) then (List(HTML_Cell(HTML_In_Form)))
-         [
-           cell([right             ], text([size(10)],tag)),
-           cell([width(7)          ], star(mand)),
-           cell([left              ], text_input([], "",html_Id(""), wan, init,if w is 
-                                        {
-                                          small     then 10,
-                                          narrow    then 50, 
-                                          wide      then 70,
-                                          custom(n) then n
-                                        }))
-         ],  
-   
-       input(wan,w,init) then (List(HTML_Cell(HTML_In_Form)))
-         [
-           cell([left,columns(3)   ], text_input([], "", html_Id(""), wan,init,if w is 
-                                        {
-                                          small     then 10,
-                                          narrow    then 30, 
-                                          wide      then 70,
-                                          custom(n) then n
-                                        }))
-         ],  
-   
-       input_f(wan,tag,w,init,mand) then (List(HTML_Cell(HTML_In_Form)))
-         [
-           cell([right             ], tag([size(10)])),
-           cell([width(7)          ], star(mand)),
-           cell([left              ], text_input([], "", html_Id(""),wan,init,if w is 
-                                        {
-                                          small     then 15,
-                                          narrow    then 30, 
-                                          wide      then 70,
-                                          custom(n) then n
-                                        }))
-         ],  
-   
-       password_input(wan,tag,mand) then (List(HTML_Cell(HTML_In_Form)))
-         [
-           cell([right             ], text([size(10)],tag)),
-           cell([width(7)          ], star(mand)),
-           cell([left              ], password_input([], "",html_Id(""), wan, init(""), 30))
-         ],
-   
-       password_input_f(wan,tag,mand) then (List(HTML_Cell(HTML_In_Form)))
-         [
-           cell([right             ], tag([size(10)])),
-           cell([width(7)          ], star(mand)),
-           cell([left              ], password_input([], "",html_Id(""), wan, init(""), 30))
-         ],
-   
-       explain(t) then (List(HTML_Cell(HTML_In_Form)))
-         [
-           cell([columns(3),h_center],
-             table([nude],[row(cell([width(500)],
-                paragraph([/*justified,*/size(10),color(rgb(0,100,0))],literal(t))))]))
-         ],
-   
-       explain(t,w) then (List(HTML_Cell(HTML_In_Form)))
-         [
-           cell([columns(3),h_center],
-             table([nude],[row(cell(
-                if w is 
-                  {
-                    auto      then [],
-                    custom(i) then [width(i)]
-                  },
-                paragraph([/*justified,*/size(10),color(rgb(0,100,0))], literal(t))))]))
-         ],
-   
-       explain_f(t) then (List(HTML_Cell(HTML_In_Form)))
-         [
-           cell([columns(3),h_center],
-             table([nude],[row(cell([width(500)],
-                t([/*justified,*/size(10),color(rgb(0,100,0))])))]))
-         ],
-   
-       selector(wan,tag,items,selected,mand) then (List(HTML_Cell(HTML_In_Form)))
-         [
-           cell([right   ], text([size(10)],tag)),
-           cell([width(7)], star(mand)),
-           cell([left    ], if selected is 
-              {
-                failure      then selector([], "", html_Id(""), wan,1,items)
-                success(sel) then selector([], "", html_Id(""), wan,1,items, sel)
-              })
-         ],
-   
-       selector_f(wan,tag,items,selected,mand) then (List(HTML_Cell(HTML_In_Form)))
-         [
-           cell([right   ], tag([size(10)])),
-           cell([width(7)], star(mand)),
-           cell([left    ], if selected is 
-              {
-                failure      then selector([], "", html_Id(""), wan,1,items)
-                success(sel) then selector([], "", html_Id(""), wan,1,items, sel)
-              })
-         ],
-   
-       selector_c(wan,tag,items,selected,mand) then (List(HTML_Cell(HTML_In_Form)))
-         [
-           cell([right   ], text([size(10)],tag)),
-           cell([width(7)], star(mand)),
-           cell([left    ], if selected is 
-              {
-                failure      then selector_c([], "", html_Id(""), wan,1,items)
-                success(sel) then selector_c([], "", html_Id(""), wan,1,items,sel)
-              })
-         ],
-   
-       checkbox(wan,tag,checked,mand) then (List(HTML_Cell(HTML_In_Form)))
-         [
-           cell([right   ], text([size(10)],tag)),
-           cell([width(7)], star(mand)),
-           cell([left    ], check_box([], "",html_Id(""),wan, wav(wan.name),checked))
-         ],
-   
-       checkboxr(wan,tag,checked,mand) then (List(HTML_Cell(HTML_In_Form)))
-         [
-           cell([right   ], check_box([], "",html_Id(""),wan, wav(wan.name),checked)),
-           cell([width(7)], star(mand)),
-           cell([left    ], text([size(10)],tag))
-         ],
-   
-       checkbox_f(wan,tag,checked,mand) then (List(HTML_Cell(HTML_In_Form)))
-         [
-           cell([right   ], tag([size(10)])),
-           cell([width(7)], star(mand)),
-           cell([left    ], check_box([], "",html_Id(""),wan,wav(wan.name),checked))
-         ],
-   
-       radio_button(wan,wav,tag,checked,mand) then (List(HTML_Cell(HTML_In_Form)))
-         [
-           cell([right   ], text([size(10)],tag)),
-           cell([width(7)], star(mand)),
-           cell([left    ], radio_button([], "", html_Id(""), wan, wav, checked))
-         ],
-   
-       radio_buttonr(wan,wav,tag,checked,mand) then (List(HTML_Cell(HTML_In_Form)))
-         [
-           cell([right   ], radio_button([], "", html_Id(""), wan, wav, checked)),
-           cell([width(7)], star(mand)),
-           cell([left    ], text([size(10)],tag))
-         ],
-   
-       text_area(wan,tx) then (List(HTML_Cell(HTML_In_Form)))
-         [
-           cell([h_center,columns(3)],text_area([wrap_lines],wan,tx,75,10))
-         ],
-   
-       text_area(wan,tag,tx) then (List(HTML_Cell(HTML_In_Form)))
-         [
-           cell([right,top], text([size(10)],tag)),
-           cell([width(7)], text([],"")),
-           cell([h_center],text_area([wrap_lines],wan,tx,75,10))
-         ],
-   
-       text_area(wan,tag,tx,w,h) then (List(HTML_Cell(HTML_In_Form)))
-         [
-           cell([right,top], text([size(10)],tag)),
-           cell([width(7)], text([],"")),
-           cell([h_center],text_area([wrap_lines],wan,tx,w,h))
-         ],
-   
-       fields_table(tag,fields) then (List(HTML_Cell(HTML_In_Form)))
-         [ 
-           cell([right,top], text([size(10)],tag)),
-           cell([width(7)],  text([],"")),
-           cell([left,top],  table([],map((FormField ff2) |-> format_form_field(ff2),fields)))
-         ],
-      
-       fields_line(tag,fields) then (List(HTML_Cell(HTML_In_Form)))
-         [ 
-           cell([right,top], text([size(10)],tag)),
-           cell([width(7)],  text([],"")),
-           cell([left,top],  table([nude],[row([], //border(0,0,3,rgb(0,0,0))
-             map((FormField ff2) |-> cell([top],table([nude],[format_form_field(ff2)])),fields))]))
-         ],
-      
-       fields_line(fields) then (List(HTML_Cell(HTML_In_Form)))
-         [ 
-           cell([left,top,columns(3)],  table([nude],[row([],
-             map((FormField ff2) |-> cell([top],table([nude],[format_form_field(ff2)])),fields))]))
-         ],
-      
-       preview(html_text) then (List(HTML_Cell(HTML_In_Form)))
-         [
-           cell([top,left,columns(3),background_color(rgb(255,255,255))],
-             table([border(0,8,0,rgb(0,0,0))],
-                   [row(cell([left,top,height(200)],literal(html_text)))]))
-         ],
-   
-       submit(action_name,mb_label,button_text,extra_operands) then (List(HTML_Cell(HTML_In_Form)))
-         [
-           cell([columns(3),right],actioner(same,
-                                      if mb_label is 
-                                        {
-                                          failure then same,
-                                          success(n) then same(n)
-                                        }, 
-                                      submit([], button_text),
-                                      action_name,
-                                      extra_operands))
-         ]
-     }). 
-   
-   
-   
-// TO DO update code of CXM generic form
-public define HTML_Off_Form
-   generic_form
-     (
-       String            form_name, 
-       RGB               bg_color,
-       Int             w, 
-       List(FormField)   fields
-     ) =
-   table([border(0,0,5,bg_color),percentage_width(100),
-                         background_color(bg_color)],[row(cell([h_center],
-   form(form_name,[],table([border(0,2,0,bg_color)],
-                        map(format_form_field, fields)))))]).  
-  
-   
@@ -28,7 +28,7 @@ read CXM_generic_form.anubis
-public define HTML_Off_Form
+public define HTML
    login_form
      (
        String     wrong_message,
@@ -62,7 +62,7 @@ public define Maybe($User)
    *** [1] Connection sur site sécurisée
-public define HTML_Off_Form
+public define HTML
    login_form
      (
        String     wrong_message,
-
- *Project*                             The Anubis Project
-   
- *Title*                              Generic table page.
-   
- *Copyright*                     Copyright (c) Alain Prouté 2004. 
-
-
- *Author* Alain Prouté
- *Author* Olivier Duvernois
- *Author* David René (import into xlib)
-   
-   ----------------------------------------------------------------------------------------
-
-
-
-   
-read tools/basis.anubis
-read common.anubis
-read making_a_web_site.anubis
-
-
-   The purpose is to print on a html browser a table from a List($Data) using the function
-   'generic_table()' describe below.
-   
-   Note : the explanations  are only given for HTML_Item and its  components. But they are
-   also available for HTML_Form and HTML_Element and their components.
-   
-   
-   A table may have the following look :
-   
-    +-----+----------+--------+-----------------------+ ...............
-    |     |          |        |     name 3            |
-    | num |  name1   | name2  |-----------+-----------+                 columns_name
-    |     |          |        |  name 31  | name 32   | 
-    +-----+----------+--------+-----------+-----------+ ...............
-    |  1  |  data11  | data12 |   data131 | data132   |                 line 1 with background color a
-    +-----+----------+--------+-----------+-----------+ ...............
-    |  2  |  data21  | data22 |   data231 | data232   |                 line 2 with background color b
-    +-----+----------+--------+-----------+-----------+ ...............
-    |  3  |  data31  | data32 |   data331 | data332   |                 line 3 with background color a
-    +-----+----------+--------+-----------+-----------+ ...............
-     
-    |  n  |  datan1  | datan2 |   datan31 | datan32   |                 line n with background color ?
-    +-----+----------+--------+-----------+-----------+ ...............
-    |total|  total1  |        |           |  total32  |                  total line
-    +-----+----------+--------+-----------+-----------+ ...............
-
-   For the total-line,  assuming that datax1 to dataxn and datax32  to datan32 are numbers
-   (Int, Float or Maybe(Float)).
-   
-   
-   The columns name are just a List(Item_Row). 
-   
-   The column 'num' is  in the case you want to enumerate your  data. The existence of this
-   column depends on the line function.
-   
-   Lines are given by the function :  (RGB color,Int num,$Data d) -> Item_Row 
-   
-      where : - (RGB)color is the color  of the background of  the row (the 'a  color' or 'b
-                 color');
-              - (Int)num the number of the data (to enumerate). 
-   
-   So, this function must be written something like :
-   
-      (RGB color, Int num,$Data d) |->
-         row([background_color(color)],         // and of course possibly other row-options
-             [
-              cell([], (Int -> $HTML)(num) )
-              .  ($Data -> List(Cell))d         // how data is printed in cells
-             ]).
-   
-   But, for the above convenient function with no enumeration, you can only write : 
-   
-      (RGB color, $Data d) |->
-         row([background_color(color)],   // and of course possibly other row-options
-             ($Data -> List(Cell))d         // how data is printed in cells
-             ).
-   
-
-   If you want to sum by column your data, use the following type :
-
-public type Total_Line($Data,$Upplet,$Row):
-   no_total,
-   total
-     (  
-       ($Upplet,$Data) -> $Upplet       sum_functions,
-       $Upplet -> $Row               print_total_line,
-       $Upplet                          initial_value
-     ).
-   
-   $Row is for HTML_Row($HTML).
-   $Upplet represents the components of $Data that will be sum. 
-   
-   Example :
-     with the above sheme table, $Data is something like :
-        type $Data
-          data
-           (
-             Data1  d1,
-             Data2  d2
-             Data3  d3
-           ).
-         and type Data3:
-              data3
-               (
-                Data31  d31,
-                Data32  d32
-               ).
-   
-        So $Upplet will be (Data1,Data32) : sums are wanted for those 2 datum
-
-        The function ($Upplet,$Data) -> $Upplet will be written like :
-           ($Upplet u,$Data d) ->  if u is (u1,u2) then (u1+d1(d), u2+d32(d3(d))) 
-            
-              (if of course (Data1 + Data1) and (Data32 + Data32) are defined).
-   
-   
-   
-   - Several columns - 
-   -------------------
-   
-   If you  want to print your  data on sevaral  columns (i.e. considering the  above table
-   scheme as a column), you must specify the number of columns. You will obtain :
-
-     Here is a List($Data) : l = [a,b,c,d,e,f,g,h,i,j,k,l,m]; 
-                     and f : (RGB,Int,$Data) -> Item_Row
-     You want to print this list on 3 columns.
-     The result will be : 
-   
-   
-           +-----------+-----------+-----------+
-           | col.names | col.names | col.names |
-           +-----------+-----------+-----------+
-           |    f(a)   |    f(f)   |    f(k)   |
-           +-----------+-----------+-----------+
-           |    f(b)   |    f(g)   |    f(l)   |
-           +-----------+-----------+-----------+         Each column is a table as defined
-           |    f(c)   |    f(h)   |    f(m)   |         above.
-           +-----------+-----------+-----------+
-           |    f(d)   |    f(i)   |           |
-           +-----------+-----------+-----------+
-           |    f(e)   |    f(j)   |           |
-           +-----------+-----------+-----------+
-
-   
-    If several columns are required, it's also asked for spaces between two colums. 
-   
-    So use the following type :
-   
-public type HowManyColumns:
-   _1,
-   several   (Int   col_nb,
-              Int   spacer).
-   
-   
-   
-   
-   - Now the Generic table definition -
-   ------------------------------------
-
-   Here is the most customizable generic table. Below, they are some convenience functions.
-   
-public define HTML_Off_Form 
-   generic_table
-     (
-       List($Data)                                                data,
-       List(Table_Option)                                          lto,
-       List(HTML_Row(HTML_Off_Form))                      columns_name,
-       HowManyColumns                                number_of_columns,        
-       (RGB,Int,$Data) -> HTML_Row(HTML_Off_Form)        line_format,
-       RGB                                                     a_color,
-       RGB                                                     b_color,
-       Total_Line($Data,$Upplet,HTML_Row(HTML_Off_Form))    total_line
-     ).
-   
-public define HTML_In_Form 
-   generic_table
-     (
-       List($Data)                                                data,
-       List(Table_Option)                                          lto,
-       List(HTML_Row(HTML_In_Form))                       columns_name,
-       HowManyColumns                                number_of_columns,        
-       (RGB,Int,$Data) -> HTML_Row(HTML_In_Form)         line_format,
-       RGB                                                     a_color,
-       RGB                                                     b_color,
-       Total_Line($Data,$Upplet,HTML_Row(HTML_In_Form))     total_line
-     ).
-   
-   
-  
-   Note : 
-   List(Table_Option)  :  if  you  choose  'nude' (i.e.  border(0,0,0)),  don't  forget  a
-   horizontal spacer between the cells contain  in the 'line_format' row. If you don't put
-   any, each data will be closer to the next one.
-
-   
-   
-   - Convenience functions -
-   -------------------------
-   
-   1/ Table without multicolumns, enumeration and total-line: 
-   
-public define HTML_Off_Form
-   generic_table
-     (
-       List($Data)                                         data,
-       List(Table_Option)                                   lto,
-       List(HTML_Row(HTML_Off_Form))               columns_name,
-       (RGB,$Data) -> HTML_Row(HTML_Off_Form)       line_format,
-       RGB                                              a_color,
-       RGB                                              b_color
-     ).
-   
-public define HTML_In_Form
-   generic_table
-     (
-       List($Data)                                         data,
-       List(Table_Option)                                   lto,
-       List(HTML_Row(HTML_In_Form))                columns_name,
-       (RGB,$Data) -> HTML_Row(HTML_In_Form)        line_format,
-       RGB                                              a_color,
-       RGB                                              b_color
-     ).
-   
-   
-   
-   2/ Table with total-line and without multicolumns, enumeration.
-
-
-public define HTML_Off_Form
-   generic_table
-     (
-       List($Data)                                                 data,
-       List(Table_Option)                                           lto,
-       List(HTML_Row(HTML_Off_Form))                       columns_name,
-       (RGB,$Data) -> HTML_Row(HTML_Off_Form)               line_format,
-       RGB                                                      a_color,
-       RGB                                                      b_color,
-       Total_Line($Data,$Upplet,HTML_Row(HTML_Off_Form))     total_line
-     ).
-
-public define HTML_In_Form
-   generic_table
-     (
-       List($Data)                                                data,
-       List(Table_Option)                                           lto,
-       List(HTML_Row(HTML_In_Form))                        columns_name,
-       (RGB,$Data) -> HTML_Row(HTML_In_Form)                line_format,
-       RGB                                                      a_color,
-       RGB                                                      b_color,
-       Total_Line($Data,$Upplet,HTML_Row(HTML_In_Form))      total_line
-     ).
-
-
-   3/ Table with multicolumns, enumeration, but without total
-
-public define HTML_Off_Form
-   generic_table
-     (
-       List($Data)                                                 data,
-       List(Table_Option)                                           lto,
-       List(HTML_Row(HTML_Off_Form))                       columns_name,
-       HowManyColumns                                 number_of_columns,        
-       (RGB,Int,$Data) -> HTML_Row(HTML_Off_Form)         line_format,
-       RGB                                                      a_color,
-       RGB                                                      b_color
-     ).
-
-public define HTML_In_Form
-   generic_table
-     (
-       List($Data)                                                 data,
-       List(Table_Option)                                           lto,
-       List(HTML_Row(HTML_In_Form))                        columns_name,
-       HowManyColumns                                 number_of_columns,        
-       (RGB,Int,$Data) -> HTML_Row(HTML_In_Form)          line_format,
-       RGB                                                      a_color,
-       RGB                                                      b_color
-     ).
-
-   
-   
-   4/ Table with multicolumns and without enumeration & total
-
-public define HTML_Off_Form
-   generic_table
-     (
-       List($Data)                                                 data,
-       List(Table_Option)                                           lto,
-       List(HTML_Row(HTML_Off_Form))                       columns_name,
-       HowManyColumns                                 number_of_columns,        
-       (RGB,$Data) -> HTML_Row(HTML_Off_Form)               line_format,
-       RGB                                                      a_color,
-       RGB                                                      b_color
-     ).
-
-public define HTML_In_Form
-   generic_table
-     (
-       List($Data)                                                data,
-       List(Table_Option)                                          lto,
-       List(HTML_Row(HTML_In_Form))                       columns_name,
-       HowManyColumns                                number_of_columns,        
-       (RGB,$Data) -> HTML_Row(HTML_In_Form)               line_format,
-       RGB                                                     a_color,
-       RGB                                                     b_color
-     ).
-
-   
- --- That's all for public part. -------------------------------------------------------------------------
-
-   
-   When the  datum $Data must be  presented on several  columns, the initial list  must be
-   re-composed : sot the type Print_Table.
-   
-type Print_Table($Data):
-   print_table
-     (
-       $Data    data,
-       Int     num
-     ).
-
-
-   *** Transform List($Data) into List(Print_Table($Data))
-   
-   
-define (List(Print_Table($Data)),List($Data))
-   get_n_elements
-     (
-       List($Data)                    l,
-       List(Print_Table($Data))  result,
-       Int                          n,
-       Int                         ct,         // counter
-       Int                        num
-     ) =
-   if l is
-    {
-      []       then (reverse(result),[]),
-      [h . t]  then
-        if ct = n
-          then (reverse([print_table(h,num+1) . result]),t)
-          else get_n_elements(t,[print_table(h,num+1) . result],n,ct+1,num+1)
-    }.
-
-   
-define List(List(Print_Table($Data)))
-   short_lists
-     (
-       List($Data)     l,
-       Int          nb,         // number of element of short list
-       Int          ct          // counter for numbering data (initialized at 0)
-     ) =
-   if get_n_elements(l,[],nb,1,ct) is (result,unused)
-     then if unused is 
-           {
-             []       then [result],
-             [_ . _]  then [result . short_lists(unused,nb,ct+nb)]
-           }.
-   
-   
-   - Generic row -
-   ---------------   
-
-define (List(HTML_Row($HTML)),$Upplet)   
-   generic_rows
-     (
-       List(Print_Table($Data))                          lpt,
-       (RGB,Int,$Data) -> HTML_Row($HTML)      line_format,
-       RGB                                           a_color,
-       RGB                                           b_color,
-       ($Upplet,$Data) -> $Upplet                     do_sum,
-       List(HTML_Row($HTML))                            rows,
-       $Upplet                                           sum
-     ) =
-   if lpt is
-     {
-       []       then (reverse(rows),sum),
-       [h . t]  then 
-          generic_rows(t,line_format,b_color,a_color,do_sum,
-                      [line_format(a_color,num(h),data(h)) . rows],do_sum(sum,data(h)))
-     }.  
-   
-   
-   
-   - HTML_In_Form -
-   ----------------
-
-define List(HTML_Cell(HTML_In_Form))
-   generic_cells
-     (
-       List(List(Print_Table($Data)))                  print_data,
-       List(Table_Option)                                     lto,
-       List(HTML_Row(HTML_In_Form))                         names,
-       (RGB,Int,$Data) -> HTML_Row(HTML_In_Form)    line_format,
-       RGB                                                a_color,
-       RGB                                                b_color,
-       ($Upplet,$Data) -> $Upplet                          do_sum,
-       $Upplet -> HTML_Row(HTML_In_Form)               total_line,
-       $Upplet                                              value,
-       Int                                               spacer
-     ) =
-   if print_data is
-     {
-       []      then (List(HTML_Cell(HTML_In_Form))) [],
-       [h . t] then 
-         if generic_rows(h,line_format,a_color,b_color,do_sum,(List(HTML_Row(HTML_In_Form)))[],value) is
-            (rows,new_value) then 
-         if t is []
-           then [cell([top],table(lto,names+rows+[total_line(new_value)]))]
-           else [
-                  cell([top],table(lto,append(names,rows)))
-                 . if spacer = 0
-                     then generic_cells
-                            (t,lto,names,line_format,a_color,b_color,do_sum,total_line,new_value,spacer)
-                     else [cell([width(spacer)],text([],""))
-                         . generic_cells
-                          (t,lto,names,line_format,a_color,b_color,do_sum,total_line,new_value,spacer)]
-                ]
-     }.
-
-//public define Int           
-//  Int x (mod Int y)
-//  = 
-//  if x / y is 
-//  {
-//    failure          then 0,
-//    success(result)  then 
-//      if result is (q, r) then r
-//  }.
-//  
-
-   
-public define HTML_In_Form
-   generic_table
-     (
-       List($Data)                                                 l,
-       List(Table_Option)                                        lto,
-       List(HTML_Row(HTML_In_Form))                            names,
-       HowManyColumns                                         hm_col,
-       (RGB,Int,$Data) -> HTML_Row(HTML_In_Form)       line_format,
-       RGB                                                   a_color,
-       RGB                                                   b_color,
-       Total_Line($Data,$Upplet,HTML_Row(HTML_In_Form))   total_line
-     ) =
-   table([],
-    if l is []
-     then []
-     else 
-      with nbl = length(l),
-      [
-       row([],
-         if total_line is
-           {
-            no_total              then
-              with col_nb = if hm_col is 
-                              {
-                                _1          then 1,
-                                several(n,_) then n
-                              },
-              with spacer = if hm_col is 
-                              {
-                                _1           then 0,
-                                several(n,sp) then sp
-                              },
-              generic_cells
-                (short_lists(l,nbl\col_nb + if (nbl (mod col_nb)) > 0 then 1 else 0,0),
-                 lto,names,line_format,a_color,b_color,
-                 (One u,$Data d) |-> unique,(One _) |-> row([],[]),unique,spacer),
-            total(sum_fct,total_line,init) then 
-              with col_nb = if hm_col is 
-                              {
-                                _1          then 1,
-                                several(n,_) then n
-                              },
-              with spacer = if hm_col is 
-                              {
-                                _1           then 0,
-                                several(n,sp) then sp
-                              },
-              generic_cells
-                (
-                 short_lists(l,nbl\col_nb + if (nbl (mod col_nb)) > 0 then 1 else 0,0),
-                 lto,names,line_format,a_color,b_color,
-                 sum_fct,total_line,init,spacer
-                )
-            })
-      ]).
-
-   
-   - HTML_Off_Form -
-   ----------------
-
-define List(HTML_Cell(HTML_Off_Form))
-   generic_cells
-     (
-       List(List(Print_Table($Data)))                   print_data,
-       List(Table_Option)                                      lto,
-       List(HTML_Row(HTML_Off_Form))                         names,
-       (RGB,Int,$Data) -> HTML_Row(HTML_Off_Form)    line_format,
-       RGB                                                 a_color,
-       RGB                                                 b_color,
-       ($Upplet,$Data) -> $Upplet                           do_sum,
-       $Upplet -> HTML_Row(HTML_Off_Form)               total_line,
-       $Upplet                                               value,
-       Int                                                spacer
-     ) =
-   if print_data is
-     {
-       []      then (List(HTML_Cell(HTML_Off_Form))) [],
-       [h . t] then 
-         if generic_rows(h,line_format,a_color,b_color,do_sum,(List(HTML_Row(HTML_Off_Form)))[],value) is
-            (rows,new_value) then 
-         if t is []
-           then [cell([top],table(lto,(names+rows+[total_line(new_value)])))]
-           else [
-                  cell([top],table(lto,append(names,rows)))
-                  . if spacer =0
-                     then generic_cells
-                            (t,lto,names,line_format,a_color,b_color,do_sum,total_line,new_value,spacer)
-                     else [cell([width(spacer)],text([],""))
-                         . generic_cells
-                             (t,lto,names,line_format,a_color,b_color,do_sum,total_line,new_value,spacer)]
-                ]
-     }.
-   
-public define HTML_Off_Form
-   generic_table
-     (
-       List($Data)                                                  l,
-       List(Table_Option)                                         lto,
-       List(HTML_Row(HTML_Off_Form))                            names,
-       HowManyColumns                                          hm_col,
-       (RGB,Int,$Data) -> HTML_Row(HTML_Off_Form)       line_format,
-       RGB                                                    a_color,
-       RGB                                                    b_color,
-       Total_Line($Data,$Upplet,HTML_Row(HTML_Off_Form))   total_line
-     ) =
-   table([],
-      with nbl = length(l),
-      [
-       row([],
-         if total_line is
-           {
-            no_total              then
-              with col_nb = if hm_col is 
-                              {
-                                _1          then 1,
-                                several(n,_) then n
-                              },
-              with spacer = if hm_col is 
-                              {
-                                _1           then 0,
-                                several(n,sp) then sp
-                              },
-              generic_cells
-                (
-                 short_lists(l,nbl\col_nb + if (nbl (mod col_nb)) > 0 then 1 else 0,0),
-                 lto,names,line_format,a_color,b_color,
-                 (One u,$Data d) |-> unique,(One _) |-> row([],[]),unique,spacer
-                ),
-            total(sum_fct,total_line,init) then 
-              with col_nb = if hm_col is 
-                              {
-                                _1          then 1,
-                                several(n,_) then n
-                              },
-              with spacer = if hm_col is 
-                              {
-                                _1           then 0,
-                                several(n,sp) then sp
-                              },
-              generic_cells
-                (
-                 short_lists(l,nbl\col_nb + if (nbl (mod col_nb)) > 0 then 1 else 0,0),
-                 lto,names,line_format,a_color,b_color,
-                 sum_fct,total_line,init,spacer
-                )
-            })
-      ]).
-
-   
-   
- - Convenience functions :   
-   
-public define HTML_Off_Form
-   generic_table
-     (
-       List($Data)                                      data,
-       List(Table_Option)                                lto,
-       List(HTML_Row(HTML_Off_Form))            columns_name,
-       (RGB,$Data) -> HTML_Row(HTML_Off_Form)    line_format,
-       RGB                                           a_color,
-       RGB                                           b_color
-     ) =
-   generic_table
-      (
-       (List($Data))                                         data,
-       (List(Table_Option))                                    lto,
-       (List(HTML_Row(HTML_Off_Form)))                columns_name,
-       (HowManyColumns)                                        _1,
-       ((RGB,Int,$Data) -> HTML_Row(HTML_Off_Form))   (RGB r,Int n,$Data d) |->  line_format(r,d),
-       (RGB)                                               a_color,
-       (RGB)                                               b_color,
-       (Total_Line($Data,$Data,HTML_Row(HTML_Off_Form)))  no_total
-      ).
-   
-public define HTML_In_Form
-   generic_table
-     (
-       List($Data)                                      data,
-       List(Table_Option)                                lto,
-       List(HTML_Row(HTML_In_Form))            columns_name,
-       (RGB,$Data) -> HTML_Row(HTML_In_Form)    line_format,
-       RGB                                           a_color,
-       RGB                                           b_color
-     ) =
-   generic_table
-      (
-       (List($Data))                                         data,
-       (List(Table_Option))                                    lto,
-       (List(HTML_Row(HTML_In_Form)))                columns_name,
-       (HowManyColumns)                                        _1,
-       ((RGB,Int,$Data) -> HTML_Row(HTML_In_Form))   (RGB r,Int n,$Data d) |->  line_format(r,d),
-       (RGB)                                               a_color,
-       (RGB)                                               b_color,
-       (Total_Line($Data,$Data,HTML_Row(HTML_In_Form)))  no_total
-      ).
-   
-   
-   2/ Table with total-line and without multicolumns, enumeration.
-
-
-public define HTML_Off_Form
-   generic_table
-     (
-       List($Data)                                                 data,
-       List(Table_Option)                                            lto,
-       List(HTML_Row(HTML_Off_Form))                       columns_name,
-       (RGB,$Data) -> HTML_Row(HTML_Off_Form)               line_format,
-       RGB                                                       a_color,
-       RGB                                                       b_color,
-       Total_Line($Data,$Upplet,HTML_Row(HTML_Off_Form))     total_line
-     ) =
-   generic_table
-      (
-       (List($Data))                                                 data,
-       (List(Table_Option))                                           lto,
-       (List(HTML_Row(HTML_Off_Form)))                      columns_name,
-       (HowManyColumns)                                               _1,
-       ((RGB,Int,$Data) -> HTML_Row(HTML_Off_Form))     (RGB r,Int n,$Data d) |->  line_format(r,d),
-       (RGB)                                                       a_color,
-       (RGB)                                                       b_color,
-       (Total_Line($Data,$Upplet,(HTML_Row(HTML_Off_Form))))   total_line
-      ).
-
-public define HTML_In_Form
-   generic_table
-     (
-       List($Data)                                                 data,
-       List(Table_Option)                                            lto,
-       List(HTML_Row(HTML_In_Form))                       columns_name,
-       (RGB,$Data) -> HTML_Row(HTML_In_Form)               line_format,
-       RGB                                                       a_color,
-       RGB                                                       b_color,
-       Total_Line($Data,$Upplet,HTML_Row(HTML_In_Form))     total_line
-     ) =
-   generic_table
-      (
-       (List($Data))                                                 data,
-       (List(Table_Option))                                           lto,
-       (List(HTML_Row(HTML_In_Form)))                       columns_name,
-       (HowManyColumns)                                               _1,
-       ((RGB,Int,$Data) -> HTML_Row(HTML_In_Form))     (RGB r,Int n,$Data d) |->  line_format(r,d),
-       (RGB)                                                       a_color,
-       (RGB)                                                       b_color,
-       (Total_Line($Data,$Upplet,(HTML_Row(HTML_In_Form))))   total_line
-      ).
-
-    
-   
-   
-   3/ Table with multicolumns, enumeration, but without total
-
-public define HTML_Off_Form
-   generic_table
-     (
-       List($Data)                                                data,
-       List(Table_Option)                                           lto,
-       List(HTML_Row(HTML_Off_Form))                       columns_name,
-       HowManyColumns                                 number_of_columns,
-       (RGB,Int,$Data) -> HTML_Row(HTML_Off_Form)         line_format,
-       RGB                                                      a_color,
-       RGB                                                      b_color
-     ) =
-   generic_table
-      (
-       (List($Data))                                                 data,
-       (List(Table_Option))                                           lto,
-       (List(HTML_Row(HTML_Off_Form)))                      columns_name,
-       (HowManyColumns)                               number_of_columns,
-       ((RGB,Int,$Data) -> HTML_Row(HTML_Off_Form))     (RGB r,Int n,$Data d) |->  line_format(r,n,d),
-       (RGB)                                                       a_color,
-       (RGB)                                                       b_color,
-       (Total_Line($Data,$Data,(HTML_Row(HTML_Off_Form))))      no_total
-      ).
-   
-   
-public define HTML_In_Form
-   generic_table
-     (
-       List($Data)                                                data,
-       List(Table_Option)                                           lto,
-       List(HTML_Row(HTML_In_Form))                        columns_name,
-       HowManyColumns                                 number_of_columns,
-       (RGB,Int,$Data) -> HTML_Row(HTML_In_Form)          line_format,
-       RGB                                                       a_color,
-       RGB                                                      b_color
-     ) =
-   generic_table
-      (
-       (List($Data))                                                 data,
-       (List(Table_Option))                                           lto,
-       (List(HTML_Row(HTML_In_Form)))                       columns_name,
-       (HowManyColumns)                                 number_of_columns,
-       ((RGB,Int,$Data) -> HTML_Row(HTML_In_Form))     (RGB r,Int n,$Data d) |->  line_format(r,n,d),
-       (RGB)                                                       a_color,
-       (RGB)                                                       b_color,
-       (Total_Line($Data,$Data,(HTML_Row(HTML_In_Form))))    no_total
-      ).
-   
-   
-   
-    4/ Table with multicolumns and without enumeration & total
-
-public define HTML_Off_Form
-   generic_table
-     (
-       List($Data)                                                 data,
-       List(Table_Option)                                           lto,
-       List(HTML_Row(HTML_Off_Form))                       columns_name,
-       HowManyColumns                                 number_of_columns,
-       (RGB,$Data) -> HTML_Row(HTML_Off_Form)               line_format,
-       RGB                                                      a_color,
-       RGB                                                      b_color
-     ) =
-   generic_table
-      (
-       (List($Data))                                                 data,
-       (List(Table_Option))                                           lto,
-       (List(HTML_Row(HTML_Off_Form)))                       columns_name,
-       (HowManyColumns)                                  number_of_columns,
-       ((RGB,Int,$Data) -> HTML_Row(HTML_Off_Form))     (RGB r,Int n,$Data d) |->  line_format(r,d),
-       (RGB)                                                       a_color,
-       (RGB)                                                       b_color,
-       (Total_Line($Data,$Data,(HTML_Row(HTML_Off_Form))))         no_total
-      ).
-   
-   
-public define HTML_In_Form
-   generic_table
-     (
-       List($Data)                                                data,
-       List(Table_Option)                                           lto,
-       List(HTML_Row(HTML_In_Form))                        columns_name,
-       HowManyColumns                                 number_of_columns,
-       (RGB,$Data) -> HTML_Row(HTML_In_Form)               line_format,
-       RGB                                                     a_color,
-       RGB                                                      b_color
-     ) =
-   generic_table
-      (
-       (List($Data))                                                 data,
-       (List(Table_Option))                                           lto,
-       (List(HTML_Row(HTML_In_Form)))                       columns_name,
-       (HowManyColumns)                                  number_of_columns,
-       ((RGB,Int,$Data) -> HTML_Row(HTML_In_Form))     (RGB r,Int n,$Data d) |->  line_format(r,d),
-       (RGB)                                                       a_color,
-       (RGB)                                                       b_color,
-       (Total_Line($Data,$Data,(HTML_Row(HTML_In_Form))))         no_total
-      ).
-  
-   
-   
-   
@@ -11,9 +11,9 @@ read tools/basis.anubis
 read xlib/web/common.anubis
 read xlib/web/making_a_web_site.anubis
-//public type HTML_Off_Form:...
+//public type HTML:...
- public define HTML_Off_Form
+ public define HTML
   html_tooltip
   (
     String title,
@@ -23,7 +23,7 @@ read xlib/web/making_a_web_site.anubis
   actioner(same,same, link([id("help_" + keyword), class("jTip jTip_help"), attr("target", "_blank")], " ", success(title)), "ajax_show_tooltip", [("tooltip_id", keyword)], []).
- public define HTML_Off_Form
+ public define HTML
   html_tooltip
   (
     String title,
@@ -55,7 +55,7 @@ read xlib/web/making_a_web_site.anubis
   actioner(same,same, link([id("help_" + keyword), class("jTip jTip_help"), attr("target", "_blank")], " ", success(title)), "ajax_show_tooltip", [("tooltip_id", keyword), ("width", to_decimal(width))], []).
- public define HTML_Off_Form
+ public define HTML
   html_tooltip_ext
   (
     String  title,
@@ -64,7 +64,7 @@ read xlib/web/making_a_web_site.anubis
   ) =
   actioner(same,same, link([id("help_" + keyword), class("jTip jTip_"+class_suffix), attr("target", "_blank")], " ", success(title)), "ajax_show_tooltip", [("tooltip_ext", keyword)], []).
- public define HTML_Off_Form
+ public define HTML
   html_tooltip_ext
   (
     String  title,
@@ -378,7 +378,7 @@ public define List(HTML_Head_Tag)
     ) =
         generate_head_tags(jq_selector, anims).
-public define HTML_Partial_Content
+public define HTML
     jquery_animate
     (
         JQuerySelector  jq_selector,
@@ -394,7 +394,7 @@ public define List(HTML_Head_Tag)
     ) =
         generate_head_tags(jq_selector, [ anim_type ]).
-public define HTML_Partial_Content
+public define HTML
     jquery_animate
     (
         JQuerySelector  jq_selector,
@@ -68,18 +68,18 @@ define HTML_Head_Tag
     js_inline(jquery_ready("$('#"+button_id+"').click(function(e){" + js_action + "});"))
   .
-define HTML_Partial_Content
+define HTML
   _jquery_buttons
   (
     List(JQuery_button) buttons,
     List(HTML_Head_Tag) html_tags,
-    List(HTML_Off_Form) html_buttons
+    List(HTML) html_buttons
   )
   =
     if buttons is
     {
       [ ]       then
-        partial_content(
+        head_tags(
           reverse(html_tags),
           sequence(reverse(html_buttons))
         ),
@@ -158,14 +158,14 @@ define HTML_Partial_Content
     }
   .
-public define HTML_Partial_Content
+public define HTML
   jquery_buttons
   (
     String              buttons_container_id,
     List(JQuery_button) buttons
   )
   =
-      partial_content(
+      head_tags(
         [ js_inline(jquery_ready("$('#"+buttons_container_id+"').buttonset();")) ],
           div(id(buttons_container_id), _jquery_buttons(buttons, [], []))
 //        sequence([
@@ -176,7 +176,7 @@ public define HTML_Partial_Content
       )
   .
-public define HTML_Partial_Content
+public define HTML
   jquery_button
   (
     JQuery_button button
@@ -184,11 +184,11 @@ public define HTML_Partial_Content
   =
     if button is jQuery_button(bt_type, id, name, label, actioner, primary, secondary) then
       with onclick_action=jquery_button_get_onclick_action(id, actioner),
-//           btn_seq = (HTML_Off_Form)sequence([literal("<button type=\""+to_String(bt_type)+"\" id=\""+id+"\" name=\""+name+"\">"), table([attr("cellspacing", "5")], [row([cell(text(label))])]), literal("</button>")]),
-           btn_seq = (HTML_Off_Form)sequence([literal("<button class=\"cxm_button\" type=\""+to_String(bt_type)+"\" id=\""+id+"\" name=\""+name+"\">"+label+"</button>")]),
+//           btn_seq = (HTML)sequence([literal("<button type=\""+to_String(bt_type)+"\" id=\""+id+"\" name=\""+name+"\">"), table([attr("cellspacing", "5")], [row([cell(text(label))])]), literal("</button>")]),
+           btn_seq = (HTML)sequence([literal("<button class=\"cxm_button\" type=\""+to_String(bt_type)+"\" id=\""+id+"\" name=\""+name+"\">"+label+"</button>")]),
       if jquery_icon_to_string(primary) = "" then
         if jquery_icon_to_string(secondary) = "" then
-          partial_content(
+          head_tags(
             [
               js_inline(jquery_ready("$('#"+id+"').button();")),
               onclick_action
@@ -198,7 +198,7 @@ public define HTML_Partial_Content
             //literal("<button type=\""+to_String(bt_type)+"\" id=\""+id+"\" name=\""+name+"\">"+label+"</button>")
           )
         else
-          partial_content(
+          head_tags(
             [
               js_inline(jquery_ready("$('#"+id+"').button({icons:{secondary:'"+jquery_icon_to_string(secondary)+"'}});")),
               onclick_action
@@ -208,7 +208,7 @@ public define HTML_Partial_Content
           )
       else
         if jquery_icon_to_string(secondary) = "" then
-          partial_content(
+          head_tags(
             [
               js_inline(jquery_ready("$('#"+id+"').button({icons:{primary:'"+jquery_icon_to_string(primary)+"'}});")),
               onclick_action
@@ -217,7 +217,7 @@ public define HTML_Partial_Content
             //literal("<button type=\""+to_String(bt_type)+"\" id=\""+id+"\">"+label+"</button>")
           )
         else
-          partial_content(
+          head_tags(
             [
               js_inline(jquery_ready("$('#"+id+"').button({icons:{primary:'"+jquery_icon_to_string(primary)+"',secondary:'"+jquery_icon_to_string(secondary)+"'}});")),
               onclick_action
@@ -236,7 +236,7 @@ public type Icon_orientation:
 public type JQuery_img_button:
   jquery_img_button(String img_url, String label_text, String id, JQuery_Actioner jq_action, Icon_orientation orientation).
-public define HTML_Off_Form
+public define HTML
   jquery_button_html
   (
     JQuery_img_button jq_img_button,
@@ -246,15 +246,15 @@ public define HTML_Off_Form
   button([id(button_id), class("jq_img_btn")],
                         if orientation is
                         {
-                          top     then table([class("jq_img_btn_table")],[ row( cell(img(img_url))), row( cell(text(label_text))) ]),
-                          bottom  then table([class("jq_img_btn_table")],[ row( cell(text(label_text))), row( cell(img(img_url))) ]),
-                          left    then table([class("jq_img_btn_table")],[ row( [cell(img(img_url)), cell(text(label_text)) ]) ]),
-                          right   then table([class("jq_img_btn_table")],[ row( [cell(text(label_text)), cell(img(img_url)) ]) ]),
+                          top     then table(class("jq_img_btn_table"), [ tr( td( img(img_url))), tr( td( text(label_text))) ]),
+                          bottom  then table(class("jq_img_btn_table"), [ tr( td( text(label_text))), tr( td( img(img_url))) ]),
+                          left    then table(class("jq_img_btn_table"), tr( [ td(img(img_url)), td(text(label_text)) ])),
+                          right   then table(class("jq_img_btn_table"), tr( [ td(text(label_text)), td(img(img_url)) ])),
                         }).
-public define HTML_Partial_Content
+public define HTML
   jquery_button
   (
     JQuery_img_button button
@@ -264,7 +264,7 @@ public define HTML_Partial_Content
                           generate_random_string(10)
                        else
                           button_id,
-  partial_content(
+  head_tags(
     [
       jquery_button_get_onclick_action(button_id_str, actioner),
       css(css_file("xlib/css/button.css")),
@@ -273,7 +273,7 @@ public define HTML_Partial_Content
     jquery_button_html(button, button_id_str))
   .
-public define HTML_Partial_Content
+public define HTML
   jq_button_confirm
   (
     String                  button_label,
@@ -296,18 +296,16 @@ public define HTML_Partial_Content
        button_name  = uid,
        _actioner    = jQuery_actioner(same, jqscript("Xlib.make_confirm_dialog(this, " /*+ to_js_string("/?a=" + url + format_extra_operands(extra_ops))+*/ + to_JS_String(jquery_button_get_onclick_action(actioner)) + ");")),
-  partial_content([
+  head_tags([
       js(js_file("xlib/js/xlib.js")),
       css(css_file("xlib/css/button.css")),
       js_inline(jquery_ready(js_data))
     ],
-    sequence([
-      partial(jquery_button(jQuery_button(button, uid, button_name, button_label, _actioner, jq_icon_none, jq_icon_none)))
-    ])
+      jquery_button(jQuery_button(button, uid, button_name, button_label, _actioner, jq_icon_none, jq_icon_none))
   )
 .
-public define HTML_Partial_Content
+public define HTML
   jq_button_confirm
   (
     JQuery_img_button       button,
@@ -332,17 +330,16 @@ public define HTML_Partial_Content
        _button_name  = uid,
        _actioner     = jQuery_actioner(same, jqscript("Xlib.make_confirm_dialog(this, " + to_JS_String(jquery_button_get_onclick_action(actioner)) +");")),
-  partial_content([
+  head_tags([
       js(js_file("xlib/js/xlib.js")), 
       js_inline(jquery_ready(js_data))
     ],
-    sequence([
-      partial(jquery_button(jquery_img_button(img_url, button_label, _button_name, _actioner, orientation)))
-    ])
+      jquery_button(jquery_img_button(img_url, button_label, _button_name, _actioner, orientation))
+    
   )
 .
-public define HTML_Partial_Content
+public define HTML
   img_submit_button
   (
     String          img,      //path to image
@@ -353,7 +350,7 @@ public define HTML_Partial_Content
   )=
   jquery_button(jquery_img_button(img, label, "", jQuery_actioner(same, jqform(form_id, action, extra_ops)), left)).
-public define HTML_Partial_Content
+public define HTML
   img_submit_button
   (
     String          img,      //path to image
@@ -363,7 +360,7 @@ public define HTML_Partial_Content
   )=
   jquery_button(jquery_img_button(img, label, "", jQuery_actioner(same, jqform(form_id, action, [])), left)).
-public define HTML_Partial_Content
+public define HTML
   img_submit_button
   (
     String          label,    //translated label of the button
@@ -372,7 +369,7 @@ public define HTML_Partial_Content
   )=
   jquery_button(jquery_img_button(icn16_check, label, "", jQuery_actioner(same, jqform(form_id, action, [])), left)).
-public define HTML_Partial_Content
+public define HTML
   img_submit_button_load
   (
     String          label,    //translated label of the button
@@ -383,7 +380,7 @@ public define HTML_Partial_Content
   )=
   jquery_button(jquery_img_button(icn16_check, label, "", jQuery_actioner(same, jqformload(form_id, target_id, action, extra_args)), left)).
-public define HTML_Partial_Content
+public define HTML
   img_submit_button_load
   (
     String          label,    //translated label of the button
@@ -394,7 +391,7 @@ public define HTML_Partial_Content
   jquery_button(jquery_img_button(icn16_check, label, "", jQuery_actioner(same, jqformload(form_id, target_id, action, [])), left)).
-public define HTML_Partial_Content
+public define HTML
   img_submit_button
   (
     String  label,    //translated label of the button
@@ -403,7 +400,7 @@ public define HTML_Partial_Content
   jquery_button(jquery_img_button(icn16_check, label, "", jQuery_actioner(same, jqform(form_id, no_action, [])), left))
 .
-public define HTML_Partial_Content
+public define HTML
   img_button
   (
     String                icon,       //URL of 
@@ -415,7 +412,7 @@ public define HTML_Partial_Content
 .
-public define HTML_Partial_Content
+public define HTML
   img_button
   (
     String                icon,       //URL of 
@@ -427,7 +424,7 @@ public define HTML_Partial_Content
   jquery_button(jquery_img_button(icon, label, "", jQuery_actioner(same, jqload(target, action, extra_ops)), left))
 .
-public define HTML_Partial_Content
+public define HTML
   img_button
   (
     String          icon,
@@ -43,7 +43,7 @@ define String
         " + off_script + "
      }".
-public define HTML_Partial_Content
+public define HTML
   jq_img_checkbox
   (
     String              checkbox_id,
@@ -61,7 +61,7 @@ public define HTML_Partial_Content
     jquery_button(jquery_img_button(image_url, checkbox_label, checkbox_id, jQuery_actioner(same, jqscript(checkbox_onclick_script(checkbox_id, on_script, off_script))), orientation))
   ).
-public define HTML_Partial_Content
+public define HTML
   jq_img_checkbox
   (
     String              checkbox_id,
@@ -59,29 +59,29 @@ public define List(HTML_Head_Tag)
 //      js(js_file("jquery/plug-in/DataTables-1.10.7/extensions/responsive/js/dataTables.responsive.js")),
     ]
   .
-public define HTML_Partial_Content
+public define HTML
   jquery_datatable
   (
     String table_id,
-    HTML_Off_Form table
+    HTML table
   )
   =
-    partial_content(jquery_datatables_1_10_init +
+    head_tags(jquery_datatables_1_10_init +
       [ js_inline(jquery_ready("$('#"+table_id+"').DataTable();")) ],
       table
     )
   .
-public define HTML_Partial_Content
+public define HTML
   jquery_datatable
   (
     String        table_id,
-    HTML_Off_Form table,
+    HTML table,
     Bool          enable_jqueryui,
   )
   =
     if enable_jqueryui then
-      partial_content( jquery_datatables_1_10_init +
+      head_tags( jquery_datatables_1_10_init +
         [ js_inline(jquery_ready("$('#"+table_id+"').DataTable({\"jQueryUI\":true});")) ],
         table
       )
@@ -90,11 +90,11 @@ public define HTML_Partial_Content
   .
-public define HTML_Partial_Content
+public define HTML
   jquery_datatable
   (
     String                            table_id,
-    HTML_Partial_Content              table,
+    HTML              table,
     Bool                              enable_jqueryui,
     Bool                              enable_pagination,
     JQuery_datatable_pagination_type  pagination_type,
@@ -108,7 +108,7 @@ public define HTML_Partial_Content
     String                            web_dir
   )
   =
-    partial_content( jquery_datatables_1_10_init +
+    head_tags( jquery_datatables_1_10_init +
                       [ 
                         js_inline(jquery_ready("
                         $.fn.dataTable.ext.legacy.ajax = true;
@@ -139,27 +139,11 @@ public define HTML_Partial_Content
       )
   .
-public define HTML_Partial_Content
+public define HTML
   jquery_datatable
   (
     String                            table_id,
-    HTML_Off_Form                     table,
-    Bool                              enable_jqueryui,
-    Bool                              enable_pagination,
-    JQuery_datatable_pagination_type  pagination_type,
-    JQuery_datatable_scrollY_type     scrollY,
-    Bool                              enable_change_page_length,  // if true, "enable_pagination" must be true too.
-    Bool                              enable_search_field,
-    Bool                              enable_columns_sorting,
-    String                            web_dir
-  ) = 
-  jquery_datatable(table_id, partial_content(table), enable_jqueryui, enable_pagination, pagination_type, false, scrollY, enable_change_page_length, enable_search_field, enable_columns_sorting, "en", no_extra, web_dir).
-
-public define HTML_Partial_Content
-  jquery_datatable
-  (
-    String                            table_id,
-    HTML_Partial_Content              table,
+    HTML                     table,
     Bool                              enable_jqueryui,
     Bool                              enable_pagination,
     JQuery_datatable_pagination_type  pagination_type,
@@ -17,8 +17,8 @@ public type JQuery_dialog_id:
 public type JQuery_dialog:
   empty,
-  p_content(HTML_Partial_Content content),
-  off_form(HTML_Off_Form o_form),
+  p_content(HTML content),
+  off_form(HTML o_form),
   ajax(WEB_Action_Name url).
 public define JQuery_dialog ajax(String url) = ajax(action_name(url)).
@@ -52,7 +52,7 @@ public define String
 .
-public define HTML_Partial_Content
+public define HTML
   jq_dialog_create
   (
     JQuery_dialog_id  dial_id,
@@ -88,19 +88,21 @@ $( \&quot;#&quot;+dlg_id+&quot;\&quot; ).dialog({
   if content is
   {
     empty           then
-      partial_content([js], div([id(dlg_id)], empty)),
+      head_tags([js], div([id(dlg_id)], empty)),
     p_content(pc)   then
-      if pc is partial_content(tags, html) then
-        partial_content( [js . tags ], div([id(dlg_id)], html)),  //html code of the dialog
+      if pc is head_tags(tags, html) then
+        head_tags( [js . tags ], div(id(dlg_id), html))  //html code of the dialog
+      else
+        pc,
     off_form(html)  then
-        partial_content( [js], div([id(dlg_id)], html)),          //html code of the dialog
+        head_tags(js, div(id(dlg_id), html)),          //html code of the dialog
     ajax(_url)      then
       with url = format_web_action_name(_url),
       //println("jq_dialog_create : \njs_str ->"+js_str+"\nurl ->"+url);
-        partial_content( [js], div([id(dlg_id), attr("ajax_url",url)]))
+        head_tags( [js], div([id(dlg_id), attr("ajax_url",url)]))
   }.
-public define HTML_Partial_Content
+public define HTML
   jq_dialog_create
   (
     JQuery_dialog_id    dial_id,
@@ -110,7 +112,7 @@ public define HTML_Partial_Content
   )=
   jq_dialog_create(dial_id, content, false, size, extra_param).
-public define HTML_Partial_Content
+public define HTML
   jq_dialog_create
   (
     JQuery_dialog_id    dial_id,
@@ -119,7 +121,7 @@ public define HTML_Partial_Content
   )=
   jq_dialog_create(dial_id, content, false, size, "").
-public define HTML_Partial_Content
+public define HTML
   jq_dialog_create
   (
     JQuery_dialog_id  dial_id,
@@ -128,7 +130,7 @@ public define HTML_Partial_Content
   )=
   jq_dialog_create(dial_id, content, false, auto, extra_param).
-public define HTML_Partial_Content
+public define HTML
   jq_dialog_create
   (
     JQuery_dialog_id  dial_id,
@@ -136,7 +138,7 @@ public define HTML_Partial_Content
   )=
   jq_dialog_create(dial_id, content, false, auto, "").
-public define HTML_Partial_Content
+public define HTML
   jq_dialog_create
   (
     JQuery_dialog_id  dial_id,
@@ -188,15 +190,14 @@ public define String
   )= 
   _jq_dialog_open(success(html), dialog_id, params).
-public define HTML_Partial_Content
+public define HTML
   jq_dialog_open
   (
     String            html,
     JQuery_dialog_id  dialog_id,
     String            params
   )= 
-  partial_content([],
-    literal(_jq_dialog_open(success(html), dialog_id, params))).
+  literal(_jq_dialog_open(success(html), dialog_id, params)).
 public define String
   jq_dialog_open
@@ -171,7 +171,7 @@ define String
   .
 /* Creation of an euDock */
-public define HTML_Partial_Content
+public define HTML
   jquery_eudock
   (
     JQ_euDock dock
@@ -9,7 +9,7 @@
 read xlib/web/making_a_web_site.anubis
 read tools/basis.anubis
- public define HTML_Partial_Content
+ public define HTML
   jqplot
   (
     String  img_url,
@@ -80,7 +80,7 @@ define String
         "radio.removeClass('unchecked').addClass('checked');"
     ) + on_script.
-public define HTML_Partial_Content
+public define HTML
   jq_img_radio
   (
     String              radio_id,
@@ -92,14 +92,14 @@ public define HTML_Partial_Content
     String              on_script,
     Icon_orientation    orientation
   ) =
-    partial_content(
+    head_tags(
       [
         js_inline(jquery_ready(radio_init_script(radio_id, radio_group, initial_state)))
       ],
       jquery_button(jquery_img_button(image_url, checkbox_label, radio_id, jQuery_actioner(same, jqscript(radio_onclick_script(radio_id, radio_group, multi_select_with_shift, on_script))), orientation))
     ).
-public define HTML_Partial_Content
+public define HTML
   jq_img_radio
   (
     String              radio_id,
@@ -112,7 +112,7 @@ public define HTML_Partial_Content
   ) =
     jq_img_radio(radio_id, none, initial_state, false, image_url, checkbox_label, script, orientation).
-public define HTML_Partial_Content
+public define HTML
   jq_img_radio
   (
     String              radio_id,
@@ -13,27 +13,27 @@ read xlib/web/common.anubis
 read tools/basis.anubis
 public type JQuery_tab:
- jQuery_tab(String title, HTML_Partial_Content content)
+ jQuery_tab(String title, HTML content)
 .
   // Helper to be compatible with the first version of JQuery_tab which
-  // take HTML_Off_Form as second argument instead of HTML_Partial_Content.
+  // take HTML as second argument instead of HTML.
 public define JQuery_tab
   jQuery_tab
   (
     String        title,
-    HTML_Off_Form content
+    HTML content
   )=
   jQuery_tab(title, partial_content([], content)).
-define HTML_Partial_Content
+define HTML
   _jquery_tabs
   (
     String              tabs_container_id,
     List(JQuery_tab)    tabs,
     String              tabs_titles,
-    List(HTML_Off_Form) tabs_contents,
+    List(HTML) tabs_contents,
     List(HTML_Head_Tag) tabs_heads,
     Int                 count
   )
@@ -66,7 +66,7 @@ define HTML_Partial_Content
     }
   .
-public define HTML_Partial_Content
+public define HTML
   jquery_tabs
   (
     String              tabs_container_id,
@@ -106,7 +106,7 @@ public define HTML_Partial_Content
         div([id(tabs_container_id)], html)
       ).
-public define HTML_Partial_Content
+public define HTML
   jquery_tabs
   (
     String              tabs_container_id,
@@ -62,13 +62,13 @@ public define List(HTML_Head_Tag)
   .
-/* Create a tipTip tooltip with a HTML_Partial_Content and position */
-public define HTML_Partial_Content
+/* Create a tipTip tooltip with a HTML and position */
+public define HTML
   jquery_tiptip
   (
     String                rollovered_id,  // id of the element on which toolip will be displayed => IT MUST BE UNIQUE !!!!
     String                tooltip_id,     // id used to make a container around tooltip content => Uniqueness of the container's id is made with the addition of a timestamp as a suffix
-    HTML_Partial_Content  tooltip_partial_content,
+    HTML  tooltip_partial_content,
     JQ_tiptip_position    position
   )
   =
@@ -91,38 +91,38 @@ public define HTML_Partial_Content
       )
   .
-/* Create a tipTip tooltip with a HTML_Off_Form and position */
-public define HTML_Partial_Content
+/* Create a tipTip tooltip with a HTML and position */
+public define HTML
   jquery_tiptip
   (
     String              rollovered_id,  // id of the element on which toolip will be displayed => IT MUST BE UNIQUE !!!!
     String              tooltip_id,     // id used to make a container around tooltip content => Uniqueness of the container's id is made with the addition of a timestamp as a suffix
-    HTML_Off_Form       html_content,
+    HTML       html_content,
     JQ_tiptip_position  position
   )
   =
     jquery_tiptip(rollovered_id, tooltip_id, partial_content([], html_content), position)
   .
-/* Create a tipTip tooltip with a HTML_Partial_Content */
-public define HTML_Partial_Content
+/* Create a tipTip tooltip with a HTML */
+public define HTML
   jquery_tiptip
   (
     String                rollovered_id,  // id of the element on which toolip will be displayed => IT MUST BE UNIQUE !!!!
     String                tooltip_id,     // id used to make a container around tooltip content => Uniqueness of the container's id is made with the addition of a timestamp as a suffix
-    HTML_Partial_Content  tooltip_partial_content
+    HTML  tooltip_partial_content
   )
   =
     jquery_tiptip(rollovered_id, tooltip_id, tooltip_partial_content, jq_tiptip_bottom)
   .
-/* Create a tipTip tooltip with a HTML_Off_Form */
-public define HTML_Partial_Content
+/* Create a tipTip tooltip with a HTML */
+public define HTML
   jquery_tiptip
   (
     String        rollovered_id,  // id of the element on which toolip will be displayed => IT MUST BE UNIQUE !!!!
     String        tooltip_id,     // id used to make a container around tooltip content => Uniqueness of the container's id is made with the addition of a timestamp as a suffix
-    HTML_Off_Form html_content
+    HTML html_content
   )
   =
     jquery_tiptip(rollovered_id, tooltip_id, partial_content([], html_content))
@@ -9,11 +9,11 @@
 read xlib/web/making_a_web_site.anubis
 read xlib/web/jQuery/jq_button.anubis
-public define HTML_Partial_Content
+public define HTML
   _jquery_toolbar
   (
     List(JQuery_img_button) buttons,
-    List(HTML_Cell(HTML_Off_Form))     so_far
+    List(HTML_Cell(HTML))     so_far
   )=
   if buttons is 
   {
@@ -24,7 +24,7 @@ public define HTML_Partial_Content
       _jquery_toolbar(t, [ cell(partial(jquery_button(h))) . so_far])
   }.
-public define HTML_Partial_Content
+public define HTML
   jquery_toolbar
   (
     List(JQuery_img_button) buttons
@@ -11,10 +11,10 @@ read xlib/web/making_a_web_site.anubis
 transmit locale/L3.anubis
 transmit locale/L3LanguageInfo.anubis
-define List(HTML_Off_Form) 
+define List(HTML) 
   construct_language_option_list
   (
-    List(HTML_Off_Form)   so_far,
+    List(HTML)   so_far,
     List(L3LanguageInfo)  lang_list
   ) =
   if lang_list is
@@ -26,15 +26,15 @@ define List(HTML_Off_Form)
     construct_language_option_list( [option(value(code_lang), text(code_lang +" | " + english_name + " | " + self_name)) . so_far], t)
   }.
-public define List(HTML_Off_Form)
+public define List(HTML)
   l3_get_language_option_list =
   construct_language_option_list([], standard_languages)
   .
-public define List(HTML_Off_Form)
+public define List(HTML)
   _l3_get_all_chapters_options_list
   (
-    List(HTML_Off_Form) so_far,
+    List(HTML) so_far,
     List(String)        chapters_list
   )=
   if chapters_list is
@@ -45,7 +45,7 @@ public define List(HTML_Off_Form)
   }
 .
-public define List(HTML_Off_Form)
+public define List(HTML)
   l3_get_all_chapters_options_list
   (
     String collection_name
@@ -122,7 +122,7 @@ public define String
   load_content(target, web_action, [], replace, true)
 .
-public define HTML_Partial_Content
+public define HTML
   load_content_init
   (
     String                target,
@@ -131,14 +131,13 @@ public define HTML_Partial_Content
     Bool                  replace,
     Bool                  overlay
   )=
-  partial_content([
+  head_tags([
     js(js_file("xlib/js/xlib.js")),
     js_inline(script("text/javascript","$(document).ready(function(){"+load_content(target, web_action, extra_args, replace, overlay)+"});"))
-  ], 
-  empty)
+  ])
 .
-public define HTML_Partial_Content
+public define HTML
   load_content_init
   (
     String                target,
@@ -149,7 +148,7 @@ public define HTML_Partial_Content
   load_content_init(target, web_action, extra_args, replace, true)
 .
-public define HTML_Partial_Content
+public define HTML
   load_content_init
   (
     String                target,
@@ -159,7 +158,7 @@ public define HTML_Partial_Content
   load_content_init(target, web_action, extra_args, false, true)
 .
-public define HTML_Partial_Content
+public define HTML
   load_content_init
   (
     String                target,
@@ -168,7 +167,7 @@ public define HTML_Partial_Content
   load_content_init(target, web_action, [], false, true)
 .
-public define HTML_Partial_Content
+public define HTML
   load_content_init
   (
     String                target,
@@ -6,7 +6,7 @@
  *Copyright*                Copyright (c) Alain Prouté 2004-2005.
                             Copyright (c) Calexium 2007-2017.
-                            Copyright (c) David René 2007-2021.
+                            Copyright (c) David René 2007-2026.
  *Authors* Alain Prouté
@@ -372,26 +372,6 @@ public define String
                                    $State -> HTTP_Answer
-   where  the type 'HTTP_Answer'  (defined below  in this  file) abstractly  represents HTML
-   pages.
-   
-//public type HTTP_Answer:...   
-   
-   It should be clear that states and  pages are deeply linked together. Indeed, we really
-   understand the page shown to the client as a representation of the current state of the
-   conversation  between the client  and the  web site,  but also  containing informations
-   taken from the data bases.
-
-                  
-//public type HTML_Partial_Content:...
-
-
-                  
-
-
-
-
-
 public define List(HTTP_header)
   make_session_cookie_headers
@@ -504,44 +484,6 @@ public type Web_Site:...
    Producing such a datum may be performed by:
- public define Web_Site
-   make_web_site_description
-     (
-       List(String)                common_names,          // for example: ["www.our-business.com",
-                                                          //               "192.168.0.1"]
-                                                          // the second one is just for testing
-       String                      site_directory,        // where 'public' and other directories are
-                                                          // located (should NOT end with '/')
-       String                      state_directory,
-       One -> One                  init, 
-       (HTTP_Info, 
-        List(Web_arg),
-        Bool is_https) -> $State       initial_state, 
-       ($State expired,
-        Maybe(String),
-        HTTP_Info,
-        List(Web_arg),
-        Bool is_https) -> $State   ticket_expired_state, 
-       (Maybe(String),
-        HTTP_Info,
-        List(Web_arg),
-        Bool is_https) -> $State   ticket_lost_state, 
-       List(Web_Action($State))    actions, 
-       $State -> HTTP_Answer       compute_page,
-       $State -> List(HTTP_header) additional_headers,
-       List(HTTP_header)           constant_additional_headers, 
-       Int                         timeout,               // seconds (todo: minutes)
-       Redirections                redirections, 
-       String                      charset, 
-       List(String)                journal_extensions,
-       List(String)                journal_headers, 
-       String                      authorization_secret, 
-       List(MIME)                  known_mime_types,
-       (String        action_name, 
-        List(Web_arg) args)-> One  before_send_file
-     ). 
-
-   
    Explanations:
    'common_names' is the list of names of the  site (the name the browser must send as the
@@ -706,7 +648,7 @@ public define Start_Web_Sites_Result
    For easy reference, we  gather below the definitions of all the  types used by the HTML
    interface, and we comment them immediately. 
- //public type HTML_Off_Form:...
+ //public type HTML:...
 public define Printable_tree [HTML_Id      x . Printable_tree y] = str_pt(x.id, y).
@@ -719,20 +661,17 @@ public define CoreAttrs   attr(String name, Bool value) = attr(name, if value th
 public define CoreAttrs   attr(String name, Int value)  = attr(name, to_String(value)).
-public define InputAttrs   attr(String name, Bool value) = attr(name, if value then "true" else "false").
+//public define InputAttrs   attr(String name, Bool value) = attr(name, if value then "true" else "false").
-public define Text_Option
-  tooltip(String s) = title(s).
+//public define Text_Option
+//  tooltip(String s) = title(s).
    A list of 'Text_Option' must be given with each text you want to put in your page.
 public define CoreAttrs
   tooltip(String s) = title(s).
-public define InputAttrs
-  tooltip(String s) = title(s).
-
 public type I18n:
   lang  (String),
@@ -830,100 +769,7 @@ public define String
   }.
-public define Table_Option nude = border(0,0,0,rgb(0,0,0)).
-   
-   
-   A list of 'Table_Option' must be given with each table. 
-   
-   
-          
-  
-   
-   
-   A list of 'Cell_Option'  must be given with each cell and each  row in a table. Options
-   given with a row apply to all the cells in the row, but are superseded by options given
-   with cells, which apply only to the cell they are given with.
-   
-   
-
-
-   
-   The parameter $T is later  instantiated either to 'HTML_In_Form' or to 'HTML_Off_Form',
-   depending on where  you put your table (within  a form or not within a  form). For your
-   convenience, we define the following particular case:
-   
-public define HTML_Cell($T)   
-  cell
-  (
-    $T content
-  )=
-  cell([],content)
-.
-
-public define HTML_Cell($T)   
-  cell
-  (
-    Cell_Option option,
-    $T          content
-  ) =
-  cell([option],content)
-.
-
-public define HTML_Header_Cell($T)   
-   header_cell
-     (
-       $T content
-     ) =
-   header_cell([],content). 
-
-   
-
-   
-   Same remark as for 'HTML_Cell($T)'. We define several convenience functions:
-   
-public define HTML_Row($T)
-  row
-  (
-    List(HTML_Cell($T)) cells
-  )=
-  row([],cells).
-   
-public define HTML_Row($T)   
-  row
-  (
-    HTML_Cell($T) cell
-  )=
-  row([],[cell]).
-
-public define HTML_Row($T)   
-  row
-  (
-    List(Cell_Option) options,
-    HTML_Cell($T) cell
-  )=
-  row(options,[cell]). 
-
-public define HTML_Row($T)   
-  row
-  (
-    Cell_Option   option,
-    HTML_Cell($T) cell
-  )=
-  row([option],[cell]). 
-
-public define HTML_Header_Row($T)
-  header_row
-  (
-    List(HTML_Header_Cell($T)) cells
-  ) =
-  header_row([],cells).
-   
-public define HTML_Header_Row($T)   
-  header_row
-  (
-    HTML_Header_Cell($T) cell
-  ) =
-  header_row([],[cell]). 
+//public define Table_Option nude = border(0,0,0,rgb(0,0,0)).
@@ -954,7 +800,7 @@ public define Actioner_Aspect
 public define Actioner_Aspect
   link
   (
-    List(Text_Option) options,
+    List(CoreAttrs) options,
     String text
   )=
   link(options, text, failure). 
@@ -970,7 +816,7 @@ public define Actioner_Aspect
 public define Actioner_Aspect
   link
   (
-    List(Text_Option) options,
+    List(CoreAttrs) options,
     Int              i
   ) =
   link(options, to_decimal(i), failure). 
@@ -1058,7 +904,7 @@ public define HTML_Help
   /* It contains
    *  - a List of HTML_Head_Tag representing necessaries head tags for the content. ex: jquery js files, js script, css specific styles, ...
-   *  - a HTML_Off_Form representing the HTML code for the part of the page we want to display
+   *  - a HTML representing the HTML code for the part of the page we want to display
    */
 //public type HTML_In_Form:...
@@ -1084,24 +930,13 @@ public define List(HTML_Head_Tag)
    convenience function:
-public define HTML_In_Form  text_input(HTML_Label label,  HTML_Id id, WebArgName name, InitialValue init, Int width) = text_input([], label, id, name, init, width).
-public define HTML_In_Form literal(Printable_tree t) = literal_pt(t). 
+public define HTML literal(Printable_tree t) = literal_pt(t). 
-public define HTML_In_Form image(String url) = image([], url, url).
-public define HTML_In_Form image(String url, Int width, Int height) = image([], url, url, width, height).
-public define HTML_In_Form
-   foreign_link
-     (
-       Int tsize,
-       String url, 
-       String name
-     ) =
-   foreign_link([size(tsize)],url,name). 
-public define HTML_In_Form
+public define HTML
 /* Older call with String as action instead of WEB_Action_Name. 
  * This function exists only for compatibility with older project.
  * Please condiser to use above function instead
@@ -1118,7 +953,7 @@ public define HTML_In_Form
   actioner(conn,targ,asp,action_name(action),extra_ops,local_actions)
 .
-public define HTML_In_Form
+public define HTML
   actioner
   (
        Actioner_Connection       conn, 
@@ -1130,7 +965,7 @@ public define HTML_In_Form
   actioner(conn,targ,asp,action,extra_ops,[])
 .
-public define HTML_In_Form
+public define HTML
 /* Older call with String as action instead of WEB_Action_Name. 
  * This function exists only for compatibility with older project.
  * Please condiser to use above function instead
@@ -1146,7 +981,7 @@ public define HTML_In_Form
   actioner(conn,targ,asp,action_name(action),extra_ops,[])
 .
-public define HTML_In_Form
+public define HTML
   actioner
   (
     Actioner_Connection       conn, 
@@ -1154,62 +989,8 @@ public define HTML_In_Form
     Actioner_Aspect           asp, 
   )=
   actioner(conn, targ, asp, action_name(""), [], []). 
-   
-   
-public define HTML_In_Form
-   text_area
-     (
-       WebArgName name,
-       InitialValue init,
-       Int  width, 
-       Int  height
-     ) =
-   text_area([], no_label, html_Id(""), name,init,width,height). 
-   
-public define HTML_In_Form
-   text_area
-     (
-       List(TextAreaOption) options, 
-       WebArgName name,
-       InitialValue init,
-       Int  width, 
-       Int  height
-     ) =
-   text_area(options, no_label, html_Id(""), name,init,width,height). 
-
-public define HTML_In_Form
-   table
-     (
-       List(HTML_Row(HTML_In_Form)) rows
-     ) =
-   table([],empty,rows,empty). 
-   
-public define HTML_In_Form
-  table
-  (
-    List(Table_Option)            options,
-    List(HTML_Row(HTML_In_Form))  rows
-  ) =
-  table(options,empty,rows,empty).
-
-public define HTML_In_Form
-  table
-  (
-    HTML_Header_Row(HTML_In_Form)  h_row,    
-    List(HTML_Row(HTML_In_Form))   rows
-  ) =
-  table([],h_row,rows,empty).
-
-public define HTML_In_Form
-  table
-  (
-    List(Table_Option)            options,
-    HTML_Header_Row(HTML_In_Form) h_row,    
-    List(HTML_Row(HTML_In_Form))  rows
-  ) =
-  table(options,h_row,rows,empty).
-   
-public define HTML_In_Form   
+ 
+ public define HTML_In_Form   
    private_download
      (
        String        abs_path, 
@@ -1218,7 +999,7 @@ public define HTML_In_Form
      ) =
    private_download(abs_path,name,extra_ext,failure). 
-public define HTML_In_Form   
+ public define HTML_In_Form   
    private_download
      (
        String        abs_path, 
@@ -1228,90 +1009,6 @@ public define HTML_In_Form
        List((String,String))   args
      ) =
    private_download(abs_path,name,extra_ext,success((action_name,args))). 
-   
-
-
-public define HTML_In_Form
-  text
-  (
-    List(CoreAttrs) l,
-    Int             i
-  ) =
-  text(l, to_decimal(i)).
-   
-public define HTML_In_Form
-  text
-  (
-    String s
-  )=
-  text([],s)
-.
-
-public define HTML_In_Form
-  text
-  (
-    Int i
-  ) =
-  text([], i)
-.
-
-public define HTML_In_Form
-  div
-  (
-    HTML_In_Form element
-  )=
-  div([], [element])
-.
-
-public define HTML_In_Form
-  div
-  (
-    List(CoreAttrs) attrs,
-    HTML_In_Form   element
-  )=
-  div(attrs, [element])
-.
-
-public define HTML_In_Form
-  span
-  (
-    String s
-  )=
-  span([],s)
-.
-
-public define HTML_In_Form
-  span
-  (
-    Int i
-  ) =
-  span([], to_decimal(i))
-.
-   
-public define HTML_In_Form
-  radio_button   (List(CoreAttrs) options, HTML_Label label, WebArgName n, WebArgValue value, Bool checked)
-  = radio_button (options, label, html_Id(n.name), n, value, checked).
-
-public define HTML_In_Form
-  radio_button_r   (List(CoreAttrs) options, HTML_Label label, WebArgName n, WebArgValue value, Bool checked)
-  = radio_button_r (options, label, html_Id(n.name), n, value, checked).
-
-public define HTML_In_Form
-  check_box     (List(CoreAttrs) options, HTML_Label label, WebArgName n, Bool checked)
-  = check_box   (options, label, html_Id(n.name), n, checked).
-
-public define HTML_In_Form
-  check_box_r    (List(CoreAttrs) options, HTML_Label label, WebArgName n, Bool checked)
-  = check_box_r  (options, label, html_Id(n.name), n, checked).
-  
-public define HTML_In_Form
-  file_upload     (WebArgName n, Int width)
-  = file_upload([], no_label, html_Id(n.name), n, width).
-  
-public define HTML_In_Form
-  hidden  (WebArgName name, WebArgValue value)
-  =
-  hidden(html_Id(""), name, value).
 public type Input_Type:
 button,
@@ -1417,6 +1114,69 @@ public type FormMethod:
   post
 .
+public define String format_attrs (List(CoreAttrs)  attributs).
+
+   Formating choices for a <select> tag. 
+   
+public define Printable_tree
+  format_choices
+  (
+    List(String) l
+  ) =
+  if l is 
+  {
+    [ ]     then [ ], 
+    [h . t] then ["<option>", h, "</option>\n" . format_choices(t)]
+  }
+.
+
+
+public define Printable_tree
+  format_choices
+  (
+    List(String) l,
+    InitialValue selected
+  ) =
+  if l is 
+    {
+      [ ]     then [ ], 
+      [h . t] then if h = selected.value
+        then ["<option selected=\"selected\">", h, "</option>\n" . format_choices(t)]
+        else ["<option>", h, "</option>\n" . format_choices(t,selected)]
+    }.
+
+   
+public define Printable_tree
+  format_choices
+    (
+      List((List(CoreAttrs),WebArgValue,String)) l
+    ) =
+  if l is 
+    {
+      [ ] then [ ], 
+      [h . t] then
+       if h is (attrs,val,item) 
+        then ["<option value=\""+encode_HTML_entities(val.value)+"\" "+format_attrs(attrs)+">", item, "</option>\n" . format_choices(t)]
+    }.
+   
+public define Printable_tree
+  format_choices
+    (
+      List((List(CoreAttrs),WebArgValue,String)) l,
+      InitialValue          selected
+    ) =
+  if l is 
+    {
+      [ ] then [ ], 
+      [h . t] then 
+       if h is (attrs,val,item) then 
+       if val.value = selected.value 
+         then ["<option value=\""+encode_HTML_entities(val.value)+"\" "+format_attrs(attrs)+" selected=\"selected\">", item, "</option>\n" . format_choices(t)]
+         else ["<option value=\""+encode_HTML_entities(val.value)+"\" "+format_attrs(attrs)+" >", item, "</option>\n" . format_choices(t,selected)]
+    }.
+   
+ 
+
 //public type HTML_Body:...
 public define CoreAttrs formaction(WEB_Action_Name action, List((String,String)) extra_ops)   = attr("formaction", format_web_action_name(action, extra_ops)).
@@ -1425,227 +1185,286 @@ public define CoreAttrs formaction(WEB_Action_Name action)                      
 public define CoreAttrs formmethod(FormMethod method) = attr("formmethod", if method is { get then "get", post then "post"}). 
-   'HTML_Off_Form' defines all the elements you may put outside any form. 
+   'HTML' defines all the elements you may put outside any form. 
 public define CoreAttrs method(String value)          = attr("method", value).
+public define CoreAttrs method(FormMethod method)     = attr("method", if method is { get then "get", post then "post"}). 
 public define CoreAttrs action(WEB_Action_Name action)= attr("action", "/"+format_web_action_name(action)).
 public define CoreAttrs action(WEB_Action_Name action, List((String,String)) extra_ops)= attr("action", "/"+format_web_action_name(action, extra_ops)).
 public define CoreAttrs formmethod(String value)      = attr("formmethod", value).
 public define CoreAttrs form(String value)            = attr("form", value).
 public define CoreAttrs for(String value)             = attr("for", value).
-
-public define HTML_Off_Form text(List(CoreAttrs) attrs, Int i)  = text(attrs,   to_decimal(i)).
-public define HTML_Off_Form text(CoreAttrs attr, Int i)         = text([attr],  i).
-public define HTML_Off_Form text(Int i)                         = text([],      i).
-public define HTML_Off_Form text(String s)                      = text([],      s).
-public define HTML_Off_Form text(CoreAttrs attr, String s)      = text([attr],  s).
-
-public define HTML_Off_Form a(A_href _href)                                                     = a([],     _href, _self, []).
-public define HTML_Off_Form a(List(CoreAttrs) attrs, A_href _href)                              = a(attrs,  _href, _self, []).
-public define HTML_Off_Form a(List(CoreAttrs) attrs, A_href _href, HTML_Off_Form content)       = a(attrs,  _href, _self, [content]).
-public define HTML_Off_Form a(List(CoreAttrs) attrs, A_href _href, List(HTML_Off_Form) content) = a(attrs,  _href, _self, content).
-public define HTML_Off_Form a(A_href _href, HTML_Off_Form content)                              = a([],     _href, _self, [content]).
-public define HTML_Off_Form a(A_href _href, String _text)                                       = a([],     _href, _self, [text(_text)]).
-public define HTML_Off_Form a(A_href _href, List(HTML_Off_Form) content)                        = a([],     _href, _self, content).
-public define HTML_Off_Form a(List(CoreAttrs) attrs, A_href _href, A_target _target, HTML_Off_Form content) = a(attrs,     _href, _target, [content]).
-public define HTML_Off_Form a(CoreAttrs attr, A_href _href, A_target _target, HTML_Off_Form content)        = a([attr],    _href, _target, [content]).
-public define HTML_Off_Form a(A_href _href, A_target _target, HTML_Off_Form content)            = a([],     _href, _target, [content]).
-public define HTML_Off_Form a(A_href _href, A_target _target, List(HTML_Off_Form) content)      = a([],     _href, _target, content).
-public define HTML_Off_Form a(CoreAttrs attr, A_href _href, A_target _target, List(HTML_Off_Form) content)  = a([attr],     _href, _target, content).
-public define HTML_Off_Form a(CoreAttrs attr, A_href _href, List(HTML_Off_Form) content)        = a([attr],     _href, _self, content).
-public define HTML_Off_Form a(CoreAttrs attr, A_href _href, HTML_Off_Form content)              = a([attr],     _href, _self, [content]).
+/**********/
+public define HTML format_label(HTML_Label  _label, HTML_Id     _id).
+
+/**********/
+
+//public define HTML  html_tag(String tag_name, HTML_Head_Tag head, List(CoreAttrs) attrs, List(HTML) contents)          = html_tag(tag_name, [head],  attrs,   contents).
+//public define HTML  html_tag(String tag_name, List(HTML_Head_Tag) heads, List(CoreAttrs) attrs, HTML content)         = html_tag(tag_name, heads,   attrs,   [content]).
+//public define HTML  html_tag(String tag_name, HTML_Head_Tag head, List(CoreAttrs) attrs, HTML content)               = html_tag(tag_name, [head],  attrs,   [content]).
+//public define HTML  html_tag(String tag_name, List(HTML_Head_Tag) heads, List(CoreAttrs) attrs)                                = html_tag(tag_name, heads,   attrs,   []).
+//public define HTML  html_tag(String tag_name, HTML_Head_Tag head, List(CoreAttrs) attrs)                                       = html_tag(tag_name, [head],  attrs,   []).
+//public define HTML  html_tag(String tag_name, List(HTML_Head_Tag) heads, CoreAttrs attr, List(HTML) contents)          = html_tag(tag_name, heads,   [attr],  contents).
+//public define HTML  html_tag(String tag_name, HTML_Head_Tag head, CoreAttrs attr, List(HTML) contents)                 = html_tag(tag_name, [head],  [attr],  contents).
+//public define HTML  html_tag(String tag_name, List(HTML_Head_Tag) heads, CoreAttrs attr, HTML content)                = html_tag(tag_name, heads,   [attr],  [content]).
+//public define HTML  html_tag(String tag_name, HTML_Head_Tag head, CoreAttrs attr, HTML content)                       = html_tag(tag_name, [head],  [attr],  [content]).
+//public define HTML  html_tag(String tag_name, List(HTML_Head_Tag) heads, CoreAttrs attr)                                       = html_tag(tag_name, heads,   [attr],  []).
+//public define HTML  html_tag(String tag_name, HTML_Head_Tag head, CoreAttrs attr)                                              = html_tag(tag_name, [head],  [attr],  []).
+//public define HTML  html_tag(String tag_name, List(HTML_Head_Tag) heads, List(HTML) contents)                          = html_tag(tag_name, heads,   [],      contents).
+//public define HTML  html_tag(String tag_name, HTML_Head_Tag head, List(HTML) contents)                                 = html_tag(tag_name, [head],  [],      contents).
+//public define HTML  html_tag(String tag_name, List(HTML_Head_Tag) heads, HTML content)                                = html_tag(tag_name, heads,   [],      [content]).
+//public define HTML  html_tag(String tag_name, HTML_Head_Tag head, HTML content)                                       = html_tag(tag_name, [head],  [],      [content]).
+//public define HTML  html_tag(String tag_name, List(HTML_Head_Tag) heads)                                                       = html_tag(tag_name, heads,   [],      []).
+//public define HTML  html_tag(String tag_name, HTML_Head_Tag head)                                                             = html_tag(tag_name, [head],  [],      []).
+//
+//public define HTML  html_tag(String tag_name, List(CoreAttrs) attrs, List(HTML) contents)  = html_tag(tag_name, [], attrs,   contents).
+//public define HTML  html_tag(String tag_name, List(CoreAttrs) attrs, HTML content)        = html_tag(tag_name, [], attrs,   [content]).
+//public define HTML  html_tag(String tag_name, CoreAttrs attr, List(HTML) contents)         = html_tag(tag_name, [], [attr],  contents).
+//public define HTML  html_tag(String tag_name, CoreAttrs attr, HTML content)               = html_tag(tag_name, [], [attr],  [content]).
+//public define HTML  html_tag(String tag_name, List(CoreAttrs) attrs)                               = html_tag(tag_name, [], attrs,   []).
+//public define HTML  html_tag(String tag_name, CoreAttrs attr)                                      = html_tag(tag_name, [], [attr],  []).
+//public define HTML  html_tag(String tag_name, List(HTML) contents)                         = html_tag(tag_name, [], [],      contents).
+//public define HTML  html_tag(String tag_name, HTML content)                               = html_tag(tag_name, [], [],      [content]).
+//public define HTML  html_tag(String tag_name)                                                      = html_tag(tag_name, [], [],      []).
+
+//public define HTML  html_tag(String tag_name, List(CoreAttrs) attrs, List(HTML) contents)  = html_tag(tag_name, attrs,   contents).
+public define HTML  html_tag(String tag_name, List(CoreAttrs) attrs, HTML content)        = html_tag(tag_name,  attrs,   [content]).
+public define HTML  html_tag(String tag_name, CoreAttrs attr, List(HTML) contents)         = html_tag(tag_name,  [attr],  contents).
+public define HTML  html_tag(String tag_name, CoreAttrs attr, HTML content)               = html_tag(tag_name,  [attr],  [content]).
+public define HTML  html_tag(String tag_name, List(CoreAttrs) attrs)                               = html_tag(tag_name, attrs,   []).
+public define HTML  html_tag(String tag_name, CoreAttrs attr)                                      = html_tag(tag_name, [attr],  []).
+public define HTML  html_tag(String tag_name, List(HTML) contents)                         = html_tag(tag_name, [],      contents).
+public define HTML  html_tag(String tag_name, HTML content)                               = html_tag(tag_name, [],      [content]).
+public define HTML  html_tag(String tag_name)                                                      = html_tag(tag_name, [],      []).
+
+
+public define HTML text(List(CoreAttrs) attrs, Int i)  = text(attrs,   to_decimal(i)).
+public define HTML text(CoreAttrs attr, Int i)         = text([attr],  i).
+public define HTML text(Int i)                         = text([],      i).
+public define HTML text(String s)                      = text([],      s).
+public define HTML text(CoreAttrs attr, String s)      = text([attr],  s).
+
+public define HTML a(A_href _href)                                                     = a([],     _href, _self, []).
+public define HTML a(List(CoreAttrs) attrs, A_href _href)                              = a(attrs,  _href, _self, []).
+public define HTML a(List(CoreAttrs) attrs, A_href _href, HTML content)       = a(attrs,  _href, _self, [content]).
+public define HTML a(List(CoreAttrs) attrs, A_href _href, List(HTML) content) = a(attrs,  _href, _self, content).
+public define HTML a(A_href _href, HTML content)                              = a([],     _href, _self, [content]).
+public define HTML a(A_href _href, String _text)                                       = a([],     _href, _self, [text(_text)]).
+public define HTML a(A_href _href, List(HTML) content)                        = a([],     _href, _self, content).
+public define HTML a(List(CoreAttrs) attrs, A_href _href, A_target _target, HTML content) = a(attrs,     _href, _target, [content]).
+public define HTML a(CoreAttrs attr, A_href _href, A_target _target, HTML content)        = a([attr],    _href, _target, [content]).
+public define HTML a(A_href _href, A_target _target, HTML content)            = a([],     _href, _target, [content]).
+public define HTML a(A_href _href, A_target _target, List(HTML) content)      = a([],     _href, _target, content).
+public define HTML a(CoreAttrs attr, A_href _href, A_target _target, List(HTML) content)  = a([attr],     _href, _target, content).
+public define HTML a(CoreAttrs attr, A_href _href, List(HTML) content)        = a([attr],     _href, _self, content).
+public define HTML a(CoreAttrs attr, A_href _href, HTML content)              = a([attr],     _href, _self, [content]).
+public define HTML a(List(CoreAttrs) attrs, HTML content)                     = html_tag("a", attrs, [content]).
+public define HTML a(List(CoreAttrs) attrs)                                            = html_tag("a", attrs).
+
+  /// helper for <a> tag
+public define HTML mail_to(String email, HTML element)                        = a(href("mailto:"+email), element). 
+public define HTML foreign_link(Int tsize, String url, String name)                    = a(size(tsize),href(url),text(name)). 
   // <article>
-public define HTML_Off_Form article(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("article", attrs, content).
-public define HTML_Off_Form article(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("article", attrs, [content]).
-public define HTML_Off_Form article(List(HTML_Off_Form) content)                         = html_tag("article", [],    content).
-public define HTML_Off_Form article(HTML_Off_Form content)                               = html_tag("article", [],    [content]).
+public define HTML article(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("article", attrs, content).
+public define HTML article(List(CoreAttrs) attrs, HTML content)        = html_tag("article", attrs, [content]).
+public define HTML article(List(HTML) content)                         = html_tag("article",     content).
+public define HTML article(HTML content)                               = html_tag("article",     [content]).
   // <aside>
-public define HTML_Off_Form aside(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("aside", attrs, content).
-public define HTML_Off_Form aside(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("aside", attrs, [content]).
-public define HTML_Off_Form aside(List(HTML_Off_Form) content)                         = html_tag("aside", [],    content).
-public define HTML_Off_Form aside(HTML_Off_Form content)                               = html_tag("aside", [],    [content]).
+public define HTML aside(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("aside", attrs, content).
+public define HTML aside(List(CoreAttrs) attrs, HTML content)        = html_tag("aside", attrs, [content]).
+public define HTML aside(List(HTML) content)                         = html_tag("aside", content).
+public define HTML aside(HTML content)                               = html_tag("aside", [content]).
   // <b> text in bold face
-public define HTML_Off_Form b(String string)                                          = html_tag("b", [], [text(string)]).
-public define HTML_Off_Form b(List(CoreAttrs) attrs, HTML_Off_Form content)           = html_tag("b", attrs, [content]).
-public define HTML_Off_Form b(CoreAttrs attr, List(HTML_Off_Form) content)            = html_tag("b", [attr], content).
-public define HTML_Off_Form b(CoreAttrs attr, HTML_Off_Form content)                  = html_tag("b", [attr], [content]).
-public define HTML_Off_Form b(List(CoreAttrs) attrs, String string)                   = html_tag("b", attrs, [text(string)]).
-public define HTML_Off_Form b(CoreAttrs attr, String string)                          = html_tag("b", [attr], [text(string)]).
+public define HTML b(String string)                                          = html_tag("b", [text(string)]).
+public define HTML b(List(CoreAttrs) attrs, HTML content)           = html_tag("b", attrs, [content]).
+public define HTML b(CoreAttrs attr, List(HTML) content)            = html_tag("b", [attr], content).
+public define HTML b(CoreAttrs attr, HTML content)                  = html_tag("b", [attr], [content]).
+public define HTML b(List(CoreAttrs) attrs, String string)                   = html_tag("b", attrs, [text(string)]).
+public define HTML b(CoreAttrs attr, String string)                          = html_tag("b", [attr], [text(string)]).
   // <br>
-public define HTML_Off_Form br                                                          = html_void_tag("br", []).
-public define HTML_Off_Form br(List(CoreAttrs) attrs)                                   = html_void_tag("br", attrs).
+public define HTML br                                                          = html_void_tag("br", []).
+public define HTML br(List(CoreAttrs) attrs)                                   = html_void_tag("br", attrs).
   // <button>
-public define HTML_Off_Form button(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("button", attrs,   content).
-public define HTML_Off_Form button(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("button", attrs,   [content]).
-public define HTML_Off_Form button(CoreAttrs attr, List(HTML_Off_Form) content)         = html_tag("button", [attr],  content).
-public define HTML_Off_Form button(CoreAttrs attr, HTML_Off_Form content)               = html_tag("button", [attr],  [content]).
-public define HTML_Off_Form button(List(CoreAttrs) attrs)                               = html_tag("button", attrs,   []).
-public define HTML_Off_Form button(List(CoreAttrs) attrs, String string)                = html_tag("button", attrs,   [text(string)]).
-public define HTML_Off_Form button(List(HTML_Off_Form) content)                         = html_tag("button", [],      content).
-public define HTML_Off_Form button(HTML_Off_Form content)                               = html_tag("button", [],      [content]).
+public define HTML button(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("button", attrs,   content).
+public define HTML button(List(CoreAttrs) attrs, HTML content)        = html_tag("button", attrs,   [content]).
+public define HTML button(CoreAttrs attr, List(HTML) content)         = html_tag("button", [attr],  content).
+public define HTML button(CoreAttrs attr, HTML content)               = html_tag("button", [attr],  [content]).
+public define HTML button(List(CoreAttrs) attrs)                               = html_tag("button", attrs).
+public define HTML button(List(CoreAttrs) attrs, String string)                = html_tag("button", attrs,   [text(string)]).
+public define HTML button(List(HTML) content)                         = html_tag("button",       content).
+public define HTML button(HTML content)                               = html_tag("button",       [content]).
   // <canvas>
-public define HTML_Off_Form canvas(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("canvas", attrs,   content).
-public define HTML_Off_Form canvas(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("canvas", attrs,   [content]).
-public define HTML_Off_Form canvas(CoreAttrs attr, List(HTML_Off_Form) content)         = html_tag("canvas", [attr],  content).
-public define HTML_Off_Form canvas(CoreAttrs attr, HTML_Off_Form content)               = html_tag("canvas", [attr],  [content]).
-public define HTML_Off_Form canvas(List(CoreAttrs) attrs)                               = html_tag("canvas", attrs,   []).
-public define HTML_Off_Form canvas(List(HTML_Off_Form) content)                         = html_tag("canvas", [],      content).
-public define HTML_Off_Form canvas(HTML_Off_Form content)                               = html_tag("canvas", [],      [content]).
-public define HTML_Off_Form canvas(CoreAttrs cattr, Int width, Int height)              = html_tag("canvas", [cattr, 
+public define HTML canvas(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("canvas", attrs,   content).
+public define HTML canvas(List(CoreAttrs) attrs, HTML content)        = html_tag("canvas", attrs,   [content]).
+public define HTML canvas(CoreAttrs attr, List(HTML) content)         = html_tag("canvas", [attr],  content).
+public define HTML canvas(CoreAttrs attr, HTML content)               = html_tag("canvas", [attr],  [content]).
+public define HTML canvas(List(CoreAttrs) attrs)                               = html_tag("canvas", attrs).
+public define HTML canvas(List(HTML) content)                         = html_tag("canvas",       content).
+public define HTML canvas(HTML content)                               = html_tag("canvas",       [content]).
+public define HTML canvas(CoreAttrs cattr, Int width, Int height)              = html_tag("canvas", [cattr, 
                                                                                                               attr("width", to_String(width)),
                                                                                                               attr("height", to_String(height))
-                                                                                                             ],      []).
-public define HTML_Off_Form canvas(List(CoreAttrs) attrs, Int width, Int height)              = html_tag("canvas", [ 
+                                                                                                             ]).
+public define HTML canvas(List(CoreAttrs) attrs, Int width, Int height)              = html_tag("canvas", [ 
                                                                                                               attr("width", to_String(width)),
                                                                                                               attr("height", to_String(height)).
                                                                                                               attrs
-                                                                                                             ],      []).
+                                                                                                             ]).
   // <datalist>
-public define HTML_Off_Form datalist(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("datalist", attrs, content).
-public define HTML_Off_Form datalist(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("datalist", attrs, [content]).
-public define HTML_Off_Form datalist(List(HTML_Off_Form) content)                         = html_tag("datalist", [],    content).
-public define HTML_Off_Form datalist(HTML_Off_Form content)                               = html_tag("datalist", [],    [content]).
+public define HTML datalist(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("datalist", attrs, content).
+public define HTML datalist(List(CoreAttrs) attrs, HTML content)        = html_tag("datalist", attrs, [content]).
+public define HTML datalist(List(HTML) content)                         = html_tag("datalist",     content).
+public define HTML datalist(HTML content)                               = html_tag("datalist",     [content]).
   // <div>
-public define HTML_Off_Form div(List(CoreAttrs) attrs, List(HTML_Off_Form) content)   = html_tag("div", attrs,  content).
-public define HTML_Off_Form div(List(CoreAttrs) attrs, HTML_Off_Form content)         = html_tag("div", attrs,  [content]).
-public define HTML_Off_Form div(CoreAttrs attr, List(HTML_Off_Form) content)          = html_tag("div", [attr], content).
-public define HTML_Off_Form div(CoreAttrs attr, HTML_Off_Form content)                = html_tag("div", [attr], [content]).
-public define HTML_Off_Form div(List(HTML_Off_Form) content)                          = html_tag("div", [],     content).
-public define HTML_Off_Form div(HTML_Off_Form content)                                = html_tag("div", [],     [content]).
-public define HTML_Off_Form div(List(CoreAttrs) attrs)                                = html_tag("div", attrs,  []).
-public define HTML_Off_Form div(CoreAttrs attr)                                       = html_tag("div", [attr], []).
-
-public define HTML_Off_Form div(String string)                                        = html_tag("div", [],     [text(string)]).
-public define HTML_Off_Form div(CoreAttrs attr, String string)                        = html_tag("div", [attr], [text(string)]).
-public define HTML_Off_Form div(List(CoreAttrs) attrs, String string)                 = html_tag("div", attrs,  [text(string)]).
-
-public define HTML_Off_Form div(List(CoreAttrs) attrs, HTML_Partial_Content content)  = div(attrs,  [content]).
-public define HTML_Off_Form div(List(HTML_Partial_Content) content)                   = div([],     content).
-public define HTML_Off_Form div(CoreAttrs attr, HTML_Partial_Content content)         = div([attr], [content]).
-public define HTML_Off_Form div(HTML_Partial_Content content)                         = div([],     [content]).
-
-//public define HTML_Partial_Content div(List(CoreAttrs) attrs, HTML_Partial_Content content)  = partial_content([], div(attrs,  [content])).
-//public define HTML_Partial_Content div(CoreAttrs attr, HTML_Partial_Content content)  = partial_content([], div([attr], [content])).
-//public define HTML_Partial_Content div(List(HTML_Partial_Content) content)            = partial_content([], div([],     content)).
-//public define HTML_Partial_Content div(HTML_Partial_Content content)                  = partial_content([], div([],     [content])).
+public define HTML div(List(CoreAttrs) attrs, List(HTML) content)   = html_tag("div", attrs,  content).
+public define HTML div(List(CoreAttrs) attrs, HTML content)         = html_tag("div", attrs,  [content]).
+public define HTML div(CoreAttrs attr, List(HTML) content)          = html_tag("div", [attr], content).
+public define HTML div(CoreAttrs attr, HTML content)                = html_tag("div", [attr], [content]).
+public define HTML div(List(HTML) content)                          = html_tag("div",     content).
+public define HTML div(HTML content)                                = html_tag("div",     [content]).
+public define HTML div(List(CoreAttrs) attrs)                                = html_tag("div", attrs).
+public define HTML div(CoreAttrs attr)                                       = html_tag("div", [attr]).
+
+public define HTML div(String string)                                        = html_tag("div",      [text(string)]).
+public define HTML div(CoreAttrs attr, String string)                        = html_tag("div", [attr], [text(string)]).
+public define HTML div(List(CoreAttrs) attrs, String string)                 = html_tag("div", attrs,  [text(string)]).
+
+//public define HTML div(List(CoreAttrs) attrs, HTML content)  = html_tag("div", attrs,  [content]).
+//public define HTML div(List(HTML) content)                   = html_tag("div", [],     content).
+//public define HTML div(CoreAttrs attr, HTML content)         = html_tag("div", [attr], [content]).
+//public define HTML div(HTML content)                         = html_tag("div", [],     [content]).
+
+//public define HTML div(List(CoreAttrs) attrs, HTML content)  = partial_content([], div(attrs,  [content])).
+//public define HTML div(CoreAttrs attr, HTML content)  = partial_content([], div([attr], [content])).
+//public define HTML div(List(HTML) content)            = partial_content([], div([],     content)).
+//public define HTML div(HTML content)                  = partial_content([], div([],     [content])).
   // <dd>
-public define HTML_Off_Form dd(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("dd", attrs, content).
-public define HTML_Off_Form dd(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("dd", attrs, [content]).
-public define HTML_Off_Form dd(List(HTML_Off_Form) content)                         = html_tag("dd", [],    content).
-public define HTML_Off_Form dd(HTML_Off_Form content)                               = html_tag("dd", [],    [content]).
+public define HTML dd(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("dd", attrs, content).
+public define HTML dd(List(CoreAttrs) attrs, HTML content)        = html_tag("dd", attrs, [content]).
+public define HTML dd(List(HTML) content)                         = html_tag("dd",    content).
+public define HTML dd(HTML content)                               = html_tag("dd",    [content]).
   // <dl>
-public define HTML_Off_Form dl(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("dl", attrs, content).
-public define HTML_Off_Form dl(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("dl", attrs, [content]).
-public define HTML_Off_Form dl(List(HTML_Off_Form) content)                         = html_tag("dl", [],    content).
-public define HTML_Off_Form dl(HTML_Off_Form content)                               = html_tag("dl", [],    [content]).
+public define HTML dl(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("dl", attrs, content).
+public define HTML dl(List(CoreAttrs) attrs, HTML content)        = html_tag("dl", attrs, [content]).
+public define HTML dl(List(HTML) content)                         = html_tag("dl",     content).
+public define HTML dl(HTML content)                               = html_tag("dl",     [content]).
   // <dt>
-public define HTML_Off_Form dt(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("dt", attrs, content).
-public define HTML_Off_Form dt(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("dt", attrs, [content]).
-public define HTML_Off_Form dt(List(HTML_Off_Form) content)                         = html_tag("dt", [],    content).
-public define HTML_Off_Form dt(HTML_Off_Form content)                               = html_tag("dt", [],    [content]).
+public define HTML dt(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("dt", attrs, content).
+public define HTML dt(List(CoreAttrs) attrs, HTML content)        = html_tag("dt", attrs, [content]).
+public define HTML dt(List(HTML) content)                         = html_tag("dt",     content).
+public define HTML dt(HTML content)                               = html_tag("dt",     [content]).
   // <em>
-public define HTML_Off_Form em(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("em", attrs, content).
-public define HTML_Off_Form em(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("em", attrs, [content]).
-public define HTML_Off_Form em(List(HTML_Off_Form) content)                         = html_tag("em", [],    content).
-public define HTML_Off_Form em(HTML_Off_Form content)                               = html_tag("em", [],    [content]).
+public define HTML em(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("em", attrs, content).
+public define HTML em(List(CoreAttrs) attrs, HTML content)        = html_tag("em", attrs, [content]).
+public define HTML em(List(HTML) content)                         = html_tag("em",     content).
+public define HTML em(HTML content)                               = html_tag("em",     [content]).
+
+  // <fieldset>
+public define HTML fieldset(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("fieldset", attrs, content).
+public define HTML fieldset(List(CoreAttrs) attrs, HTML content)        = html_tag("fieldset", attrs, [content]).
+public define HTML fieldset(List(HTML) content)                         = html_tag("fieldset",    content).
+public define HTML fieldset(HTML content)                               = html_tag("fieldset",    [content]).
   // <footer>
-public define HTML_Off_Form footer(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("footer", attrs, content).
-public define HTML_Off_Form footer(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("footer", attrs, [content]).
-public define HTML_Off_Form footer(List(HTML_Off_Form) content)                         = html_tag("footer", [],    content).
-public define HTML_Off_Form footer(HTML_Off_Form content)                               = html_tag("footer", [],    [content]).
+public define HTML footer(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("footer", attrs, content).
+public define HTML footer(List(CoreAttrs) attrs, HTML content)        = html_tag("footer", attrs, [content]).
+public define HTML footer(List(HTML) content)                         = html_tag("footer",     content).
+public define HTML footer(HTML content)                               = html_tag("footer",     [content]).
   // <form>
-public define HTML_Off_Form form(List(CoreAttrs) attrs, List(HTML_Off_Form) content)    = html_tag("form", attrs, content).
-public define HTML_Off_Form form(List(CoreAttrs) attrs, HTML_Off_Form content)          = html_tag("form", attrs, [content]).
-public define HTML_Off_Form form(CoreAttrs attr, List(HTML_Off_Form) content)           = html_tag("form", [attr], content).
-public define HTML_Off_Form form(CoreAttrs attr, HTML_Off_Form content)                 = html_tag("form", [attr], [content]).
-public define HTML_Off_Form form(List(CoreAttrs) attrs)                                 = html_tag("form", attrs, []).
-public define HTML_Off_Form form(CoreAttrs attr)                                        = html_tag("form", [attr], []).
+public define HTML form(List(CoreAttrs) attrs, List(HTML) content)    = html_tag("form", attrs, content).
+public define HTML form(List(CoreAttrs) attrs, HTML content)          = html_tag("form", attrs, [content]).
+public define HTML form(CoreAttrs attr, List(HTML) content)           = html_tag("form", [attr], content).
+public define HTML form(CoreAttrs attr, HTML content)                 = html_tag("form", [attr], [content]).
+public define HTML form(List(CoreAttrs) attrs)                                 = html_tag("form", attrs).
+public define HTML form(CoreAttrs attr)                                        = html_tag("form", [attr]).
-public define HTML_Off_Form form(List(HTML_Off_Form) content)                           = html_tag("form", [],    content).
-public define HTML_Off_Form form(HTML_Off_Form content)                                 = html_tag("form", [],    [content]).
+public define HTML form(List(HTML) content)                           = html_tag("form",     content).
+public define HTML form(HTML content)                                 = html_tag("form",     [content]).
   // <header>
-public define HTML_Off_Form header(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("header", attrs, content).
-public define HTML_Off_Form header(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("header", attrs, [content]).
-public define HTML_Off_Form header(List(HTML_Off_Form) content)                         = html_tag("header", [],    content).
-public define HTML_Off_Form header(HTML_Off_Form content)                               = html_tag("header", [],    [content]).
+public define HTML header(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("header", attrs, content).
+public define HTML header(List(CoreAttrs) attrs, HTML content)        = html_tag("header", attrs, [content]).
+public define HTML header(List(HTML) content)                         = html_tag("header",     content).
+public define HTML header(HTML content)                               = html_tag("header",     [content]).
   // <h1>
-public define HTML_Off_Form h1(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("h1", attrs, content).
-public define HTML_Off_Form h1(CoreAttrs attr, List(HTML_Off_Form) content)         = html_tag("h1", [attr], content).
-public define HTML_Off_Form h1(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("h1", attrs, [content]).
-public define HTML_Off_Form h1(CoreAttrs attr, HTML_Off_Form content)               = html_tag("h1", [attr], [content]).
-public define HTML_Off_Form h1(List(HTML_Off_Form) content)                         = html_tag("h1", [],    content).
-public define HTML_Off_Form h1(HTML_Off_Form content)                               = html_tag("h1", [],    [content]).
+public define HTML h1(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("h1", attrs, content).
+public define HTML h1(CoreAttrs attr, List(HTML) content)         = html_tag("h1", [attr], content).
+public define HTML h1(List(CoreAttrs) attrs, HTML content)        = html_tag("h1", attrs, [content]).
+public define HTML h1(CoreAttrs attr, HTML content)               = html_tag("h1", [attr], [content]).
+public define HTML h1(List(HTML) content)                         = html_tag("h1",     content).
+public define HTML h1(HTML content)                               = html_tag("h1",     [content]).
   // <h2>
-public define HTML_Off_Form h2(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("h2", attrs, content).
-public define HTML_Off_Form h2(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("h2", attrs, [content]).
-public define HTML_Off_Form h2(List(HTML_Off_Form) content)                         = html_tag("h2", [],    content).
-public define HTML_Off_Form h2(HTML_Off_Form content)                               = html_tag("h2", [],    [content]).
+public define HTML h2(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("h2", attrs, content).
+public define HTML h2(List(CoreAttrs) attrs, HTML content)        = html_tag("h2", attrs, [content]).
+public define HTML h2(List(HTML) content)                         = html_tag("h2",     content).
+public define HTML h2(HTML content)                               = html_tag("h2",     [content]).
   // <h3>
-public define HTML_Off_Form h3(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("h3", attrs, content).
-public define HTML_Off_Form h3(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("h3", attrs, [content]).
-public define HTML_Off_Form h3(List(HTML_Off_Form) content)                         = html_tag("h3", [],    content).
-public define HTML_Off_Form h3(HTML_Off_Form content)                               = html_tag("h3", [],    [content]).
+public define HTML h3(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("h3", attrs, content).
+public define HTML h3(List(CoreAttrs) attrs, HTML content)        = html_tag("h3", attrs, [content]).
+public define HTML h3(List(HTML) content)                         = html_tag("h3",     content).
+public define HTML h3(HTML content)                               = html_tag("h3",     [content]).
+public define HTML h3(String content)                                      = html_tag("h3",     [text(content)]).
+
   // <h4>
-public define HTML_Off_Form h4(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("h4", attrs, content).
-public define HTML_Off_Form h4(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("h4", attrs, [content]).
-public define HTML_Off_Form h4(List(HTML_Off_Form) content)                         = html_tag("h4", [],    content).
-public define HTML_Off_Form h4(HTML_Off_Form content)                               = html_tag("h4", [],    [content]).
+public define HTML h4(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("h4", attrs, content).
+public define HTML h4(List(CoreAttrs) attrs, HTML content)        = html_tag("h4", attrs, [content]).
+public define HTML h4(List(HTML) content)                         = html_tag("h4",     content).
+public define HTML h4(HTML content)                               = html_tag("h4",     [content]).
   // <h5>
-public define HTML_Off_Form h5(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("h5", attrs, content).
-public define HTML_Off_Form h5(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("h5", attrs, [content]).
-public define HTML_Off_Form h5(List(HTML_Off_Form) content)                         = html_tag("h5", [],    content).
-public define HTML_Off_Form h5(HTML_Off_Form content)                               = html_tag("h5", [],    [content]).
+public define HTML h5(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("h5", attrs, content).
+public define HTML h5(List(CoreAttrs) attrs, HTML content)        = html_tag("h5", attrs, [content]).
+public define HTML h5(List(HTML) content)                         = html_tag("h5",     content).
+public define HTML h5(HTML content)                               = html_tag("h5",     [content]).
   // <h6>
-public define HTML_Off_Form h6(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("h6", attrs, content).
-public define HTML_Off_Form h6(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("h6", attrs, [content]).
-public define HTML_Off_Form h6(List(HTML_Off_Form) content)                         = html_tag("h6", [],    content).
-public define HTML_Off_Form h6(HTML_Off_Form content)                               = html_tag("h6", [],    [content]).
+public define HTML h6(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("h6", attrs, content).
+public define HTML h6(List(CoreAttrs) attrs, HTML content)        = html_tag("h6", attrs, [content]).
+public define HTML h6(List(HTML) content)                         = html_tag("h6",     content).
+public define HTML h6(HTML content)                               = html_tag("h6",     [content]).
   // <hr>
-public define HTML_Off_Form hr                                                      = html_void_tag("hr", []).
-public define HTML_Off_Form hr(List(CoreAttrs) attrs)                               = html_void_tag("hr", attrs).
-public define HTML_Off_Form hr(CoreAttrs attr)                                      = html_void_tag("hr", [attr]).
+public define HTML hr                                                      = html_void_tag("hr", []).
+public define HTML hr(List(CoreAttrs) attrs)                               = html_void_tag("hr", attrs).
+public define HTML hr(CoreAttrs attr)                                      = html_void_tag("hr", [attr]).
   // <i>
-public define HTML_Off_Form i(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("i", attrs,   content).
-public define HTML_Off_Form i(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("i", attrs,   [content]).
-public define HTML_Off_Form i(CoreAttrs attr, List(HTML_Off_Form) content)         = html_tag("i", [attr],  content).
-public define HTML_Off_Form i(CoreAttrs attr, HTML_Off_Form content)               = html_tag("i", [attr],  [content]).
-public define HTML_Off_Form i(List(HTML_Off_Form) content)                         = html_tag("i", [],      content).
-public define HTML_Off_Form i(HTML_Off_Form content)                               = html_tag("i", [],      [content]).
-public define HTML_Off_Form i(String string)                                       = html_tag("i", [],      [text(string)]).
-public define HTML_Off_Form i(CoreAttrs attr, String string)                       = html_tag("i", [attr],  [text(string)]).
-public define HTML_Off_Form i(List(CoreAttrs) attrs, String string)                = html_tag("i", attrs,   [text(string)]).
+public define HTML i(List(CoreAttrs) attrs, List(HTML) content)   = html_tag("i", attrs,   content).
+public define HTML i(List(CoreAttrs) attrs, HTML content)         = html_tag("i", attrs,   [content]).
+public define HTML i(List(CoreAttrs) attrs)                                = html_tag("i", attrs).
+public define HTML i(CoreAttrs attr, List(HTML) content)          = html_tag("i", [attr],  content).
+public define HTML i(CoreAttrs attr, HTML content)                = html_tag("i", [attr],  [content]).
+public define HTML i(List(HTML) content)                          = html_tag("i",       content).
+public define HTML i(HTML content)                                = html_tag("i",       [content]).
+public define HTML i(String string)                                        = html_tag("i",       [text(string)]).
+public define HTML i(CoreAttrs attr, String string)                        = html_tag("i", [attr],  [text(string)]).
+public define HTML i(List(CoreAttrs) attrs, String string)                 = html_tag("i", attrs,   [text(string)]).
   // <iframe>
-public define HTML_Off_Form iframe(CoreAttrs _attr, String src, Int width, Int height) =
-  html_tag("iframe", [_attr, attr("src",src), width_px(width), height_px(height)], []).
-public define HTML_Off_Form iframe(String src, Int width, Int height) =
-  html_tag("iframe", [attr("src",src), width_px(width), height_px(height)], []).
-public define HTML_Off_Form iframe(String src)                                      = html_tag("iframe", [attr("src",src)], []).
+public define HTML iframe(CoreAttrs _attr, String src, Int width, Int height) =
+  html_tag("iframe", [_attr, attr("src",src), width_px(width), height_px(height)]).
+public define HTML iframe(String src, Int width, Int height) =
+  html_tag("iframe", [attr("src",src), width_px(width), height_px(height)]).
+public define HTML iframe(String src)                                      = html_tag("iframe", [attr("src",src)]).
   // <input>
-public define HTML_Off_Form input(List(CoreAttrs) attrs)                            = html_void_tag("input", attrs).
-public define HTML_Off_Form input(CoreAttrs attr)                                   = html_void_tag("input", [attr]).
+public define HTML input(List(CoreAttrs) attrs)                            = html_void_tag("input", attrs).
+public define HTML input(CoreAttrs attr)                                   = html_void_tag("input", [attr]).
 public define CoreAttrs type(Input_Type value)= attr("type", to_String(value)).
 public define CoreAttrs type(String value)= attr("type", value).
@@ -1653,359 +1472,484 @@ public define CoreAttrs name(String value)= attr(&quot;name&quot;, value).
 public define CoreAttrs value(String value)= attr("value", value).
 public define CoreAttrs placeholder(String value) = attr("placeholder", value).
 public define CoreAttrs init(String value)= attr("value", encode_HTML_entities(value)).
+
   //-- BEGIN of <input> preset type
-  
+
+  /// hidden value
+public define HTML hidden(List(CoreAttrs) attrs, String _name, String _value, String form)   = input([type(hidden), name(_name), value(encode_HTML_entities(_value)), attr("form", form) . attrs]).
+public define HTML hidden(CoreAttrs attr, String name, String value, String form)            = hidden([attr], name, value, form).
+public define HTML hidden(String name, String value, String form)                            = hidden([], name, value, form).
+public define HTML hidden(String _name, String _value)                                       = input([type(hidden), name(_name), value(encode_HTML_entities(_value))]).
+
+public define HTML text_input(List(CoreAttrs) options, HTML_Label label, HTML_Id _id, WebArgName wan, InitialValue init, Int w) = 
+        sequence([
+          format_label(label, _id),
+          input([class("in"), type(text), id(_id.id), name(wan.name), size(w), value(encode_HTML_entities(init.value)). options])
+        ]).
+
+public define HTML  text_input(HTML_Label label,  HTML_Id _id, WebArgName wan, InitialValue init, Int _width) = 
+        sequence([
+          format_label(label, _id),
+          input([class("in"), type(text), id(_id.id), name(wan.name), size(_width), value(encode_HTML_entities(init.value))])
+        ]).
+        
+        
+//       text_input_ro(options, label_text, id, name, init, w)           then 
+//         [ format_label(label_text, id), 
+//           "<input readonly=\"readonly\" type=\"text\" name=\"",name,"\" id=\"",id,"\" size=\"",w,"\" value=\"",encode_HTML_entities(init.value),"\"",format_attrs([class("in") . options])," />"],
+
+public define HTML text_input_ro(List(CoreAttrs) options, HTML_Label label, HTML_Id _id, WebArgName wan, InitialValue init, Int w) = 
+        sequence([
+          format_label(label, _id),
+          input([class("in"), boolean("readonly"), type(text), id(_id.id), name(wan.name), size(w), value(encode_HTML_entities(init.value)). options])
+        ]).
+        
+public define HTML password_input(List(CoreAttrs) attrs, HTML_Label label, HTML_Id _id, WebArgName wan, InitialValue init, Int w) = 
+        sequence([
+          format_label(label, _id),
+          input([class("in"), type(password), id(_id.id), name(wan.name), size(w), value(encode_HTML_entities(init.value)). attrs])
+        ]).
+
+
   /// Checkbox
-public define HTML_Off_Form checkbox(List(CoreAttrs) attrs, String name, String form, Bool checked) = input([type("checkbox"), attr("name",name), attr("form", form), bool_attr(checked, "checked") . attrs]).
-public define HTML_Off_Form checkbox(List(CoreAttrs) attrs, String name, Bool checked)              = input([type("checkbox"), attr("name",name), bool_attr(checked, "checked") . attrs]).
-public define HTML_Off_Form checkbox(String name, String form, Bool checked)                        = checkbox([], name, form, checked).
-public define HTML_Off_Form checkbox(String name, Bool checked)                                     = checkbox([], name, checked).
+ 
+public define HTML checkbox(List(CoreAttrs) attrs)                                           = input([type(checkbox) . attrs]).
+public define HTML checkbox(List(CoreAttrs) attrs, String _name, String _form, Bool checked) = input([type(checkbox), name(_name), form(_form), bool_attr(checked, "checked") . attrs]).
+public define HTML checkbox(List(CoreAttrs) attrs, String _name, Bool checked)               = input([type(checkbox), name(_name), bool_attr(checked, "checked") . attrs]).
+public define HTML checkbox(String name, String form, Bool checked)                          = checkbox([], name, form, checked).
+public define HTML checkbox(String name, Bool checked)                                       = checkbox([], name, checked).
+
+public define HTML check_box(List(CoreAttrs) attrs, HTML_Label label,  HTML_Id _id, WebArgName wan, Bool checked) =
+          sequence([
+            format_label(label, _id),
+            hidden("~"+wan.name, "~true"),
+            input([type(checkbox), name(wan.name), id(_id.id), value("true"), bool_attr(checked, "checked"), class("in") . attrs])
+          ])
+.
+
+public define HTML check_box(List(CoreAttrs) attrs, HTML_Label label, WebArgName wan, Bool checked)
+  = check_box   (attrs, label, html_Id(wan.name), wan, checked).
+
+public define HTML check_box_r(List(CoreAttrs) attrs, HTML_Label label,  HTML_Id _id, WebArgName wan, Bool checked) =
+          sequence([
+            input([type(checkbox), name(wan.name), id(_id.id), value("true"), bool_attr(checked, "checked"), class("in") . attrs]),
+            format_label(label, _id),
+            hidden("~"+wan.name, "~true"),
+          ])
+.
+public define HTML check_box_r(List(CoreAttrs) attrs, HTML_Label label, WebArgName wan, Bool checked)
+  = check_box_r   (attrs, label, html_Id(wan.name), wan, checked).
+
+public define HTML file_upload(List(CoreAttrs) attrs, HTML_Label label, HTML_Id _id, WebArgName wan, Int width)=
+            sequence([ 
+              format_label(label, _id),
+              input([type(file), id(_id.id), size(width), name(wan.name), class("in") . attrs])
+            ])
+.
+public define HTML file_upload(WebArgName n, Int width)= file_upload([], no_label, html_Id(n.name), n, width).
+  
   /// Radio button
-public define HTML_Off_Form radio(List(CoreAttrs) attrs, String name, String value, String form, Bool checked) = input([type("radio"), attr("name",name), attr("value",value), attr("form", form), bool_attr(checked, "checked") . attrs]).
-public define HTML_Off_Form radio(List(CoreAttrs) attrs, String name, String value, String form)  = radio(attrs, name, value, form, false).
-public define HTML_Off_Form radio(String name, String value, String form, Bool checked)           = radio([], name, value, form, checked).
-public define HTML_Off_Form radio(String name, String value, String form)                         = radio([], name, value, form, false).
+public define HTML radio(List(CoreAttrs) attrs, String _name, String _value, String _form, Bool checked) = input([type(radio), name(_name), value(_value), form(_form), bool_attr(checked, "checked") . attrs]).
+public define HTML radio(List(CoreAttrs) attrs, String name, String value, String form)                  = radio(attrs, name, value, form, false).
+public define HTML radio(String name, String value, String form, Bool checked)                           = radio([], name, value, form, checked).
+public define HTML radio(String name, String value, String form)                                         = radio([], name, value, form, false).
+public define HTML radio(String _name, String _value)                                                    = input([type(radio), name(_name), value(_value)]).
+
+public define HTML radio_button(List(CoreAttrs) attrs, HTML_Label label, HTML_Id _id, WebArgName wan, WebArgValue _value, Bool checked) =
+         sequence([
+          format_label(label, _id),
+          input([type(radio), name(wan.name), id(_id.id), value(_value.value), bool_attr(checked, "checked"), class("in") . attrs])
+         ])
+.
-  /// hidden value
-public define HTML_Off_Form hidden(List(CoreAttrs) attrs, String name, String value, String form) = input([type("hidden"), attr("name",name), attr("value",value), attr("form", form) . attrs]).
-public define HTML_Off_Form hidden(CoreAttrs attr, String name, String value, String form)        = hidden([attr],  name, value, form).
-public define HTML_Off_Form hidden(String name, String value, String form)                        = hidden([], name, value, form).
-public define HTML_Off_Form hidden(String _name, String _value)                                    = input([type("hidden"), name(_name), value(_value)]).
+public define HTML radio_button(List(CoreAttrs) attrs, HTML_Label label, WebArgName wan, WebArgValue value, Bool checked)
+  = radio_button (attrs, label, html_Id(wan.name), wan, value, checked).
+
+
+public define HTML radio_button_r(List(CoreAttrs) attrs, HTML_Label label, HTML_Id _id, WebArgName wan, WebArgValue _value, Bool checked) =
+         sequence([
+          input([type(radio), name(wan.name), id(_id.id), value(_value.value), bool_attr(checked, "checked"), class("in") . attrs]),
+          format_label(label, _id)
+         ])
+.
+public define HTML radio_button_r(List(CoreAttrs) attrs, HTML_Label label, WebArgName wan, WebArgValue value, Bool checked)
+  = radio_button_r(attrs, label, html_Id(wan.name), wan, value, checked).
+  
   //-- END  of <input> preset type
   // <img>
-public define HTML_Off_Form img(List(CoreAttrs) attrs, String src, String alt)      = html_void_tag("img", attrs + [attr("src",src), attr("alt",alt)] ).
-public define HTML_Off_Form img(CoreAttrs _attr, String src, String alt)            = html_void_tag("img", [_attr, attr("src",src), attr("alt",alt)] ).
-public define HTML_Off_Form img(String src)                                         = img([], src, "").
-public define HTML_Off_Form img(String src, String alt)                             = img([], src, alt).
-public define HTML_Off_Form img(List(CoreAttrs) attrs, String src)                  = img(attrs, src, "").
-public define HTML_Off_Form img(CoreAttrs attr, String src)                         = img([attr], src, "").
-public define HTML_Off_Form img(String src, Int width, Int height)                  = img([attr("width",to_String(width)+"px"), attr("height",to_String(height)+"px")], src, src).
-public define HTML_Off_Form img(String src, String alt, Int width, Int height) =
+public define HTML img(List(CoreAttrs) attrs, String src, String alt)      = html_void_tag("img", attrs + [attr("src",src), attr("alt",alt)] ).
+public define HTML img(CoreAttrs _attr, String src, String alt)            = html_void_tag("img", [_attr, attr("src",src), attr("alt",alt)] ).
+public define HTML img(String src)                                         = img([], src, "").
+public define HTML img(String src, String alt)                             = img([], src, alt).
+public define HTML img(List(CoreAttrs) attrs, String src)                  = img(attrs, src, "").
+public define HTML img(CoreAttrs attr, String src)                         = img([attr], src, "").
+public define HTML img(String src, Int width, Int height)                  = img([attr("width",to_String(width)+"px"), attr("height",to_String(height)+"px")], src, src).
+public define HTML img(String src, String alt, Int width, Int height) =
   html_void_tag("img", [attr("src",src), attr("alt",alt), attr("width",to_String(width)+"px"), attr("height",to_String(height)+"px")]).
-public define HTML_Off_Form img(List(CoreAttrs) attrs, String src, String alt, Int width, Int height) =
+public define HTML img(List(CoreAttrs) attrs, String src, String alt, Int width, Int height) =
   html_void_tag("img", attrs + [attr("src",src), attr("alt",alt), attr("width",to_String(width)+"px"), attr("height",to_String(height)+"px")]).
-public define HTML_Off_Form img(CoreAttrs _attr, String src, String alt, Int width, Int height) =
+public define HTML img(CoreAttrs _attr, String src, String alt, Int width, Int height) =
   html_void_tag("img", [_attr, attr("src",src), attr("alt",alt), width_px(width), height_px(height)]).
   // <label>
-public define HTML_Off_Form label(List(CoreAttrs) attrs, List(HTML_Off_Form) content)   = html_tag("label", attrs,  content).
-public define HTML_Off_Form label(CoreAttrs attr, List(HTML_Off_Form) content)          = html_tag("label", [attr], content).
-public define HTML_Off_Form label(List(HTML_Off_Form) content)                          = html_tag("label", [],     content).
-public define HTML_Off_Form label(HTML_Off_Form content)                                = html_tag("label", [],     [content]).
-public define HTML_Off_Form label(String string)                                        = html_tag("label", [],     [text(string)]).
-public define HTML_Off_Form label(CoreAttrs attr, String string)                        = html_tag("label", [attr], [text(string)]).
-public define HTML_Off_Form label(List(CoreAttrs) attrs, String string)                 = html_tag("label", attrs,  [text(string)]).
+public define HTML label(List(CoreAttrs) attrs, List(HTML) content)   = html_tag("label", attrs,  content).
+public define HTML label(CoreAttrs attr, List(HTML) content)          = html_tag("label", [attr], content).
+public define HTML label(List(HTML) content)                          = html_tag("label",      content).
+public define HTML label(HTML content)                                = html_tag("label",      [content]).
+public define HTML label(String string)                                        = html_tag("label",      [text(string)]).
+public define HTML label(CoreAttrs attr, String string)                        = html_tag("label", [attr], [text(string)]).
+public define HTML label(List(CoreAttrs) attrs, String string)                 = html_tag("label", attrs,  [text(string)]).
+
+  // <legend>
+public define HTML legend(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("legend", attrs,   content).
+public define HTML legend(List(CoreAttrs) attrs, HTML content)        = html_tag("legend", attrs,   [content]).
+public define HTML legend(CoreAttrs attr, List(HTML) content)         = html_tag("legend", [attr],  content).
+public define HTML legend(CoreAttrs attr, HTML content)               = html_tag("legend", [attr],  [content]).
+public define HTML legend(List(HTML) content)                         = html_tag("legend",       content).
+public define HTML legend(HTML content)                               = html_tag("legend",       [content]).
+public define HTML legend(String content)                                      = html_tag("legend",      [text(content)]).
   // <li>
-public define HTML_Off_Form li(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("li", attrs,   content).
-public define HTML_Off_Form li(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("li", attrs,   [content]).
-public define HTML_Off_Form li(CoreAttrs attr, List(HTML_Off_Form) content)         = html_tag("li", [attr],  content).
-public define HTML_Off_Form li(CoreAttrs attr, HTML_Off_Form content)               = html_tag("li", [attr],  [content]).
-public define HTML_Off_Form li(List(HTML_Off_Form) content)                         = html_tag("li", [],      content).
-public define HTML_Off_Form li(HTML_Off_Form content)                               = html_tag("li", [],      [content]).
-public define HTML_Off_Form li(String string)                                        = html_tag("li", [],     [text(string)]).
-public define HTML_Off_Form li(CoreAttrs attr, String string)                        = html_tag("li", [attr], [text(string)]).
-public define HTML_Off_Form li(List(CoreAttrs) attrs, String string)                 = html_tag("li", attrs,  [text(string)]).
+public define HTML li(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("li", attrs,   content).
+public define HTML li(List(CoreAttrs) attrs, HTML content)        = html_tag("li", attrs,   [content]).
+public define HTML li(CoreAttrs attr, List(HTML) content)         = html_tag("li", [attr],  content).
+public define HTML li(CoreAttrs attr, HTML content)               = html_tag("li", [attr],  [content]).
+public define HTML li(List(HTML) content)                         = html_tag("li",       content).
+public define HTML li(HTML content)                               = html_tag("li",       [content]).
+public define HTML li(String string)                                        = html_tag("li",      [text(string)]).
+public define HTML li(CoreAttrs attr, String string)                        = html_tag("li", [attr], [text(string)]).
+public define HTML li(List(CoreAttrs) attrs, String string)                 = html_tag("li", attrs,  [text(string)]).
   // <main>
-public define HTML_Off_Form main(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("main", attrs, content).
-public define HTML_Off_Form main(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("main", attrs, [content]).
-public define HTML_Off_Form main(CoreAttrs attr, List(HTML_Off_Form) content)         = html_tag("main", [attr], content).
-public define HTML_Off_Form main(CoreAttrs attr, HTML_Off_Form content)               = html_tag("main", [attr], [content]).
-public define HTML_Off_Form main(List(HTML_Off_Form) content)                         = html_tag("main", [],    content).
-public define HTML_Off_Form main(HTML_Off_Form content)                               = html_tag("main", [],    [content]).
+public define HTML main(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("main", attrs, content).
+public define HTML main(List(CoreAttrs) attrs, HTML content)        = html_tag("main", attrs, [content]).
+public define HTML main(CoreAttrs attr, List(HTML) content)         = html_tag("main", [attr], content).
+public define HTML main(CoreAttrs attr, HTML content)               = html_tag("main", [attr], [content]).
+public define HTML main(List(HTML) content)                         = html_tag("main",     content).
+public define HTML main(HTML content)                               = html_tag("main",     [content]).
   // <nav>
-public define HTML_Off_Form nav(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("nav", attrs, content).
-public define HTML_Off_Form nav(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("nav", attrs, [content]).
-public define HTML_Off_Form nav(List(HTML_Off_Form) content)                         = html_tag("nav", [],    content).
-public define HTML_Off_Form nav(HTML_Off_Form content)                               = html_tag("nav", [],    [content]).
+public define HTML nav(List(CoreAttrs) attrs, List(HTML) content)   = html_tag("nav", attrs, content).
+public define HTML nav(List(CoreAttrs) attrs, HTML content)         = html_tag("nav", attrs, [content]).
+public define HTML nav(CoreAttrs attr, List(HTML) content)          = html_tag("nav", [attr], content).
+public define HTML nav(CoreAttrs attr, HTML content)                = html_tag("nav", [attr], [content]).
+public define HTML nav(List(HTML) content)                          = html_tag("nav",     content).
+public define HTML nav(HTML content)                                = html_tag("nav",     [content]).
   // <ol>
-public define HTML_Off_Form ol(List(CoreAttrs) attrs, List(HTML_Off_Form) content)        = html_tag("ol", attrs, content).
-public define HTML_Off_Form ol(List(CoreAttrs) attrs, HTML_Off_Form content)              = html_tag("ol", attrs, [content]).
-public define HTML_Off_Form ol(List(HTML_Off_Form) content)                               = html_tag("ol", [],    content).
-public define HTML_Off_Form ol(HTML_Off_Form content)                                     = html_tag("ol", [],    [content]).
+public define HTML ol(List(CoreAttrs) attrs, List(HTML) content)        = html_tag("ol", attrs, content).
+public define HTML ol(List(CoreAttrs) attrs, HTML content)              = html_tag("ol", attrs, [content]).
+public define HTML ol(List(HTML) content)                               = html_tag("ol",     content).
+public define HTML ol(HTML content)                                     = html_tag("ol",     [content]).
   // <option>
-public define HTML_Off_Form option(List(CoreAttrs) attrs, List(HTML_Off_Form) content)    = html_tag("option", attrs,   content).
-public define HTML_Off_Form option(List(CoreAttrs) attrs, HTML_Off_Form content)          = html_tag("option", attrs,  [content]).
-public define HTML_Off_Form option(List(HTML_Off_Form) content)                           = html_tag("option", [],      content).
-public define HTML_Off_Form option(CoreAttrs attr, HTML_Off_Form content)                 = html_tag("option", [attr], [content]).
-public define HTML_Off_Form option(HTML_Off_Form content)                                 = html_tag("option", [],     [content]).
-public define HTML_Off_Form option(String _value, String _text)                           = html_tag("option", [value(_value)], [text(_text)]).
+public define HTML option(List(CoreAttrs) attrs, List(HTML) content)    = html_tag("option", attrs,   content).
+public define HTML option(List(CoreAttrs) attrs, HTML content)          = html_tag("option", attrs,  [content]).
+public define HTML option(List(HTML) content)                           = html_tag("option",       content).
+public define HTML option(CoreAttrs attr, HTML content)                 = html_tag("option", [attr], [content]).
+public define HTML option(HTML content)                                 = html_tag("option",      [content]).
+public define HTML option(String _value, String _text)                           = html_tag("option", [value(_value)], [text(_text)]).
+
   // <p>
-public define HTML_Off_Form p(List(CoreAttrs) attrs, List(HTML_Off_Form) content)         = html_tag("p", attrs, content).
-public define HTML_Off_Form p(List(CoreAttrs) attrs, HTML_Off_Form content)               = html_tag("p", attrs, [content]).
-public define HTML_Off_Form p(CoreAttrs attr, List(HTML_Off_Form) content)                = html_tag("p", [attr], content).
-public define HTML_Off_Form p(CoreAttrs attr, HTML_Off_Form content)                      = html_tag("p", [attr], [content]).
-public define HTML_Off_Form p(CoreAttrs attr, String _text)                               = html_tag("p", [attr], [text(_text)]).
-public define HTML_Off_Form p(List(HTML_Off_Form) content)                                = html_tag("p", [],    content).
-public define HTML_Off_Form p(HTML_Off_Form content)                                      = html_tag("p", [],    [content]).
+public define HTML p(List(CoreAttrs) attrs, List(HTML) content)         = html_tag("p", attrs, content).
+public define HTML p(List(CoreAttrs) attrs, HTML content)               = html_tag("p", attrs, [content]).
+public define HTML p(CoreAttrs attr, List(HTML) content)                = html_tag("p", [attr], content).
+public define HTML p(CoreAttrs attr, HTML content)                      = html_tag("p", [attr], [content]).
+public define HTML p(CoreAttrs attr, String _text)                               = html_tag("p", [attr], [text(_text)]).
+public define HTML p(List(HTML) content)                                = html_tag("p",     content).
+public define HTML p(HTML content)                                      = html_tag("p",     [content]).
   // <pre>  preformatted
-public define HTML_Off_Form pre(List(CoreAttrs) attrs, List(HTML_Off_Form) content)         = html_tag("pre", attrs, content).
-public define HTML_Off_Form pre(List(CoreAttrs) attrs, HTML_Off_Form content)               = html_tag("pre", attrs, [content]).
-public define HTML_Off_Form pre(CoreAttrs attr, List(HTML_Off_Form) content)                = html_tag("pre", [attr], content).
-public define HTML_Off_Form pre(CoreAttrs attr, HTML_Off_Form content)                      = html_tag("pre", [attr], [content]).
-public define HTML_Off_Form pre(List(HTML_Off_Form) content)                                = html_tag("pre", [],    content).
-public define HTML_Off_Form pre(HTML_Off_Form content)                                      = html_tag("pre", [],    [content]).
-public define HTML_Off_Form pre(String string)                                              = html_tag("pre", [],     [text(string)]).
-public define HTML_Off_Form pre(CoreAttrs attr, String string)                              = html_tag("pre", [attr], [text(string)]).
-public define HTML_Off_Form pre(List(CoreAttrs) attrs, String string)                       = html_tag("pre", attrs,  [text(string)]).
+public define HTML pre(List(CoreAttrs) attrs, List(HTML) content)         = html_tag("pre", attrs, content).
+public define HTML pre(List(CoreAttrs) attrs, HTML content)               = html_tag("pre", attrs, [content]).
+public define HTML pre(CoreAttrs attr, List(HTML) content)                = html_tag("pre", [attr], content).
+public define HTML pre(CoreAttrs attr, HTML content)                      = html_tag("pre", [attr], [content]).
+public define HTML pre(List(HTML) content)                                = html_tag("pre",     content).
+public define HTML pre(HTML content)                                      = html_tag("pre",     [content]).
+public define HTML pre(String string)                                              = html_tag("pre",      [text(string)]).
+public define HTML pre(CoreAttrs attr, String string)                              = html_tag("pre", [attr], [text(string)]).
+public define HTML pre(List(CoreAttrs) attrs, String string)                       = html_tag("pre", attrs,  [text(string)]).
   // <progress>
-public define HTML_Off_Form progress(List(CoreAttrs) attrs, Int value, Int max, List(HTML_Off_Form) content)  = html_tag("progress", [attr("value", value), attr("max", max) . attrs],  content).
-public define HTML_Off_Form progress(List(CoreAttrs) attrs, Int value, Int max, HTML_Off_Form content)        = html_tag("progress", [attr("value", value), attr("max", max) . attrs],  [content]).
-public define HTML_Off_Form progress(CoreAttrs _attr, Int value, Int max, HTML_Off_Form content)              = html_tag("progress", [attr("value", value), attr("max", max) , _attr],   [content]).
-public define HTML_Off_Form progress(Int value, Int max, HTML_Off_Form content)                               = html_tag("progress", [attr("value", value), attr("max", max)], [content]).
-public define HTML_Off_Form progress(List(CoreAttrs) attrs, Int value, Int max, String content)               = html_tag("progress", [attr("value", value), attr("max", max) . attrs], [text(content)]).
-public define HTML_Off_Form progress(CoreAttrs _attr, Int value, Int max, String content)                     = html_tag("progress", [attr("value", value), attr("max", max), _attr], [text(content)]).
-public define HTML_Off_Form progress(List(CoreAttrs) attrs, Int value, Int max)                               = html_tag("progress", [attr("value", value), attr("max", max) . attrs], []).
-public define HTML_Off_Form progress(CoreAttrs _attr, Int value, Int max)                                     = html_tag("progress", [attr("value", value), attr("max", max), _attr], []).
-public define HTML_Off_Form progress(Int value, Int max, String content)                                      = html_tag("progress", [attr("value", value), attr("max", max)], [text(content)]).
-public define HTML_Off_Form progress(Int value, Int max)                                                      = html_tag("progress", [attr("value", value), attr("max", max)], []).
+public define HTML progress(List(CoreAttrs) attrs, Int value, Int max, List(HTML) content)  = html_tag("progress", [attr("value", value), attr("max", max) . attrs],  content).
+public define HTML progress(List(CoreAttrs) attrs, Int value, Int max, HTML content)        = html_tag("progress", [attr("value", value), attr("max", max) . attrs],  [content]).
+public define HTML progress(CoreAttrs _attr, Int value, Int max, HTML content)              = html_tag("progress", [attr("value", value), attr("max", max) , _attr],   [content]).
+public define HTML progress(Int value, Int max, HTML content)                               = html_tag("progress", [attr("value", value), attr("max", max)], [content]).
+public define HTML progress(List(CoreAttrs) attrs, Int value, Int max, String content)               = html_tag("progress", [attr("value", value), attr("max", max) . attrs], [text(content)]).
+public define HTML progress(CoreAttrs _attr, Int value, Int max, String content)                     = html_tag("progress", [attr("value", value), attr("max", max), _attr], [text(content)]).
+public define HTML progress(List(CoreAttrs) attrs, Int value, Int max)                               = html_tag("progress", [attr("value", value), attr("max", max) . attrs]).
+public define HTML progress(CoreAttrs _attr, Int value, Int max)                                     = html_tag("progress", [attr("value", value), attr("max", max), _attr]).
+public define HTML progress(Int value, Int max, String content)                                      = html_tag("progress", [attr("value", value), attr("max", max)], [text(content)]).
+public define HTML progress(Int value, Int max)                                                      = html_tag("progress", [attr("value", value), attr("max", max)]).
   // <script>
-public define HTML_Off_Form script(String file_name, List(JS_Attribute) attrs)           = literal_pt(add_js_files([js_file(file_name, attrs)])).
-public define HTML_Off_Form script(String content)                                       = literal_pt(add_script([script("text/javascript", content)])).
+public define HTML script(String file_name, List(JS_Attribute) attrs)           = literal_pt(add_js_files([js_file(file_name, attrs)])).
+public define HTML script(String content)                                       = literal_pt(add_script([script("text/javascript", content)])).
   // <section>
-public define HTML_Off_Form section(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("section", attrs, content).
-public define HTML_Off_Form section(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("section", attrs, [content]).
-public define HTML_Off_Form section(List(HTML_Off_Form) content)                         = html_tag("section", [],    content).
-public define HTML_Off_Form section(HTML_Off_Form content)                               = html_tag("section", [],    [content]).
+public define HTML section(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("section", attrs, content).
+public define HTML section(List(CoreAttrs) attrs, HTML content)        = html_tag("section", attrs, [content]).
+public define HTML section(List(HTML) content)                         = html_tag("section",     content).
+public define HTML section(HTML content)                               = html_tag("section",     [content]).
   // <select>
-public define HTML_Off_Form select(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("select", attrs, content).
-public define HTML_Off_Form select(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("select", attrs, [content]).
-public define HTML_Off_Form select(List(CoreAttrs) attrs)                               = html_tag("select", attrs, []).
-public define HTML_Off_Form select(List(HTML_Off_Form) content)                         = html_tag("select", [],    content).
-public define HTML_Off_Form select(HTML_Off_Form content)                               = html_tag("select", [],    [content]).
+public define HTML select(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("select", attrs, content).
+public define HTML select(List(CoreAttrs) attrs, HTML content)        = html_tag("select", attrs, [content]).
+public define HTML select(List(CoreAttrs) attrs)                               = html_tag("select", attrs).
+public define HTML select(List(HTML) content)                         = html_tag("select",     content).
+public define HTML select(HTML content)                               = html_tag("select",     [content]).
+
+  //selector              (List(CoreAttrs),      HTML_Label label,  HTML_Id id, WebArgName name, Int size, List(String) choices), 
+public define HTML selector(List(CoreAttrs) attrs, HTML_Label label, HTML_Id _id, WebArgName wan, Int s, List(String) choices)= 
+         sequence([ 
+          format_label(label, _id),
+          select([id(_id.id), name(wan.name), size(s) , class("in") . attrs], literal_pt(format_choices(choices)))
+         ])
+.
+
+  //selector              (List(CoreAttrs),      HTML_Label label,  HTML_Id id, WebArgName name, Int size, List(String) choices, InitialValue selected), 
+public define HTML selector(List(CoreAttrs) attrs, HTML_Label label, HTML_Id _id, WebArgName wan, Int s, List(String) choices , InitialValue selected)=
+        sequence([ 
+          format_label(label, _id),
+          select([id(_id.id), name(wan.name), size(s) , class("in") . attrs], literal_pt(format_choices(choices, selected)))
+        ])
+.
+  //selector_c            (List(CoreAttrs),      HTML_Label label,  HTML_Id id, WebArgName name, Int size, List((List(CoreAttrs),WebArgValue,String)) choices), 
+
+public define HTML selector_c(List(CoreAttrs) attrs, HTML_Label label, HTML_Id _id, WebArgName wan, Int s, List((List(CoreAttrs),WebArgValue,String)) choices)=
+        sequence([
+          format_label(label, _id), 
+          select([id(_id.id), name(wan.name), size(s) , class("in") . attrs], literal_pt(format_choices(choices)))
+        ])
+.
+          
+  //selector_c            (List(CoreAttrs), HTML_Label label,  HTML_Id id, WebArgName name, Int size, List((List(CoreAttrs),WebArgValue,String)) choices, InitialValue selected),
+public define HTML selector_c(List(CoreAttrs) attrs, HTML_Label label, HTML_Id _id, WebArgName wan, Int s, List((List(CoreAttrs),WebArgValue,String)) choices, InitialValue selected)=
+        sequence([
+          format_label(label, _id), 
+          select([id(_id.id), name(wan.name), size(s) , class("in") . attrs], literal_pt(format_choices(choices, selected)))
+        ])
+.
   // <span>
-public define HTML_Off_Form span(List(CoreAttrs) attrs, List(HTML_Off_Form) content)    = html_tag("span", attrs, content).
-public define HTML_Off_Form span(List(CoreAttrs) attrs, HTML_Off_Form content)          = html_tag("span", attrs, [content]).
-public define HTML_Off_Form span(CoreAttrs attr, List(HTML_Off_Form) content)           = html_tag("span", [attr], content).
-public define HTML_Off_Form span(CoreAttrs attr, HTML_Off_Form content)                 = html_tag("span", [attr], [content]).
-public define HTML_Off_Form span(List(HTML_Off_Form) content)                           = html_tag("span", [],    content).
-public define HTML_Off_Form span(HTML_Off_Form content)                                 = html_tag("span", [],    [content]).
-public define HTML_Off_Form span(Int i)                                                 = html_tag("span", [],    [text(to_decimal(i))]).
-public define HTML_Off_Form span(List(CoreAttrs) attrs, String s)                       = html_tag("span", attrs, [text(s)]).
-public define HTML_Off_Form span(CoreAttrs attr, String s)                              = html_tag("span", [attr],[text(s)]).
-public define HTML_Off_Form span(String s)                                              = html_tag("span", [],    [text(s)]).
-public define HTML_Off_Form span(List(CoreAttrs) attrs)                                 = html_tag("span", attrs, []).
-public define HTML_Off_Form span(CoreAttrs attr)                                        = html_tag("span", [attr],[]).
+public define HTML span(List(CoreAttrs) attrs, List(HTML) content)    = html_tag("span", attrs, content).
+public define HTML span(List(CoreAttrs) attrs, HTML content)          = html_tag("span", attrs, [content]).
+public define HTML span(CoreAttrs attr, List(HTML) content)           = html_tag("span", [attr], content).
+public define HTML span(CoreAttrs attr, HTML content)                 = html_tag("span", [attr], [content]).
+public define HTML span(List(HTML) content)                           = html_tag("span",     content).
+public define HTML span(HTML content)                                 = html_tag("span",     [content]).
+public define HTML span(Int i)                                                 = html_tag("span",     [text(to_decimal(i))]).
+public define HTML span(List(CoreAttrs) attrs, String s)                       = html_tag("span", attrs, [text(s)]).
+public define HTML span(CoreAttrs attr, String s)                              = html_tag("span", [attr],[text(s)]).
+public define HTML span(String s)                                              = html_tag("span",     [text(s)]).
+public define HTML span(List(CoreAttrs) attrs)                                 = html_tag("span", attrs).
+public define HTML span(CoreAttrs attr)                                        = html_tag("span", [attr]).
   // <strong>
-public define HTML_Off_Form strong(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("strong", attrs, content).
-public define HTML_Off_Form strong(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("strong", attrs, [content]).
-public define HTML_Off_Form strong(CoreAttrs attr, List(HTML_Off_Form) content)         = html_tag("strong", [attr], content).
-public define HTML_Off_Form strong(CoreAttrs attr, HTML_Off_Form content)               = html_tag("strong", [attr], [content]).
-public define HTML_Off_Form strong(List(HTML_Off_Form) content)                         = html_tag("strong", [],    content).
-public define HTML_Off_Form strong(HTML_Off_Form content)                               = html_tag("strong", [],    [content]).
+public define HTML strong(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("strong", attrs, content).
+public define HTML strong(List(CoreAttrs) attrs, HTML content)        = html_tag("strong", attrs, [content]).
+public define HTML strong(CoreAttrs attr, List(HTML) content)         = html_tag("strong", [attr], content).
+public define HTML strong(CoreAttrs attr, HTML content)               = html_tag("strong", [attr], [content]).
+public define HTML strong(List(HTML) content)                         = html_tag("strong",     content).
+public define HTML strong(HTML content)                               = html_tag("strong",     [content]).
   // <svg>
-public define HTML_Off_Form svg(List(CoreAttrs) attrs)                                  = html_tag("svg", attrs, []).
+public define HTML svg(List(CoreAttrs) attrs)                                  = html_tag("svg", attrs).
   // <table>
-public define HTML_Off_Form table(List(CoreAttrs) attrs, List(HTML_Off_Form) content)   = html_tag("table", attrs, content).
-public define HTML_Off_Form table(List(CoreAttrs) attrs, HTML_Off_Form content)         = html_tag("table", attrs, [content]).
-public define HTML_Off_Form table(CoreAttrs attr, List(HTML_Off_Form) content)          = html_tag("table", [attr], content).
-public define HTML_Off_Form table(CoreAttrs attr, HTML_Off_Form content)                = html_tag("table", [attr], [content]).
-public define HTML_Off_Form table(List(HTML_Off_Form) content)                          = html_tag("table", [],    content).
-public define HTML_Off_Form table(HTML_Off_Form content)                                = html_tag("table", [],    [content]).
+public define HTML table(List(CoreAttrs) attrs, List(HTML) content)   = html_tag("table", attrs, content).
+public define HTML table(List(CoreAttrs) attrs, HTML content)         = html_tag("table", attrs, [content]).
+public define HTML table(CoreAttrs attr, List(HTML) content)          = html_tag("table", [attr], content).
+public define HTML table(CoreAttrs attr, HTML content)                = html_tag("table", [attr], [content]).
+public define HTML table(List(HTML) content)                          = html_tag("table",     content).
+public define HTML table(HTML content)                                = html_tag("table",     [content]).
+
+  // <textarea>
+  // CoreAttrs for textarea
+public define CoreAttrs wrap_lines  = attr("wrap", "hard").
+public define CoreAttrs read_only   = bool_attr(true, "readonly").
+public define CoreAttrs cols(Int value) = attr("cols",to_String(value)).
+public define CoreAttrs rows(Int value) = attr("rows",to_String(value)).
+     
+public define HTML textarea(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("textarea", attrs, content).
+public define HTML textarea(List(CoreAttrs) attrs, HTML content)        = html_tag("textarea", attrs, [content]).
+
+public define HTML textarea(List(CoreAttrs) attrs, Int _cols, Int _rows, List(HTML) content)  
+        = html_tag("textarea", [cols(_cols), rows(_rows) . attrs], content).
+        
+public define HTML textarea(List(CoreAttrs) attrs,  Int _cols, Int _rows, HTML content)        
+        = html_tag("textarea", [cols(_cols), rows(_rows) . attrs], [content]).
+        
+public define HTML textarea(Int _cols, Int _rows, HTML content)         = html_tag("textarea", [cols(_cols), rows(_rows)], [content]).
+public define HTML textarea(CoreAttrs attr, List(HTML) content)         = html_tag("textarea", [attr], content).
+public define HTML textarea(CoreAttrs attr, HTML content)               = html_tag("textarea", [attr], [content]).
+
+//public define HTML password_input(List(CoreAttrs) options, HTML_Label label, HTML_Id _id, WebArgName wan, InitialValue init, Int w) = 
+public define HTML text_area(List(CoreAttrs) options, HTML_Label label,  HTML_Id _id, WebArgName wan, InitialValue init, Int width, Int height) =
+        sequence([
+          format_label(label, _id),
+          textarea([class("in"), type(password), id(_id.id), name(wan.name), cols(width), rows(height) . options], text(init.value))
+        ])
+.
+
+public define HTML text_area(WebArgName name, InitialValue init, Int  width, Int  height) =
+   text_area([], no_label, html_Id(""), name, init, width, height). 
+   
+public define HTML text_area(List(CoreAttrs) options, WebArgName name, InitialValue init, Int  width, Int  height)=
+   text_area(options, no_label, html_Id(""), name,init,width,height). 
+        
+//       text_area(options,label_text, id, n, init, w, h)          then
+//         [ format_label(label_text, id), "<textarea ",format(options)," id=\"",id,"\" name=\"",n,"\" cols=\"",w,"\" rows=\"",h,"\">",encode_HTML_entities(init.value),"</textarea>"],
+
   // <thead>
-public define HTML_Off_Form thead(List(CoreAttrs) attrs, List(HTML_Off_Form) content)   = html_tag("thead", attrs, content).
-public define HTML_Off_Form thead(List(CoreAttrs) attrs, HTML_Off_Form content)         = html_tag("thead", attrs, [content]).
-public define HTML_Off_Form thead(CoreAttrs attr, List(HTML_Off_Form) content)          = html_tag("thead", [attr], content).
-public define HTML_Off_Form thead(CoreAttrs attr, HTML_Off_Form content)                = html_tag("thead", [attr], [content]).
-public define HTML_Off_Form thead(List(HTML_Off_Form) content)                          = html_tag("thead", [],    content).
-public define HTML_Off_Form thead(HTML_Off_Form content)                                = html_tag("thead", [],    [content]).
+public define HTML thead(List(CoreAttrs) attrs, List(HTML) content)   = html_tag("thead", attrs, content).
+public define HTML thead(List(CoreAttrs) attrs, HTML content)         = html_tag("thead", attrs, [content]).
+public define HTML thead(CoreAttrs attr, List(HTML) content)          = html_tag("thead", [attr], content).
+public define HTML thead(CoreAttrs attr, HTML content)                = html_tag("thead", [attr], [content]).
+public define HTML thead(List(HTML) content)                          = html_tag("thead",     content).
+public define HTML thead(HTML content)                                = html_tag("thead",     [content]).
   // <tbody>
-public define HTML_Off_Form tbody(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("tbody", attrs, content).
-public define HTML_Off_Form tbody(List(CoreAttrs) attrs, HTML_Off_Form content)         = html_tag("tbody", attrs, [content]).
-public define HTML_Off_Form tbody(CoreAttrs attr, List(HTML_Off_Form) content)          = html_tag("tbody", [attr], content).
-public define HTML_Off_Form tbody(CoreAttrs attr, HTML_Off_Form content)                = html_tag("tbody", [attr], [content]).
-public define HTML_Off_Form tbody(List(HTML_Off_Form) content)                          = html_tag("tbody", [],    content).
-public define HTML_Off_Form tbody(HTML_Off_Form content)                                = html_tag("tbody", [],    [content]).
+public define HTML tbody(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("tbody", attrs, content).
+public define HTML tbody(List(CoreAttrs) attrs, HTML content)         = html_tag("tbody", attrs, [content]).
+public define HTML tbody(CoreAttrs attr, List(HTML) content)          = html_tag("tbody", [attr], content).
+public define HTML tbody(CoreAttrs attr, HTML content)                = html_tag("tbody", [attr], [content]).
+public define HTML tbody(List(HTML) content)                          = html_tag("tbody",     content).
+public define HTML tbody(HTML content)                                = html_tag("tbody",     [content]).
   // <tfoot>
-public define HTML_Off_Form tfoot(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("tfoot", attrs, content).
-public define HTML_Off_Form tfoot(List(CoreAttrs) attrs, HTML_Off_Form content)         = html_tag("tfoot", attrs, [content]).
-public define HTML_Off_Form tfoot(CoreAttrs attr, List(HTML_Off_Form) content)          = html_tag("tfoot", [attr], content).
-public define HTML_Off_Form tfoot(CoreAttrs attr, HTML_Off_Form content)                = html_tag("tfoot", [attr], [content]).
-public define HTML_Off_Form tfoot(List(HTML_Off_Form) content)                          = html_tag("tfoot", [],    content).
-public define HTML_Off_Form tfoot(HTML_Off_Form content)                                = html_tag("tfoot", [],    [content]).
+public define HTML tfoot(List(CoreAttrs) attrs, List(HTML) content)  = html_tag("tfoot", attrs, content).
+public define HTML tfoot(List(CoreAttrs) attrs, HTML content)         = html_tag("tfoot", attrs, [content]).
+public define HTML tfoot(CoreAttrs attr, List(HTML) content)          = html_tag("tfoot", [attr], content).
+public define HTML tfoot(CoreAttrs attr, HTML content)                = html_tag("tfoot", [attr], [content]).
+public define HTML tfoot(List(HTML) content)                          = html_tag("tfoot",     content).
+public define HTML tfoot(HTML content)                                = html_tag("tfoot",     [content]).
   // <th>
-public define HTML_Off_Form th(List(CoreAttrs) attrs, List(HTML_Off_Form) content)    = html_tag("th", attrs, content).
-public define HTML_Off_Form th(List(CoreAttrs) attrs, HTML_Off_Form content)          = html_tag("th", attrs, [content]).
-public define HTML_Off_Form th(CoreAttrs attr, List(HTML_Off_Form) content)           = html_tag("th", [attr], content).
-public define HTML_Off_Form th(CoreAttrs attr, HTML_Off_Form content)                 = html_tag("th", [attr], [content]).
-public define HTML_Off_Form th(CoreAttrs attr)                                        = html_tag("th", [attr], []).
-public define HTML_Off_Form th(List(HTML_Off_Form) content)                           = html_tag("th", [],      content).
-public define HTML_Off_Form th(HTML_Off_Form content)                                 = html_tag("th", [],     [content]).
-public define HTML_Off_Form th(String string)                                         = html_tag("th", [],     [text(string)]).
-public define HTML_Off_Form th(CoreAttrs attr, String string)                         = html_tag("th", [attr], [text(string)]).
-public define HTML_Off_Form th(List(CoreAttrs) attrs, String string)                  = html_tag("th", attrs,  [text(string)]).
-public define HTML_Off_Form th                                                        = html_tag("th", [],     []).
+public define HTML th(List(CoreAttrs) attrs, List(HTML) content)    = html_tag("th", attrs, content).
+public define HTML th(List(CoreAttrs) attrs, HTML content)          = html_tag("th", attrs, [content]).
+public define HTML th(CoreAttrs attr, List(HTML) content)           = html_tag("th", [attr], content).
+public define HTML th(CoreAttrs attr, HTML content)                 = html_tag("th", [attr], [content]).
+public define HTML th(CoreAttrs attr)                                        = html_tag("th", [attr]).
+public define HTML th(List(HTML) content)                           = html_tag("th",       content).
+public define HTML th(HTML content)                                 = html_tag("th",      [content]).
+public define HTML th(String string)                                         = html_tag("th",      [text(string)]).
+public define HTML th(CoreAttrs attr, String string)                         = html_tag("th", [attr], [text(string)]).
+public define HTML th(List(CoreAttrs) attrs, String string)                  = html_tag("th", attrs,  [text(string)]).
+public define HTML th                                                        = html_tag("th").
   // <td>
-public define HTML_Off_Form td(List(CoreAttrs) attrs, List(HTML_Off_Form) content)    = html_tag("td", attrs,   content).
-public define HTML_Off_Form td(List(CoreAttrs) attrs, HTML_Off_Form content)          = html_tag("td", attrs,  [content]).
-public define HTML_Off_Form td(CoreAttrs attr, List(HTML_Off_Form) content)           = html_tag("td", [attr], content).
-public define HTML_Off_Form td(CoreAttrs attr, HTML_Off_Form content)                 = html_tag("td", [attr], [content]).
-public define HTML_Off_Form td(List(HTML_Off_Form) content)                           = html_tag("td", [],     content).
-public define HTML_Off_Form td(HTML_Off_Form content)                                 = html_tag("td", [],     [content]).
-public define HTML_Off_Form td(List(CoreAttrs) attrs, String string)                  = html_tag("td", attrs,  [text(string)]).
-public define HTML_Off_Form td(CoreAttrs attr, String string)                         = html_tag("td", [attr], [text(string)]).
-public define HTML_Off_Form td(String string)                                         = html_tag("td", [],     [text(string)]).
-public define HTML_Off_Form td(List(CoreAttrs) attrs, Int i)                          = html_tag("td", attrs,  [text(to_decimal(i))]).
-public define HTML_Off_Form td(CoreAttrs attr, Int i)                                 = html_tag("td", [attr], [text(to_decimal(i))]).
-public define HTML_Off_Form td(Int i)                                                 = html_tag("td", [],     [text(to_decimal(i))]).
+  // CoreAttrs for <td>
+//public define CoreAttrs colspan(Int value)        = attr("colspan", to_String(value)).
+//public define CoreAttrs rowspan(Int value)        = attr("rowspan", to_String(value)).
+//public define CoreAttrs headers(String header_id) = attr("headers", header_id).
+
+public define HTML td(List(CoreAttrs) attrs, List(HTML) content)    = html_tag("td", attrs,   content).
+public define HTML td(List(CoreAttrs) attrs, HTML content)          = html_tag("td", attrs,  [content]).
+public define HTML td(CoreAttrs attr, List(HTML) content)           = html_tag("td", [attr], content).
+public define HTML td(CoreAttrs attr, HTML content)                 = html_tag("td", [attr], [content]).
+public define HTML td(List(HTML) content)                           = html_tag("td",      content).
+public define HTML td(HTML content)                                 = html_tag("td",      [content]).
+public define HTML td(List(CoreAttrs) attrs, String string)                  = html_tag("td", attrs,  [text(string)]).
+public define HTML td(CoreAttrs attr, String string)                         = html_tag("td", [attr], [text(string)]).
+public define HTML td(String string)                                         = html_tag("td",     [text(string)]).
+public define HTML td(List(CoreAttrs) attrs, Int i)                          = html_tag("td", attrs,  [text(to_decimal(i))]).
+public define HTML td(CoreAttrs attr, Int i)                                 = html_tag("td", [attr], [text(to_decimal(i))]).
+public define HTML td(Int i)                                                 = html_tag("td",      [text(to_decimal(i))]).
   // <tr>
-public define HTML_Off_Form tr(List(CoreAttrs) attrs, List(HTML_Off_Form) content)    = html_tag("tr", attrs, content).
-public define HTML_Off_Form tr(List(CoreAttrs) attrs, HTML_Off_Form content)          = html_tag("tr", attrs, [content]).
-public define HTML_Off_Form tr(CoreAttrs attr, List(HTML_Off_Form) content)           = html_tag("tr", [attr], content).
-public define HTML_Off_Form tr(CoreAttrs attr, HTML_Off_Form content)                 = html_tag("tr", [attr], [content]).
-public define HTML_Off_Form tr(List(HTML_Off_Form) content)                           = html_tag("tr", [],    content).
-public define HTML_Off_Form tr(HTML_Off_Form content)                                 = html_tag("tr", [],    [content]).
+public define HTML tr(List(CoreAttrs) attrs, List(HTML) content)    = html_tag("tr", attrs, content).
+public define HTML tr(List(CoreAttrs) attrs, HTML content)          = html_tag("tr", attrs, [content]).
+public define HTML tr(CoreAttrs attr, List(HTML) content)           = html_tag("tr", [attr], content).
+public define HTML tr(CoreAttrs attr, HTML content)                 = html_tag("tr", [attr], [content]).
+public define HTML tr(List(HTML) content)                           = html_tag("tr",     content).
+public define HTML tr(HTML content)                                 = html_tag("tr",     [content]).
+  // <ul>
+public define HTML ul(List(CoreAttrs) attrs, List(HTML) content)      = html_tag("ul", attrs, content).
+public define HTML ul(List(CoreAttrs) attrs, HTML content)            = html_tag("ul", attrs, [content]).
+public define HTML ul(CoreAttrs attr, List(HTML) content)             = html_tag("ul", [attr], content).
+public define HTML ul(CoreAttrs attr, HTML content)                   = html_tag("ul", [attr], [content]).
+public define HTML ul(List(HTML) content)                             = html_tag("ul",     content).
+public define HTML ul(HTML content)                                   = html_tag("ul",     [content]).
-  // <textarea>
-  // CoreAttrs for textarea
-public define CoreAttrs wrap_lines  = attr("wrap", "hard").
-public define CoreAttrs read_only   = bool_attr(true, "readonly").
+//public define HTML empty                                                       = html_tag(
-public define HTML_Off_Form textarea(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("textarea", attrs, content).
-public define HTML_Off_Form textarea(List(CoreAttrs) attrs, Int cols, Int rows, List(HTML_Off_Form) content)  
-        = html_tag("textarea", [attr("cols",to_String(cols)), attr("rows",to_String(rows)) . attrs], content).
-public define HTML_Off_Form textarea(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("textarea", attrs, [content]).
-public define HTML_Off_Form textarea(List(CoreAttrs) attrs,  Int cols, Int rows, HTML_Off_Form content)        
-        = html_tag("textarea", [attr("cols",to_String(cols)), attr("rows",to_String(rows)) . attrs], [content]).
-public define HTML_Off_Form textarea(CoreAttrs attr, List(HTML_Off_Form) content)         = html_tag("textarea", [attr], content).
-public define HTML_Off_Form textarea(CoreAttrs attr, HTML_Off_Form content)               = html_tag("textarea", [attr], [content]).
+//public define HTML
+//  form
+//  (
+//    String          form_name, 
+//    List(CoreAttrs) options, 
+//    HTML   content
+//  ) =
+//  form([id(form_name). options], [content]).
-  // <ul>
-public define HTML_Off_Form ul(List(CoreAttrs) attrs, List(HTML_Off_Form) content)      = html_tag("ul", attrs, content).
-public define HTML_Off_Form ul(List(CoreAttrs) attrs, HTML_Off_Form content)            = html_tag("ul", attrs, [content]).
-public define HTML_Off_Form ul(CoreAttrs attr, List(HTML_Off_Form) content)             = html_tag("ul", [attr], content).
-public define HTML_Off_Form ul(CoreAttrs attr, HTML_Off_Form content)                   = html_tag("ul", [attr], [content]).
-public define HTML_Off_Form ul(List(HTML_Off_Form) content)                             = html_tag("ul", [],    content).
-public define HTML_Off_Form ul(HTML_Off_Form content)                                   = html_tag("ul", [],    [content]).
+//public define HTML
+//  form
+//  (
+//    String              form_name, 
+//    List(CoreAttrs)     options, 
+//    List(HTML) contents
+//  ) =
+//  form([id(form_name) . options], contents).
-public define HTML_Off_Form
-  form
-  (
-    String          form_name, 
-    List(CoreAttrs) options, 
-    HTML_In_Form    content
-  ) =
-  form(html_Id(form_name), options, [content]).
+      
+public define HTML image(String url)                         = img(url).
+public define HTML image(String url, Int width, Int height)  = img(url, width, height).
-public define HTML_Off_Form
-  form
-  (
-    String              form_name, 
-    List(CoreAttrs)     options, 
-    List(HTML_In_Form)  contents
-  ) =
-  form(html_Id(form_name), options, contents).
-  
-public define HTML_Off_Form
+
+
+public define HTML
   form
   (
-    String                form_name, 
     List(CoreAttrs)       options,
-    WEB_Action_Name       action, 
+    WEB_Action_Name       _action, 
     List((String,String)) extra_ops,
-    HTML_In_Form          content
+    HTML         content
   ) = 
-  form(html_Id(form_name), options, action, extra_ops, [content]).
+  form([action(_action, extra_ops). options], [content]).
-public define HTML_Off_Form
+public define HTML
   form
   (
-    HTML_Id               form_id, 
     List(CoreAttrs)       options,
     WEB_Action_Name       action, 
     List((String,String)) extra_ops,
-    HTML_In_Form          content
+    List(HTML)   contents
   ) = 
-  form(form_id, options, action, extra_ops, [content]).
+  form(options, action, extra_ops, contents).
-public define HTML_Off_Form
+public define HTML
   form
   (
-    String                form_name, 
-    List(CoreAttrs)       options,
-    WEB_Action_Name       action, 
-    List((String,String)) extra_ops,
-    List(HTML_In_Form)    contents
-  ) = 
-  form(html_Id(form_name), options, action, extra_ops, contents).
-  
-public define HTML_Off_Form
-  form
-  (
-    String                form_name, 
     List(CoreAttrs)       options,
     String                action, 
     List((String,String)) extra_ops,
-    HTML_In_Form          content
+    HTML         content
   ) = 
-  form(html_Id(form_name), options, action_name(action), extra_ops, [content]).
+  form(options, action_name(action), extra_ops, [content]).
-public define HTML_Off_Form
+public define HTML
   form
   (
     String                form_name, 
     List(CoreAttrs)       options,
     String                action, 
     List((String,String)) extra_ops,
-    List(HTML_In_Form)    contents
+    List(HTML)   contents
   ) = 
-  form(html_Id(form_name), options, action_name(action), extra_ops, contents).
-  
-public define HTML_Off_Form literal(Printable_tree t) = literal_pt(t). 
-//public define HTML_Off_Form fixed_size(HTML_Size width, HTML_Size height, String name_of_HTML_file)
-//   = fixed_size_2(width,height,name_of_HTML_file). 
-
-   
-public define HTML_Off_Form
-   foreign_link
-     (
-       Int tsize,
-       String url, 
-       String name
-     ) =
-   foreign_link([size(tsize)],url,name). 
-   
-   
-public define HTML_Off_Form
-   actioner
-     (
-       Actioner_Connection       conn, 
-       Actioner_Target           targ, 
-       Actioner_Aspect           asp, 
-       WEB_Action_Name           action, 
-       List((String,String))     extra_ops
-     ) =
-   actioner(conn,targ,asp,action,extra_ops,[]). 
+  form(form_name, options, action, extra_ops, contents).
-public define HTML_Off_Form
+public define HTML
    actioner
      (
        Actioner_Connection       conn, 
@@ -2017,7 +1961,7 @@ public define HTML_Off_Form
      ) =
    actioner(conn,targ,asp,action,extra_ops,[], form_name). 
-public define HTML_Off_Form
+public define HTML
    actioner
      (
        Actioner_Aspect           asp, 
@@ -2026,52 +1970,18 @@ public define HTML_Off_Form
      ) =
    actioner(same, same, asp, action, extra_ops, []). 
-public define HTML_Off_Form
+public define HTML
    actioner
      (
        Actioner_Aspect           asp, 
        WEB_Action_Name           action, 
        List((String,String))     extra_ops,
        String                   form_name
-     ) =
-   actioner(same, same, asp, action, extra_ops, [], form_name). 
-   
-public define HTML_Off_Form
-/* Older call with String as action instead of WEB_Action_Name. 
- * This function exists only for compatibility with older project.
- * Please condiser to use above function instead
- */
-  actioner
-  (
-       Actioner_Connection    conn, 
-       Actioner_Target        targ, 
-       Actioner_Aspect        asp, 
-       String                 action, 
-       List((String,String))  extra_ops,
-       List(Actioner_Local_Action)  local_actions
-  )=
-  actioner(conn,targ,asp,action_name(action),extra_ops,local_actions)
-.
-
-public define HTML_Off_Form
-/* Older call with String as action instead of WEB_Action_Name. 
- * This function exists only for compatibility with older project.
- * Please condiser to use above function instead
- */
-  actioner
-  (
-       Actioner_Connection    conn, 
-       Actioner_Target        targ, 
-       Actioner_Aspect        asp, 
-       String                 action, 
-       List((String,String))  extra_ops,
-       List(Actioner_Local_Action)  local_actions,
-       String                 form_name
-  )=
-  actioner(conn, targ, asp, action_name(action), extra_ops, local_actions, form_name)
-.
+     ) =
+   actioner(same, same, asp, action, extra_ops, [], form_name). 
+   
-public define HTML_Off_Form
+public define HTML
 /* Older call with String as action instead of WEB_Action_Name. 
  * This function exists only for compatibility with older project.
  * Please condiser to use above function instead
@@ -2082,12 +1992,14 @@ public define HTML_Off_Form
        Actioner_Target        targ, 
        Actioner_Aspect        asp, 
        String                 action, 
-       List((String,String))  extra_ops
+       List((String,String))  extra_ops,
+       List(Actioner_Local_Action)  local_actions,
+       String                 form_name
   )=
-  actioner(conn,targ,asp,action_name(action),extra_ops,[])
+  actioner(conn, targ, asp, action_name(action), extra_ops, local_actions, form_name)
 .
-public define HTML_Off_Form
+public define HTML
 /* Older call with String as action instead of WEB_Action_Name. 
  * This function exists only for compatibility with older project.
  * Please condiser to use above function instead
@@ -2104,100 +2016,27 @@ public define HTML_Off_Form
   actioner(conn, targ, asp, action_name(action), extra_ops, [], form_name)
 .
-public define HTML_Off_Form
-  table
-  (
-    List(HTML_Row(HTML_Off_Form)) rows
-  )=
-  table([], empty, rows,empty)
-.
-   
-public define HTML_Off_Form
-  table
-  (
-    List(Table_Option) options,    
-    List(HTML_Row(HTML_Off_Form)) rows
-  ) =
-  table(options,empty,rows,empty)
-.
-
-public define HTML_Off_Form
-  table
-  (
-    Table_Option option,    
-    HTML_Row(HTML_Off_Form) row
-  ) =
-  table([option], empty, [row], empty)
-.
-  
-public define HTML_Off_Form
-  table
-  (
-    HTML_Header_Row(HTML_Off_Form)  h_row,    
-    List(HTML_Row(HTML_Off_Form))   rows
-  ) =
-  table([],h_row,rows,empty)
-.
-
-public define HTML_Off_Form
-  table
-  (
-    List(Table_Option)              options,    
-    HTML_Header_Row(HTML_Off_Form)  h_row,    
-    List(HTML_Row(HTML_Off_Form))   rows
-  ) =
-  table(options,h_row,rows,empty)
-.
-
-public define HTML_Off_Form
-  table
-  (
-    Table_Option                    option,
-    HTML_Header_Row(HTML_Off_Form)  h_row,
-    List(HTML_Row(HTML_Off_Form))   rows
-  ) =
-  table([option], h_row, rows,empty)
-.
-  
-   We add two  convenience functions for 'row'.  The reason why we add  two functions, one
-   for  'HTML_In_Form' and  one  for 'HTML_Off_Form',  is  that adding  a  schema with  an
-   arbitrary '$T' creates too many ambiguities. This is due to the fact that, if we do so,
-   the arguments of the function do not refer to any of the types defined here.
-   
-public define HTML_Row(HTML_In_Form)
-   row
-     (
-       HTML_In_Form content
-     ) =
-   row([],[cell([],content)]).
-   
-public define HTML_Row(HTML_Off_Form)
-   row
-     (
-       HTML_Off_Form content
-     ) =
-   row([],[cell([],content)]).
-   
-public define HTML_Cell(HTML_Off_Form)
+public define HTML
   cells_to_column_in_cell
   (
-    List(HTML_Cell(HTML_Off_Form)) cells
+    List(HTML) cells
   )=
-  cell(
+  td(
     table(
-      map( (HTML_Cell(HTML_Off_Form) current_cell) |-> row(current_cell), cells)
-      )).
+      map( ((HTML) current_cell) |-> tr(current_cell), cells)
+      ))
+.
-public define HTML_Off_Form
+public define HTML
   cells_to_line
   (
-    List(HTML_Off_Form) cells
+    List(HTML) cells
   )=
-  table([row(
-      map (((HTML_Off_Form) current_cell) |-> cell(current_cell), cells))])
+  table([tr(
+      map (((HTML) current_cell) |-> td(current_cell), cells))])
       .
-public define HTML_Off_Form   
+public define HTML   
    private_download
      (
        String        abs_path, 
@@ -2207,7 +2046,7 @@ public define HTML_Off_Form
    private_download(abs_path,name,extra_ext,failure). 
-public define HTML_Off_Form   
+public define HTML   
   private_download
   (
     String        abs_path, 
@@ -2219,147 +2058,83 @@ public define HTML_Off_Form
   private_download(abs_path,name,extra_ext,success((action_name,args))). 
 .
-
-
-
-public define HTML_In_Form
-  hr 
-  =
-  hr([])
-.
-
-public define HTML_In_Form
-  button
-  (
-    List(HTML_In_Form)   elements
-  )=
-  button([], elements)
-.
-
-public define HTML_In_Form
-  button
-  (
-    List(CoreAttrs) attrs,
-    HTML_In_Form   element
-  )=
-  button(attrs, [element])
-.
-
-public define HTML_In_Form
-  button
-  (
-    HTML_In_Form   element
-  )=
-  button([], [element])
-.
-   - Cell a gap between two other cells : 
-   
-public define HTML_Cell(HTML_Off_Form)
-  width_gap
-  (
-    Int w
-  )=
-  cell([width(w)], empty).
-   
-public define HTML_Cell(HTML_In_Form)
-  width_gap
-  (
-    Int w
-  )=
-  cell([width(w)],empty)
-.
-   - Row a gap between two other rows : 
-   
-public define HTML_Row(HTML_Off_Form)
-  height_gap
-  (
-    Int h
-  )=
-  row([],[cell([height(h)],empty)]). 
-   
-public define HTML_Row(HTML_In_Form)
-  height_gap
-  (
-    Int h
-  )=
-  row([],[cell([height(h)],empty)])
-.
-   
-   
+  
    Notice that the two types have alternatives in common (same name, same arguments types,
    up to  the value of the  parameter $T), which correspond  to elements which  may be put
    anywhere in the page.
-public define HTML_Partial_Content
-  partial_content
-  (
-    List(HTML_Head_Tag) tags,
-    List(HTML_Off_Form) content
-  )=
-  partial_content(tags, sequence(content)).
-  
-public define HTML_Partial_Content
-  partial_content
-  (
-    HTML_Off_Form content
-  )=
-  partial_content([], content).
-
-public define HTML_Partial_Content
-  partial_content
-  (
-    List(HTML_Off_Form) content
-  )=
-  partial_content([], sequence(content)).
-  
-public define HTML_Partial_Content
-  partial_content
+//public define HTML
+//  partial_content
+//  (
+//    List(HTML_Head_Tag) tags,
+//    List(HTML) content
+//  )=
+//  partial_content(tags, sequence(content)).
+//  
+//public define HTML
+//  partial_content
+//  (
+//    HTML content
+//  )=
+//  partial_content([], content).
+//
+//public define HTML
+//  partial_content
+//  (
+//    List(HTML) content
+//  )=
+//  partial_content([], sequence(content)).
+//  
+public define HTML
+  add_head_tags
   (
     List(HTML_Head_Tag)  tags,
-    HTML_Partial_Content p_content
+    HTML           p_content
   )=
-  if p_content is partial_content(ptags, html) then
-  partial_content(tags + ptags, html).
+  if p_content is head_tags(_head_tags, html) then
+    head_tags(tags + _head_tags, html)
+  else
+    p_content
+.
-define HTML_Partial_Content
+define HTML
   list_to_pcontent
   (
-    List(HTML_Partial_Content) l_p_content,
-    List(HTML_Head_Tag)        so_far_tags,
-    List(HTML_Off_Form)        so_far_html
+    List(HTML)            l_content,
+    List(HTML_Head_Tag)   so_far_tags,
+    List(HTML)            so_far_html
   )=
-  if l_p_content is
+  if l_content is
   {
-    []      then  partial_content(so_far_tags, sequence(reverse(so_far_html))),
+    []      then  head_tags(so_far_tags, reverse(so_far_html)),
     [h . t] then 
       //extract resurgent type and symbols of h
-      if h is partial_content(tags, html) then
-      list_to_pcontent(t, so_far_tags + tags, [html . so_far_html])
+      if h is head_tags(tags, html) then
+        list_to_pcontent(t, so_far_tags + tags, html + so_far_html)
+      else 
+        list_to_pcontent(t, so_far_tags, [h . so_far_html])
   }.
-public define HTML_Partial_Content
-  partial_content
-  (
-    List(HTML_Partial_Content) l_p_content
-  )=
-  list_to_pcontent(l_p_content, [], []).
-  
-public define HTML_Partial_Content
-  partial_empty
-  =
-  partial_content(empty)
-.
+//public define HTML
+//  partial_content
+//  (
+//    List(HTML) l_p_content
+//  )=
+//  list_to_pcontent(l_p_content, [], []).
+//  
+//public define HTML
+//  partial_empty
+//  =
+//  partial_content(empty)
+//.
-define String
+ define String
    format
      (
        List(Text_Option) l
      ).    
-   
-   
-   
-   
-define Printable_tree
+
+ define Printable_tree
    format_css_styles
      (
        List(CSS_Style)   l
@@ -2392,14 +2167,7 @@ public define HTML_Meta
   )=
   refresh(connection, target, action_name(action), delay)
 .
-  
-
-   
-    
-   
-   
-   
-   
+ 
 public define HTTP_Answer
   html_page
   (
@@ -2407,17 +2175,7 @@ public define HTTP_Answer
     List(HTML_Head_Tag)  head_tags,
     HTML_Body            body
   )=
-  html_page(http_ok, title, head_tags,[],[],[],[],body).
-   
-public define HTTP_Answer
-  html_page
-  (
-    String              title, 
-    List(HTML_Head_Tag) head_tags,
-    List(CSS_Style)     styles,
-    HTML_Body           body
-  )=
-  html_page(http_ok, title, head_tags, styles, [], [], [], body).
+  html_page(http_ok, title, head_tags,[],[],[],body).
 public define HTTP_Answer   
   web_controller_error_page
@@ -2465,11 +2223,11 @@ public define HTTP_Answer
    Anubis in order to forbid non meaningful placement of elements.
    The  type  'HTML_In_Form'  defines  elements   to  be  put  within  forms.   Similarly,
-   'HTML_Off_Form' defines elements not to be  put within forms. Both types are recursive,
-   and 'HTML_Off_Form' refers  to 'HTML_In_Form' (via the 'form'  alternative, of course),
+   'HTML' defines elements not to be  put within forms. Both types are recursive,
+   and 'HTML' refers  to 'HTML_In_Form' (via the 'form'  alternative, of course),
    but the two types  are not cross recursive. This is the reason  why it is impossible to
    put a  form within a form.  In order to construct  a web page, you  essentially have to
-   produce a datum of type 'HTML_Off_Form' (maybe containing data of type 'HTML_In_Form').
+   produce a datum of type 'HTML' (maybe containing data of type 'HTML_In_Form').
    In practice, you  don't have to worry  so much about these two  types, because elements
    which may  be put anywhere are  constructed for both  types by functions with  the same
@@ -2492,7 +2250,7 @@ public define HTTP_Answer
    define RGB    text_color = rgb(10,40,40). 
-   define HTML_Off_Form
+   define HTML
      text
        (
          String the_text
@@ -2510,7 +2268,7 @@ public define HTTP_Answer
    convenience functions. This also suggests a  trick.  You may want for example different
    colors for 'in form' texts and 'off form' texts.  This may be achieved automatically by
    defining  two functions  as  above, with  the same  name  and same  argument type,  but
-   returning either a 'HTML_In_Form' or a 'HTML_Off_Form'.
+   returning either a 'HTML_In_Form' or a 'HTML'.
    If this  preliminary work is  well done, you  will not waste  your time later  when you
    concentrate on the actual informational content of your pages.
@@ -2646,7 +2404,7 @@ define Printable_tree
      (
        CommonInfo               cinfo, 
        Var(Int)                 ic_v,             // 'idnum' counter variable
-       HTML_Off_Form            element,
+       HTML            element,
        Bool                     is_https,
        Var(Int)                 action_count,
        Var(List(HTML_Head_Tag)) head_tags
@@ -2851,10 +2609,6 @@ define One
    The above loop must be run in a  separate virtual machine. This will be done just after
    the two servers are started.
-     
-   
-
-   
    *** [2] Tools. 
@@ -3315,7 +3069,7 @@ public define Web_Site
 public define JsonValue to_html_ajax_content(Printable_tree        content_HTML, String additional_script).
-public define JsonValue to_html_ajax_content(HTML_Partial_Content  content_HTML, CommonInfo cinfo, String additional_script).
+public define JsonValue to_html_ajax_content(HTML                  content_HTML, CommonInfo cinfo, String additional_script).
@@ -3492,20 +3246,16 @@ public define One
       *** [5.1] The type 'HTML_Any($T)'. 
    The type  'HTML_Any($T)' gathers elements  which may be  put anywhere in the  page. The
-   parameter $T becomes either 'HTML_Off_Form' or 'HTML_In_Form'.
+   parameter $T becomes either 'HTML' or 'HTML_In_Form'.
-type HTML_Any($T):
+ type HTML_Any($T):
    any_text               (List(CoreAttrs), String the_text), 
-   any_preformated        (List(Text_Option), String), 
-   any_paragraph          (List(Text_Option), List($T) content), 
-   any_image              (List(CoreAttrs), String url, String alternate), 
-   any_image              (List(CoreAttrs), String url, String alternate, Int width, Int height), 
-   any_table              (List(Table_Option), HTML_Header_Row($T), List(HTML_Row($T)), HTML_Footer_Row($T)), 
-   any_center             ($T), 
-   any_mail_to            (String email, $T element), 
-   any_scroller           (Int width, Int height, 
-                           Int content_width, Int content_height,
-                           $T content), 
+   any_preformated        (List(CoreAttrs), String), 
+   any_paragraph          (List(CoreAttrs), List($T) content), 
+   //any_image              (List(CoreAttrs), String url, String alternate), 
+   //any_image              (List(CoreAttrs), String url, String alternate, Int width, Int height), 
+   //any_center             ($T), 
+   //any_mail_to            (String email, $T element), 
    any_fixed_size         (HTML_Size width, HTML_Size height, $T content), 
    any_fixed_size_2       (HTML_Size width, HTML_Size height, String name_of_HTML_file), 
    any_actioner           (Actioner_Connection, 
@@ -3516,8 +3266,8 @@ type HTML_Any($T):
                            List(Actioner_Local_Action),
                            Maybe(String) form_name),
    any_foreign_link_new   (Actioner_Target, Actioner_Aspect, String url),                            
-   any_foreign_link       (List(Text_Option), String url), 
-   any_foreign_link       (List(Text_Option), String url, String name), 
+   any_foreign_link       (List(CoreAttrs), String url), 
+   any_foreign_link       (List(CoreAttrs), String url, String name), 
    any_private_download   (String abs_path, String name, String extra_ext,
                              Maybe((String,List((String,String))))),
    any_div                (List(CoreAttrs), List($T) element),
@@ -3592,11 +3342,7 @@ define RGBA
                  &oname=value
-public define String
-  format_attrs
-  (
-    List(CoreAttrs)  attributs
-  ).
+
 //public define String 
 //  format_extra_operands
@@ -3636,65 +3382,7 @@ define String
-   Formating choices for a <select> tag. 
-   
-public define Printable_tree
-  format_choices
-    (
-      List(String) l
-    ) =
-  if l is 
-    {
-      [ ] then [ ], 
-      [h . t] then ["<option>", h, "</option>\n" . format_choices(t)]
-    }.
-
-
-public define Printable_tree
-  format_choices
-  (
-    List(String) l,
-    InitialValue selected
-  ) =
-  if l is 
-    {
-      [ ]     then [ ], 
-      [h . t] then if h = selected.value
-        then ["<option selected=\"selected\">", h, "</option>\n" . format_choices(t)]
-        else ["<option>", h, "</option>\n" . format_choices(t,selected)]
-    }.
-
-   
-public define Printable_tree
-  format_choices
-    (
-      List((List(CoreAttrs),WebArgValue,String)) l
-    ) =
-  if l is 
-    {
-      [ ] then [ ], 
-      [h . t] then
-       if h is (attrs,val,item) 
-        then ["<option value=\""+encode_HTML_entities(val.value)+"\" "+format_attrs(attrs)+">", item, "</option>\n" . format_choices(t)]
-    }.
-   
-public define Printable_tree
-  format_choices
-    (
-      List((List(CoreAttrs),WebArgValue,String)) l,
-      InitialValue          selected
-    ) =
-  if l is 
-    {
-      [ ] then [ ], 
-      [h . t] then 
-       if h is (attrs,val,item) then 
-       if val.value = selected.value 
-         then ["<option value=\""+encode_HTML_entities(val.value)+"\" "+format_attrs(attrs)+" selected=\"selected\">", item, "</option>\n" . format_choices(t)]
-         else ["<option value=\""+encode_HTML_entities(val.value)+"\" "+format_attrs(attrs)+" >", item, "</option>\n" . format_choices(t,selected)]
-    }.
-   
-   
+  
    Note: this  counter is private to  the virtual machine,  hence there is one  counter by
    client and by page : it seems that a new VM (simply a delegate) is started for each request.
@@ -3844,78 +3532,76 @@ define URL_or_JavaScript
    Now, we format the actioner according to its aspect. 
-define List(Text_Option)
-  get_text_options
-  (
-     List(Text_Option) l
-  )
-  =
-  if l is
-  {
-    []        then [],
-    [h . t ]  then
-      if h is class(_) then
-        get_text_options(t)
-      else if h is id(_) then
-        get_text_options(t)
-      else if h is style(_) then
-        get_text_options(t)
-      else if h is title(_) then
-        get_text_options(t)
-      else if h is core_attrs(_) then
-        get_text_options(t)
-      else
-      [  h .  get_text_options(t) ]
-   
-  }.
-  
+//define List(Text_Option)
+//  get_text_options
+//  (
+//     List(Text_Option) l
+//  )
+//  =
+//  if l is
+//  {
+//    []        then [],
+//    [h . t ]  then
+//      if h is class(_) then
+//        get_text_options(t)
+//      else if h is id(_) then
+//        get_text_options(t)
+//      else if h is style(_) then
+//        get_text_options(t)
+//      else if h is title(_) then
+//        get_text_options(t)
+//      else if h is core_attrs(_) then
+//        get_text_options(t)
+//      else
+//      [  h .  get_text_options(t) ]
+//   
+//  }.
+//  
   /**
    * Extract the CSS class list from the list of Text_Option
    */
-define List(CoreAttrs)
-  get_css_class
-  (
-     List(Text_Option) l
-  )
-  =
-  if l is
-  {
-    []        then [],
-    [h . t ]  then
-    
-    
-      if h is class(name) then
-       [ class(name) .  get_css_class(t) ]
-      else if h is id(name) then
-       [ id(name) .  get_css_class(t) ]
-      else if h is style(the_style) then
-       [ style(the_style) .  get_css_class(t) ]
-      else if h is title(name) then
-       [ tooltip(name) .  get_css_class(t) ]
-      else if h is attr(name, value) then
-       [ attr(name, value) .  get_css_class(t) ]
-      else
-        get_css_class(t)
-  }
-  .
+//define List(CoreAttrs)
+//  get_css_class
+//  (
+//     List(Text_Option) l
+//  )
+//  =
+//  if l is
+//  {
+//    []        then [],
+//    [h . t ]  then
+//      if h is class(name) then
+//       [ class(name) .  get_css_class(t) ]
+//      else if h is id(name) then
+//       [ id(name) .  get_css_class(t) ]
+//      else if h is style(the_style) then
+//       [ style(the_style) .  get_css_class(t) ]
+//      else if h is title(name) then
+//       [ tooltip(name) .  get_css_class(t) ]
+//      else if h is attr(name, value) then
+//       [ attr(name, value) .  get_css_class(t) ]
+//      else
+//        get_css_class(t)
+//  }
+//.
-define List(CoreAttrs)
-  get_core_attrs
-  (
-     List(Text_Option) l
-  )
-  =
-  if l is
-  {
-    []        then [],
-    [h . t ]  then
-      if h is core_attrs(attrs) then
-       attrs + get_core_attrs(t)
-      else
-        get_core_attrs(t)
-  }
-  . 
+//define List(CoreAttrs)
+//  get_core_attrs
+//  (
+//     List(Text_Option) l
+//  )
+//  =
+//  if l is
+//  {
+//    []        then [],
+//    [h . t ]  then
+//      if h is core_attrs(attrs) then
+//       attrs + get_core_attrs(t)
+//      else
+//        get_core_attrs(t)
+//  }
+//  . 
 define Printable_tree
   format
@@ -3933,54 +3619,54 @@ define Printable_tree
      }. 
-define String
-  format_attrs
-  (
-    List(InputAttrs)  attributs,
-    List(String)      classes,
-    List(String)      styles
-  )=
-  if attributs is
-  {
-    []      then 
-      if length(classes) = 0 then "" else " class=\""+join(" ",classes)+"\""+
-      if length(styles) = 0 then "" else " style=\""+join(";",styles)+"\"",
-    [h . t] then 
-      with new_classes = if h is class(class_name) then [class_name. classes] else classes,
-           new_styles  = if h is style(style_string) then [style_string . styles] else styles,
-           current = if h is
-      {
-        id(id_name)          then
-           " id=\"" + id_name + "\"",
-        class(class_name)    then "",
-        style(style_string)  then "",     
-        title(title_string)  then  
-           " title=\"" + title_string + "\"",
-        
-        lang(lang) then  
-           " xml:lang=" + lang,
-        dir(reading_Way)  then
-          if reading_Way is
-          {
-            ltr then  " dir=ltr",
-            rtl then  " dir=rtl"
-          },
-        
-        accesskey(key) then
-          " accesskey=\"" + key + "\"",
-        tabindex(index) then
-          " tabindex=\"" + index + "\"",
-      
-        attr(name, value) then
-           " " + name + "=\"" + value + "\"",
-        
-        event(e, value) then  
-           " " + event_name(e) + "=\"" + value + "\"",
-        data(name, value) then
-          " data-" + to_lower(name) + "=\"" + value + "\"",
-      },
-      current + format_attrs(t, classes, styles)
-  }.
+//define String
+//  format_attrs
+//  (
+//    List(InputAttrs)  attributs,
+//    List(String)      classes,
+//    List(String)      styles
+//  )=
+//  if attributs is
+//  {
+//    []      then 
+//      if length(classes) = 0 then "" else " class=\""+join(" ",classes)+"\""+
+//      if length(styles) = 0 then "" else " style=\""+join(";",styles)+"\"",
+//    [h . t] then 
+//      with new_classes = if h is class(class_name) then [class_name. classes] else classes,
+//           new_styles  = if h is style(style_string) then [style_string . styles] else styles,
+//           current = if h is
+//      {
+//        id(id_name)          then
+//           " id=\"" + id_name + "\"",
+//        class(class_name)    then "",
+//        style(style_string)  then "",     
+//        title(title_string)  then  
+//           " title=\"" + title_string + "\"",
+//        
+//        lang(lang) then  
+//           " xml:lang=" + lang,
+//        dir(reading_Way)  then
+//          if reading_Way is
+//          {
+//            ltr then  " dir=ltr",
+//            rtl then  " dir=rtl"
+//          },
+//        
+//        accesskey(key) then
+//          " accesskey=\"" + key + "\"",
+//        tabindex(index) then
+//          " tabindex=\"" + index + "\"",
+//      
+//        attr(name, value) then
+//           " " + name + "=\"" + value + "\"",
+//        
+//        event(e, value) then  
+//           " " + event_name(e) + "=\"" + value + "\"",
+//        data(name, value) then
+//          " data-" + to_lower(name) + "=\"" + value + "\"",
+//      },
+//      current + format_attrs(t, classes, styles)
+//  }.
 public define List(CoreAttrs) extract_attributes(HTML_tooltip htt).
@@ -4068,33 +3754,13 @@ define String
       current + format_attrs(t + new_attrs, new_classes, new_styles)
   }.
-define String
-  format_attrs
-  (
-    List(InputAttrs)  attributs
-  )= 
-  format_attrs(attributs, [], []).
-  
 public define String
   format_attrs
   (
     List(CoreAttrs) attributs
-  )= 
-  format_attrs(attributs, [], []).
-  
-define String 
-  format_text_options
-  (
-     List(Text_Option) l
-  )
-  =
-  with text_options = get_text_options(l),
-         core_attrs = get_css_class(l) + get_core_attrs(l),
-  (if length(text_options)= 0 then "" else " style=\"" + format(text_options) + "\" ")
-  + 
-  (if length(core_attrs) = 0 then "" else format_attrs(core_attrs))
-  .
-
+  )= 
+  format_attrs(attributs, [], []).
+  
 define Printable_tree
   format_div_option
   (
@@ -4166,7 +3832,7 @@ define Printable_tree
        link(opt, text, mb_name) then 
                         with name_tag = if mb_name is success(n) then " name=\"" + n + "\"" else "",
                         [
-                          "<a href=\"", full_url, "\"", format_text_options(opt), name_tag, ">",
+                          "<a href=\"", full_url, "\"", format_attrs(opt), name_tag, ">",
                           text,
                           "</a>"
                         ], 
@@ -4192,10 +3858,10 @@ define Printable_tree
        //  [ ],
        immediate_selector(opt,name,size,choices,selected,function) then          
          [ ],
-       html(options, html_off_form)  then
+       html(options, html)  then
          [
           "<a href=\"", full_url,"\"", format_attrs(options), ">",
-             format(cinfo, ic_v, html_off_form, is_https, action_count, head_tags),
+             format(cinfo, ic_v, html, is_https, action_count, head_tags),
           "</a>"
          ]
      }. 
@@ -4234,10 +3900,10 @@ define Printable_tree
                                              url(_)                   then ""
                         },
                         if action_name = ""  then 
-                          ["<a ", format_text_options(opt), name_tag, ">", text, "</a>" ]
+                          ["<a ", format_attrs(opt), name_tag, ">", text, "</a>" ]
                         else 
                           ["<a href=\"",url,"\"",
-                           format_text_options(opt), name_tag, ">",
+                           format_attrs(opt), name_tag, ">",
                             text,
                             "</a>"
                           ], 
@@ -4329,15 +3995,6 @@ define Printable_tree
            }
          ], 
-//       immediate_selector(options,name,size,choices) then          
-//         [ if action is 
-//             {
-//               url(u)           then ["<select href=\"",u]
-//               javascript(s,h)  then [s,"<select onchange=\"",h]
-//             },
-//             "\" name=\"",name,"\" size=\"",size,"\"", format_attrs(options), ">",
-//              format_choices(choices),"</select>"
-//         ],
        immediate_selector(options, name, size, choices, mb_selected, custom_function_name) then          
          [
           //if custom function name is provided, that name is used instead of autogenerated js function
@@ -4353,10 +4010,10 @@ define Printable_tree
              "\" name=\"",name,"\" size=\"",size,"\"", format_attrs(options), ">",
              if mb_selected is success(selected) then format_choices(choices, selected) else format_choices(choices),"</select>"
          ],
-       html(options, html_off_form)  then
+       html(options, html)  then
        [
         "<a href=\"", url,"\"", format_attrs(options), ">",
-           format(cinfo, ic_v, html_off_form, is_https, action_count, head_tags),
+           format(cinfo, ic_v, html, is_https, action_count, head_tags),
         "</a>"
        ]
      }. 
@@ -4401,283 +4058,14 @@ define Printable_tree
       *** [5.6] Formating rows and cells in a table. 
-define Int
-   percent
-     (
-       Int p
-     ) =
-   if p < 0 then 0 else if p > 100 then 100 else p. 
-   
-   
-   
-   
-   Formating cell options. 
-
-   
-   
-define String 
-   format
-     (
-       BackgroundOption o
-     ) =
-   if o is 
-     {
-       repeat             then "",
-       repeat_horizontal  then "; background-repeat: repeat-x",
-       repeat_vertical    then "; background-repeat: repeat-y",
-       no_repeat          then "; background-repeat: no-repeat",
-       center             then "; background-position: center top"      
-     }. 
-   
-define String
-   format     
-     (
-        List(BackgroundOption) l
-     ) =
-   if l is 
-     {
-       [ ] then "", 
-       [h . t] then format(h)+format(t)
-     }.
-     
-   
-define String 
-   format
-     (
-       List(Cell_Option)   options
-     ) =
-   if options is 
-     {
-       [ ] then "", 
-       [h . t] then 
-         if h is
-            {
-              core_attrs(core_attr_list)    then format_attrs(core_attr_list),       
-              left                          then " align=\"left\"",
-              h_center                      then " align=\"center\"",
-              right                         then " align=\"right\"",
-              top                           then " valign=\"top\"",
-              v_center                      then " valign=\"middle\"",
-              bottom                        then " valign=\"bottom\"",
-              base_line                     then " valign=\"baseline\"",
-              background_color(c)           then " bgcolor=\""+html_format(c)+"\"",
-              background_image(n,o)         then " style=\"background: url("+n+")"+format(o)+"\"",
-              width(w)                      then " width=\""+w+"\"",
-              percentage_width(n)           then " width=\""+percent(n)+"%\"", 
-              height(h2)                    then " height=\""+h2+"\"",
-              columns(n)                    then " colspan=\""+n+"\"",
-              rows(n)                       then " rowspan=\""+n+"\"",
-              nowrap                        then " nowrap",
-              style(style_string)           then " style=\"" + style_string + "\"",
-              class(class_name)             then " class=\""+class_name+"\""
-            }
-         + format(t)
-     }.
-   
-   
-   Normalizing a list of cell options  (horizontal position must be specified; the default
-   is 'left').   
-   
-   Formating cells in a row. 
-   
-define Printable_tree
-   format
-     (
-       List(HTML_Cell($T))               cells,
-       $T -> Printable_tree     format_element
-     ) =
-   if cells is 
-     {
-       [ ] then [ ], 
-       [h . t] then if h is cell(options,element) then 
-         ["<td",format(reverse(options)),">",
-            format_element(element), 
-          "</td>" 
-          . format(t,format_element)]
-     }. 
-   
-define Printable_tree
-   format
-     (
-       List(HTML_Header_Cell($T)) cells,
-       $T -> Printable_tree       format_element
-     ) =
-   if cells is 
-     {
-       [ ] then [ ], 
-       [h . t] then if h is header_cell(options,element) then 
-         ["<th ",format(reverse(options)),">",
-            format_element(element), 
-          "</th>" 
-          . format(t,format_element)]
-     }.
-     
-   Formating the rows in a table. 
-   
-define Printable_tree
-  format
-  (
-    List(HTML_Row($T))    rows,
-    $T -> Printable_tree  format_element,    
-  )=
-  if rows is 
-  {
-    [ ]     then [ ], 
-    [h . t] then 
-      if h is
-      {
-        empty               then format(t, format_element),
-        row(options, cells) then
-          ["<tr",format(reverse(options)),">", format(cells, format_element), "</tr>\n"
-           . format(t, format_element)]
-     }
-  }
-.
-   
-define Printable_tree
-  format
-  (
-    HTML_Header_Row($T)     row,
-    $T -> Printable_tree     format_element   
-  ) =
-  if row is 
-  {
-    empty                     then [ ], 
-    header_row(options,cells) then 
-         ["<thead> <tr",format(reverse(options)),">",
-          format(cells,format_element),
-          "</tr> </thead>\n"
-         ]
-   }.   
-
-define Printable_tree
-  format
-  (
-    HTML_Footer_Row($T)      row,
-    $T -> Printable_tree     format_element   
-  ) =
-  if row is 
-  {
-    empty                     then [ ], 
-    footer_row(options,cells) then 
-         ["<tfoot> <tr",format(reverse(options)),">",
-          format(cells,format_element),
-          "</tr> </tfoot>\n"
-         ]
-   }.   
-
-define Printable_tree
-   format1
-     (
-       List(TextAreaOption) l
-     ) =
-   if l is 
-     {
-       [] then [], 
-       [h . t] then if h is 
-         {
-           input_attrs(input_attr_list)    then [format_attrs(input_attr_list) . format1(t)],       
-           disabled    then [" disabled=\"disabled\" " . format1(t)]
-           read_only   then [" readonly=\"readonly\" " . format1(t)]
-           wrap_lines  then [" wrap=\"wrap\" " . format1(t)]
-         }
-     }.
-   
-define Printable_tree
-  format
-  (
-    List(TextAreaOption) l
-  )=
-  if member(l, wrap_lines) then 
-    format1(l)
-  else 
-    [" wrap=\"off\" " . format1(l)]
-.
-   
-   
-      *** [5.7] Formating elements which may be put anywhere. 
-   
-   The  function  below  involves  the   parameter  $T  which  is  later  instantiated  as
-   'HTML_In_Form' or as 'HTML_Off_Form'. Now,  since there are dictinct 'format' functions
-   for these two  types, and because formating of tables requires  recursive calls of such
-   functions, it is necessary to provide the 'format' function to be called recursively as
-   an argument.   Putting naively a call to  'format' will not work,  because the compiler
-   will look for a function able to format data of type $T (which is at that time distinct
-   from any other type,  including our two types).  Such a function  does not exist. Hence
-   the  function to  be  called for  formating elements  must  be passed  as a  functional
-   argument (called 'format_element' below).  Actually,  what we pass is a function taking
-   a unique  argument of type  $T.  Other  informations (like the  name of the  state) are
-   already in the function by way of full functionality.
-   
-   
-   Formating  text  options.  They are  formated  in  CSS  syntax,  to  be used  within  a
-   'style=...'.
-   
-define String
-   format
-     (
-       List(Text_Option) l
-     ) =
-   if l is 
-     {
-       [ ] then "",
-       [h . t] then if h is 
-         {
-         core_attrs(core_attr_list) then format_attrs(core_attr_list),
-         size(n)            then "font-size:"+n+"pt",
-         font(fn)           then "font-family:"+fn,
-         color(c)         then if c is rgb(r,g,b) then 
-         "color:rgb("+to_decimal(r)+","+to_decimal(g)+","+to_decimal(b)+")",
-         italic           then "font-style:italic",
-           oblique          then "font-style:oblique",
-           small_capitals   then "font-variant:small-caps",
-           bold             then "font-weight:bold",
-           underlined       then "text-decoration:underline",
-           left_justified   then "text-align:left",
-           right_justified  then "text-align:right",
-           justified        then "text-align:justify",
-           line_through     then "text-decoration:line-through",
-           nowrap           then "white-space:nowrap",
-           class(class_name)then " class=\"" + class_name +"\"",
-           id(id_name)      then " id=\"" + id_name +"\"",
-           style(style_string)  then " style=\"" + style_string + "\"",
-           title(s)         then " title=\"" + s +"\""
-           attr(n,v)        then " " + n + "=\"" + v +"\""
-         } + if t is [ ] then "" else ("; "+format(t))
-     }.
-   
-   
-   
-   Formating table options. 
-   
-define String 
-   format
-     (
-       List(Table_Option)    l,
-       Bool                  border_seen
-     ) =
-   if l is 
-     {
-       [ ] then if border_seen then "" else " border=\"0\" cellspacing=\"0\" cellpadding=\"0\"",
-       [h . t] then if h is 
-         {
-           core_attrs(core_attr_list) then format_attrs(core_attr_list),
-           background_color(c)        then " bgcolor=\""+html_format(c)+"\""+format(t,border_seen), 
-           background_image(url)      then " background="+url+format(t,border_seen),
-           border(o,top,i,c)          then " border=\""+o+"\" cellspacing=\""+top+"\" cellpadding=\""+i+"\""+
-                                         //" bordercolor="+format(c)+
-                                         format(t,true), 
-           width(w)                   then " width=\""+w+"\""+format(t,border_seen),
-           percentage_width(p)        then " width=\""+percent(p)+"%\""+format(t,border_seen),
-           attr(name, value)          then " " + name + "=\"" + value + "\"" +format(t,border_seen),
-           class(name)                then " class=\""+name+"\""
-         }
-     }.
-   
-
-   
-   
+//define Int
+//   percent
+//     (
+//       Int p
+//     ) =
+//   if p < 0 then 0 else if p > 100 then 100 else p. 
+  
 define Printable_tree
    format_scroller
      (
@@ -4766,7 +4154,7 @@ define Printable_tree
   }.
-define Printable_tree
+ define Printable_tree
   add_css_styles
   (
     List(CSS_Style) css_styles
@@ -4784,7 +4172,7 @@ define Printable_tree
    // The function below formats a datum of type 'HTML_Any($T)'. 
-define Printable_tree
+ define Printable_tree
   format
   ( 
     CommonInfo                 cinfo, 
@@ -4798,55 +4186,14 @@ define Printable_tree
   if cinfo is info(common_name,http_port,https_port,site_directory,secret) then 
   if element is 
   {
-    any_text(opts , t)            then 
-      if opts is
-      {
-        []      then [t],
-        [_ . _] then ["<span", format_attrs(opts), ">",t,"</span>"]
-      },
-    any_preformated(opts,s)       then 
-     ["<span", format_text_options(opts), "><pre>",s,"</pre></span>"], 
-     //["<pre>",s,"</pre>"], 
-    any_paragraph(opts,l)         then 
-     ["<p", format_text_options(opts), ">", flat(map(($T e) |-> format_element(e), l)),"</p>\n"], 
-    any_image(opts, url, _alt)                then 
-      with alt = if _alt = "" then "" else "alt=\""+_alt+"\"",
-     ["<img ",alt," src=\"",url,"\" ", format_attrs(opts)," />"],
-    any_image(opts, url, alt, w, h)            then 
-     ["<img alt=\"",alt,"\" src=\"",url,"\" width=\"",w,"\" height=\"",h,"\" ", format_attrs(opts)," />"],
-    any_table(opts,h_row, rows, f_row) then 
-     ["<table",format(reverse(opts),false),">",
-        format(h_row, format_element),
-        "<tbody>",format(rows,format_element),"</tbody>",
-        format(f_row, format_element),
-        "</table>\n"],
-    any_center(e)                 then 
-     ["<center>",format_element(e),"</center>"], 
-    any_mail_to(email,elem)       then
-     ["<a href=\"mailto:",email,"\">",format_element(elem),"</a>"], 
-    any_scroller(w,h,cw,ch,c)     then 
-     format_scroller(w,h,cw,ch,new_idnum(ic_v),c,format_element), 
-    any_fixed_size(w,h,c)         then 
-     with url = create_secondary_document(site_directory,secret,format_element,c,w), 
-     ["<object data=\"",url,"\" type=\"text/html\" width=\"",format(w),"\" height=\"",format(h),"\" >",
-         "secondary document",
-      "</object>"], 
-    any_fixed_size_2(w,h,fn)        then
-     with url = fn+"?zauth="+make_authorization(site_directory,secret,
-             fn),
-     ["<object data=\"",url,"\" type=\"text/html\" width=\"",format(w),"\" height=\"",format(h),"\" >",
-         "secondary document",
-      "</object>"],          
-    any_actioner(c,t,a,an,eo,ja,fn)  then 
-     format_actioner(cinfo,c,t,a,an,eo,ja,fn,is_https, action_count, ic_v, head_tags),
     any_foreign_link_new(target, aspect, url)    then
      format_foreign_link(target, aspect, url, is_https, cinfo, action_count, ic_v, head_tags),
     any_foreign_link(options,url)    then
-     ["<a href=\"",url,"\" ", format_text_options(options), "></a>"],  // IE7 doesn't support the form <a href="..." />
+     ["<a href=\"",url,"\" ", format_attrs(options), "></a>"],  // IE7 doesn't support the form <a href="..." />
     any_foreign_link(options,url,name)    then
-     ["<a href=\"",url,"\"><span ", format_text_options(options), ">",name,"</span></a>"], 
+     ["<a href=\"",url,"\"><span ", format_attrs(options), ">",name,"</span></a>"], 
     any_private_download(url,name,extra_ext,action)  then 
      format_private_download(cinfo,url,name,extra_ext,action),
     any_div(options, l)                   then
@@ -4879,22 +4226,6 @@ define Printable_tree
   //    *** [5.8] Formating 'in form' elements. 
-
-//public define Printable_tree
-//  format
-//  (
-//    HTML_tooltip  tooltip
-//  )=
-//  if tooltip is
-//  {
-//    html_tooltip(title, keyword, width)                           then
-//      ["<a id=\"help_",keyword,"\" class=\"jTipu jTip_help\" name=\"",title,"\" href=\"/?a=ajax_show_tooltip&amp;tooltip_id=",keyword,(if width > 0 then ["&width=",width,"\""] else ["\""]), "></a>"],
-//
-//    html_tooltip_ext(title, extend_type, class_suffix, ext_args)  then
-//      with extra_args = format_extra_operands(ext_args),
-//      ["<a id=\"jTip\" class=\"jTipu jTip_",class_suffix,"\" name=\"",title,"\" href=\"/?a=ajax_show_tooltip&amp;tooltip_ext=",extend_type+extra_args,"\"></a>"]
-//  }.
-
 public define List(CoreAttrs)
   extract_attributes
   (
@@ -4904,26 +4235,18 @@ public define List(CoreAttrs)
   {
     html_tooltip(title, keyword, width)                           then  //TODO
       []
-      //["<a id=\"help_",keyword,"\" class=\"jTipu \" name=\"",title,"\" href=\"/?a=ajax_show_tooltip&tooltip_id=",keyword,(if width > 0 then ["&width=",width,"\""] else ["\""]), "><i class=\"fa fa-info\" aria-hidden=\"true\" style=\"color:#2e6da4\"></i></a>"],
-
+ 
     html_tooltip_ext(title, extend_type, class_suffix, ext_args)  then  //TODO
-      //[]
+
       with extra_args = format_extra_operands(ext_args),
       [id("jTip"), class("jTipu jTip_"+class_suffix), data("name",title), data("href", "/?a=ajax_show_tooltip&tooltip_ext="+extend_type+extra_args)]
     html_tooltip_ext(title, extend_type, ext_args)  then  //TODO
       with extra_args = format_extra_operands(ext_args),
       [id("jTip"), class("jTipu"), data("name",title), data("href", "/?a=ajax_show_tooltip&tooltip_ext="+extend_type+extra_args)]
-//      []
-      //with extra_args = format_extra_operands(ext_args),
-      //["<a id=\"jTip\" class=\"jTipu \" name=\"",title,"\" href=\"/?a=ajax_show_tooltip&tooltip_ext=",extend_type+extra_args,"\"><i class=\"fa fa-info\" aria-hidden=\"true\" style=\"color:#2e6da4\"></i></a>"],
     html_tooltip(title, web_action, extra_args)     then
-      [ id("jTip"), class("jTipu"), data("name", title), data("href", "/"+format_web_action_name(web_action, extra_args))
-      ]
-      
-      //["<a id=\"jTip\" class=\"jTipu \" name=\"",title,"\" href=\"/", format_web_action_name(web_action, extra_args) ,"\"><i class=\"fa fa-info\" aria-hidden=\"true\" style=\"color:#2e6da4\"></i></a>"],
-      
+      [ id("jTip"), class("jTipu"), data("name", title), data("href", "/"+format_web_action_name(web_action, extra_args))]      
   }
 .
@@ -4952,31 +4275,45 @@ public define Printable_tree
   }
 .
-  
-public define HTML_Off_Form
+
+public define HTML
+  format
+  (
+    HTML_tooltip  tooltip
+  )=
+  if tooltip is
+  {
+    html_tooltip(title, keyword, width)                           then
+      a([id("help_"+keyword), class("jTipu"), data("name", title), data("href", "/?a=ajax_show_tooltip&tooltip_id="+keyword+(if width > 0 then "&width="+width+"\"" else "\""))],
+        i([class("fa fa-info"), aria("hidden","true"), style("color:#2e6da4")])),
+
+    html_tooltip_ext(title, extend_type, class_suffix, ext_args)  then
+      with extra_args = format_extra_operands(ext_args),
+      a([id("jTip"), class("jTipu jTip_"+class_suffix), data("name", title), data("href", "/?a=ajax_show_tooltip&tooltip_ext="+extend_type+extra_args)])
+      
+    html_tooltip_ext(title, extend_type, ext_args)  then
+      with extra_args = format_extra_operands(ext_args),
+      a([id("jTip"), class("jTipu"), data("name", title), data("href", "/?a=ajax_show_tooltip&tooltip_ext="+extend_type+extra_args)],
+        i([class("fa fa-info"), aria("hidden","true"), style("color:#2e6da4")])),
+
+    html_tooltip(title, web_action, extra_args)     then
+      a([id("jTip"), class("jTipu"), data("name", title), data("href", "/"+format_web_action_name(web_action, extra_args))],
+        i([class("fa fa-info"), aria("hidden","true"), style("color:#2e6da4")])),
+  }
+.
+
+public define HTML
   html_tooltip
   (
     String                title,
     WEB_Action_Name       web_action,
     List((String,String)) extra_args,
-    HTML_Off_Form         html_element,
+    HTML         html_element,
   )=
-  sequence([
-    literal_pt(["<span id=\"jTip\" class=\"jTipu\" data-name=\"",title,"\" data-href=\"/", format_web_action_name(web_action, extra_args) ,"\">"]),
-    html_element,
-    literal_pt(["</span>"])
-  ])
+  span([id("jTip"), class("jTipu"), data("name", title), data("href", "/"+format_web_action_name(web_action, extra_args))], html_element)
 .
-public define HTML_Off_Form
-  html_tooltip
-  (
-    String title,
-    String keyword,
-  ) =
-  literal_pt(format(html_tooltip(title, keyword, 0))).
-
-public define HTML_In_Form
+public define HTML
   html_tooltip
   (
     String title,
@@ -4984,7 +4321,7 @@ public define HTML_In_Form
   ) =
   literal_pt(format(html_tooltip(title, keyword, 0))).
-public define HTML_Off_Form
+public define HTML
   html_tooltip
   (
     String  keyword,
@@ -4992,13 +4329,6 @@ public define HTML_Off_Form
   ) =
   literal_pt(format(html_tooltip("", keyword, size))).
-public define HTML_In_Form
-  html_tooltip
-  (
-    String  keyword,
-    Int     size,
-  ) =
-  literal_pt(format(html_tooltip("", keyword, size))).
 public define Printable_tree
   format_help
@@ -5008,8 +4338,8 @@ public define Printable_tree
   ) =
   if _help is
   {
-    no_help                     then label,
-    tooltip(html_tooltip, position)  then 
+    no_help                           then label,
+    tooltip(html_tooltip, position)   then 
       if position is 
       {
         left  then pt_pt(format(html_tooltip),label),
@@ -5035,7 +4365,7 @@ public define Printable_tree
   ) =
   if _label is
   {
-    no_label              then [],
+    no_label          then [],
     label(text, help) then 
       format_help(
         ["<label"+(if _id.id ="" then "" else " for=\""+_id.id+"\"")+">",text,"</label>"],
@@ -5043,234 +4373,27 @@ public define Printable_tree
       )
   }.
-   
-define Printable_tree
-  format
+public define HTML
+  format_label
   (
-     CommonInfo               cinfo, 
-     String                   fn,      // form_name
-     Var(Int)                 ic_v,    // idnum counter variable
-     HTML_In_Form             element,
-     Bool                     is_https,
-     Var(Int)                 action_count,
-     Var(List(HTML_Head_Tag))   head_tags
+    HTML_Label  _label,
+    HTML_Id     _id
   ) =
-   if cinfo is info(common_name,http_port,https_port,site_directory,secret) then 
-   with format_element = (HTML_In_Form e) |-> format(cinfo, fn, ic_v, e, is_https, action_count, head_tags), 
-   if element is 
-     {
-       empty                       then [],
-       literal_pt(t)               then t, 
-       literal(t)                  then [t], 
-       sequence(l)                 then flat(map(format_element,l))
-       text(opts,t)                then 
-         format(cinfo,ic_v,any_text(opts,t),format_element,is_https, action_count, head_tags), 
-       preformated(o,s)            then 
-         format(cinfo,ic_v,any_preformated(o,s),format_element,is_https, action_count, head_tags), 
-       paragraph(opts,t)           then 
-         format(cinfo,ic_v,any_paragraph(opts,t),format_element,is_https, action_count, head_tags), 
-       image(opts, url, alt)       then 
-         format(cinfo,ic_v,any_image(opts, url, alt),format_element,is_https, action_count, head_tags),
-       image(opts, url, alt, w, h) then 
-         format(cinfo,ic_v,any_image(opts, url, alt, w, h),format_element,is_https, action_count, head_tags),
-       table(opts,header_row,rows,footer_row)            then 
-         format(cinfo,ic_v,any_table(opts, header_row, rows, footer_row),format_element,is_https, action_count, head_tags),
-       center(e)                   then 
-         format(cinfo,ic_v,any_center(e),format_element,is_https, action_count, head_tags), 
-       mail_to(a,e)                then 
-         format(cinfo,ic_v,any_mail_to(a,e),format_element,is_https, action_count, head_tags), 
-       scroller(w,h,cw,ch,c)       then 
-         format(cinfo,ic_v,any_scroller(w,h,cw,ch,c),format_element,is_https, action_count, head_tags), 
-       actioner(c,t,a,an,eo,ja)    then 
-         format(cinfo,ic_v,any_actioner(c,t,a,an,eo,ja,success(fn)),format_element,is_https, action_count, head_tags),
-         
-       foreign_link_new(target, aspect, url)  then
-         format(cinfo,ic_v,any_foreign_link_new(target,aspect,url),format_element,is_https, action_count, head_tags),
- 
-       foreign_link(options,url)  then
-         format(cinfo,ic_v,any_foreign_link(options,url),format_element,is_https, action_count, head_tags), 
-       foreign_link(options,url,name)  then
-         format(cinfo,ic_v,any_foreign_link(options,url,name),format_element,is_https, action_count, head_tags), 
-       private_download(url,name,extra,action)    then 
-         format(cinfo,ic_v,any_private_download(url,name,extra,action),format_element,is_https, action_count, head_tags),    
-       text_input(options, label_text, id, name, init, w)           then 
-         [ format_label(label_text, id), 
-           "<input type=\"text\" name=\"",name,"\" id=\"",id,"\" size=\"",w,"\" value=\"",encode_HTML_entities(init.value),"\"",format_attrs([class("in") . options])," />"],
-       text_input_ro(options, label_text, id, name, init, w)           then 
-         [ format_label(label_text, id), 
-           "<input readonly=\"readonly\" type=\"text\" name=\"",name,"\" id=\"",id,"\" size=\"",w,"\" value=\"",encode_HTML_entities(init.value),"\"",format_attrs([class("in") . options])," />"],
-       password_input(options, label_text, id, name, init, w)         then 
-         [ format_label(label_text, id), 
-           "<input type=\"password\" name=\"",name,"\" id=\"",id,"\" size=\"",w,"\" value=\"",encode_HTML_entities(init.value),"\"",format_attrs([class("in") . options])," />"],
-       text_area(options,label_text, id, n, init, w, h)          then
-         [ format_label(label_text, id), "<textarea ",format(options)," id=\"",id,"\" name=\"",n,"\" cols=\"",w,"\" rows=\"",h,"\">",encode_HTML_entities(init.value),"</textarea>"],
-       file_upload(options, label, id, n, w)            then 
-         [ format_label(label, id), 
-           "<input type=\"file\" id=\"",id,"\" size=\"",w,"\" name=\"",n,"\"",format_attrs([class("in") . options])," />"],
-       selector(options, label, id, n,s,cs)            then 
-         [ format_label(label, id), 
-          "<select id=\"",id,"\" name=\"",n,"\" size=\"",s,"\" ",format_attrs([class("in") . options]),">",format_choices(cs),"</select>"],
-       selector(options, label, id, n,s,cs,sd)         then 
-         [ format_label(label, id), 
-          "<select id=\"",id,"\" name=\"",n,"\" size=\"",s,"\" ",format_attrs([class("in") . options]),">",format_choices(cs,sd),"</select>"],
-       selector_c(options, label, id, n,s,cs)            then 
-         [ format_label(label, id), 
-          "<select id=\"",id,"\" name=\"",n,"\" size=\"",s,"\" ",format_attrs([class("in") . options]),">",format_choices(cs),"</select>"],
-       selector_c(options, label, id, n,s,cs,sd)         then 
-         [ format_label(label, id), 
-          "<select id=\"",id,"\" name=\"",n,"\" size=\"",s,"\" ",format_attrs([class("in") . options]),">",format_choices(cs,sd),"</select>"],
-   
-       radio_button(options, label, id, n, value, c)         then  
-         [ format_label(label, id), 
-           "<input type=\"radio\" name=\"",n,"\" id=\"",id,"\" value=\"",value,"\"",(if c then " checked=\"checked\"" else ""),format_attrs([class("in") . options])," />"],
-       radio_button_r(options, label, id, n, value, c)         then  
-         [ "<input type=\"radio\" name=\"",n,"\" id=\"",id,"\" value=\"",value,"\"",(if c then " checked=\"checked\"" else ""),format_attrs([class("in") . options])," />",
-           format_label(label, id)],
-       check_box(options, label, id, n, c)              then 
-         [ format_label(label, id), 
-           "<input type=\"hidden\" name=\"~",n,"\" value=\"~true\" /><input type=\"checkbox\" name=\"",n,"\" id=\"",id,"\" value=\"true\"",(if c then " checked=\"checked\" " else ""),format_attrs([class("in") . options])," />"]
-       check_box_r(options, label, id, n, c)              then 
-         [ "<input type=\"hidden\" name=\"~",n,"\" value=\"~true\" /><input type=\"checkbox\" name=\"",n,"\" id=\"",id,"\" value=\"true\"",(if c then " checked=\"checked\" " else ""),format_attrs([class("in") . options])," />",
-           format_label(label, id)]
-       div(options, e)                  then
-        format(cinfo,ic_v,any_div(options, e),format_element,is_https, action_count, head_tags),    
-       div_empty(options)               then
-        format(cinfo,ic_v,any_div_empty(options),format_element,is_https, action_count, head_tags),
-      hidden(_id, name, init)          then
-        since _id is html_Id(id),
-         ["<input type=\"hidden\"",(if id = "" then "" else " id=\""+id+"\"")," name=\"",name,"\" value=\"",encode_HTML_entities(init.value),"\" />"],
-       partial(p_content)               then
-        if p_content is partial_content(tags, html_elements) then
-          head_tags <- *head_tags + tags;
-
-          format(cinfo, ic_v, html_elements, is_https, action_count, head_tags),
-       br                               then ["<br>"],
-       progress(options, value, max)    then ["<progress max=\"",value,"\" value=\"",max,"\"",format_attrs(options),"></progress>"],
-       ol(opts, t)            then 
-         format(cinfo,ic_v,any_ol(opts,t),format_element,is_https, action_count, head_tags), 
-       ul(opts, t)            then 
-         format(cinfo,ic_v,any_ul(opts,t),format_element,is_https, action_count, head_tags), 
-       li(opts, t)            then 
-         format(cinfo,ic_v,any_li(opts,t),format_element,is_https, action_count, head_tags),
-       button(options, e)     then
-        format(cinfo,ic_v,any_button(options, e),format_element,is_https, action_count, head_tags),
-       i(opts, t)             then 
-         format(cinfo,ic_v,any_i(opts,t),format_element,is_https, action_count, head_tags),
-       span(opts,t)           then 
-         format(cinfo,ic_v,any_span(opts,t),format_element,is_https, action_count, head_tags)
-       hr(opts)           then 
-         format(cinfo,ic_v,any_hr(opts),format_element,is_https, action_count, head_tags)         
-     }. 
-
-   
-   
-   
-   
-   
+  if _label is
+  {
+    no_label          then empty,
+    label(text, help) then 
+      literal_pt(
+      format_help(
+        ["<label"+(if _id.id ="" then "" else " for=\""+_id.id+"\"")+">",text,"</label>"],
+        help
+      ))
+  }.
+  
       *** [5.9] Formating 'off form' elements. 
    The encryption type 'multipart/form-data' is required for a form containing an upload. 
-   
-define Bool
-  contains_an_upload
-  (
-    HTML_In_Form form_content
-  ).   
-   
-define Bool
-  contains_an_upload
-  (
-    HTML_Row(HTML_In_Form) row
-  ) =
-  if row is
-  {
-    empty         then false,
-    row(_, cells) then
-      mapor(contains_an_upload,
-         map(content, cells))
-  }
-. 
-   
-define Bool
-  contains_an_upload
-  (
-    HTML_Footer_Row(HTML_In_Form) row
-  )=
-  if row is
-  {
-    empty                 then false,
-    footer_row(_, cells)  then 
-      mapor(contains_an_upload,
-            map(content,cells))
-  }.
-   
-define Bool
-   contains_an_upload
-    (
-      HTML_In_Form form_content
-    ) =
-   if form_content is
-     {
-   empty                      then false,
-   literal_pt(t)              then false,
-   literal(t)                 then false,
-   sequence(l)                then mapor(contains_an_upload,l),
-   text(o,t)                  then false,  
-   preformated(o,s)           then false, 
-   paragraph(o,l)             then mapor(contains_an_upload,l),  
-   image(o,u,a)               then false, 
-   image(o,u,a,w,h)           then false, 
-   table(o,_,rows,f_row)      then if mapor(contains_an_upload,rows) then true 
-                                                                     else contains_an_upload(f_row),
-   center(e)                  then contains_an_upload(e), 
-   mail_to(m,e)               then false, // 'e' may but should not contain an upload 
-   scroller(w,h,cw,ch,e)      then contains_an_upload(e), 
-   actioner(c,t,a,an,eo,ja)   then false, 
-   foreign_link_new(_,_,_)    then false,
-   foreign_link(o,u)          then false,
-   foreign_link(o,u,n)        then false,
-   private_download(p,n,e,a)  then false, 
-   text_input(o,lt,l,n,i,w)     then false,
-   text_input_ro(o,lt,l,n,i,w)  then false,
-   password_input(o,lt,l,n,i,w) then false,
-   text_area(o,lt,id,n,i,w,h)   then false, 
-   file_upload(o,l,i,n,w)     then true, 
-   selector(o,l,i,n,s,c)      then false, 
-   selector(o,l,i,n,s,c,p)    then false,  
-   selector_c(o,l,i,n,s,c)    then false, 
-   selector_c(o,l,i,n,s,c,p)  then false,  
-   radio_button(o,_,_,n,v,c)  then false,
-   radio_button_r(o,_,_,n,v,c)  then false,
-   check_box(o,_,_,n,c)       then false,
-   check_box_r(o,_,_,n,c)     then false,
-   div(o,l)                   then mapor(contains_an_upload,l), //contains_an_upload(c),
-   div_empty(o)               then false,
-   hidden(_,_,_)              then false,
-   partial(_)                 then false,
-   br                         then false,
-   progress(_,_,_)            then false,
-   ol(_,l)                    then mapor(contains_an_upload,l),
-   ul(_,l)                    then mapor(contains_an_upload,l),
-   li(_,l)                    then mapor(contains_an_upload,l),
-   button(_,_)                then false,
-   i(_,_)                     then false,
-   span(_,_)                  then false,
-   hr(_)                      then false
-  }
-.
-   
-define String
-  enctype
-  (
-      List(HTML_In_Form) form_contents
-  )=
-  if mapor(contains_an_upload, form_contents) then 
-    " enctype=\"multipart/form-data\""
-  else 
-    ""
-.
- 
 define Printable_tree
   format_href
   (
@@ -5305,7 +4428,7 @@ define Printable_tree
   (
     CommonInfo               cinfo, 
     Var(Int)                 ic_v,             // 'idnum' counter variable
-    List(HTML_Off_Form)      elements,
+    List(HTML)      elements,
     Bool                     is_https,
     Var(Int)                 action_count,
     Var(List(HTML_Head_Tag)) head_tags
@@ -5316,13 +4439,13 @@ define Printable_tree
   (
     CommonInfo               cinfo, 
     Var(Int)                 ic_v,             // 'idnum' counter variable
-    HTML_Off_Form            element,
+    HTML            element,
     Bool                     is_https,
     Var(Int)                 action_count,
-    Var(List(HTML_Head_Tag)) head_tags
+    Var(List(HTML_Head_Tag)) global_head_tags
   ) =
    if cinfo is info(common_name,http_port,https_port,site_directory,secret) then 
-   with format_element = (HTML_Off_Form e) |-> format(cinfo, ic_v, e, is_https, action_count, head_tags), 
+   with format_element = (HTML e) |-> format(cinfo, ic_v, e, is_https, action_count, global_head_tags), 
   if element is 
   {
     a(opts, _href, _target, l)      then ["<a ", format_attrs(opts), format_href(_href), format_target(_target), ">",flat(map(format_element,l)),"</a>\n"],
@@ -5330,88 +4453,75 @@ define Printable_tree
        literal_pt(t)                then t, 
        literal(t)                   then [t], 
        sequence(l)                  then flat(map(format_element,l)),
-       text(opts,t)                 then 
-         format(cinfo,ic_v,any_text(opts,t),format_element,is_https, action_count, head_tags), 
-       table(opts,header_row, rows, footer_row) then 
-         format(cinfo,ic_v,any_table(opts,header_row, rows, footer_row),format_element,is_https, action_count, head_tags), 
+    text(opts,t)                 then 
+        if opts is
+        {
+          []      then [t],
+          [_ . _] then ["<span", format_attrs(opts), ">",t,"</span>"]
+        },
        actioner(c,t,a,an,eo,ja)     then 
-         format(cinfo,ic_v,any_actioner(c,t,a,an,eo,ja,failure),format_element,is_https, action_count, head_tags), 
+         //format(cinfo,ic_v,
+            format_actioner(cinfo,c,t,a,an,eo,ja,failure,is_https, action_count, ic_v, global_head_tags),
+         //   is_https, action_count, head_tags),
+         
        actioner(c,t,a,an,eo,ja,fn)  then 
-         format(cinfo,ic_v,any_actioner(c,t,a,an,eo,ja,success(fn)),format_element,is_https, action_count, head_tags), 
-       foreign_link_new(target, aspect, url)  then
-         format(cinfo,ic_v,any_foreign_link_new(target,aspect,url),format_element,is_https, action_count, head_tags),
-       foreign_link(options,url)       then
-         format(cinfo,ic_v,any_foreign_link(options,url),format_element,is_https, action_count, head_tags), 
-       foreign_link(options,url,name)       then
-         format(cinfo,ic_v,any_foreign_link(options,url,name),format_element,is_https, action_count, head_tags), 
-       private_download(url,name,extra,action)     then 
-         format(cinfo,ic_v,any_private_download(url,name,extra,action),format_element,is_https, action_count, head_tags),    
-       form(fn,attributs, l)        then
-         [
-           "<form id=\"",fn,"\"",
-           format(cinfo,ic_v,any_coreattrs(attributs),format_element,is_https, action_count, head_tags),
-           " method=\"post\"",
-              enctype(l),
-              " action=\"http",
-                         if is_https then "s" else "",
-                         "://",common_name,":",to_decimal(http_port),"/\">",      
-                                      // action is set dynamically by
-                                      // the actioner using JavaScript
-              if fn is html_Id(id) then
-              flat(map((HTML_In_Form e) |-> format(cinfo,id,ic_v,e,is_https, action_count, head_tags), l)),               
-           "</form>"
-         ]
-       form(fn,attributs, action, extra_ops, l)        then
-         with url = make_actioner_url(cinfo, same, same,
-                                      action, extra_ops, is_https), 
-         [
-           "<form id=\"",fn,"\"",
-           format(cinfo,ic_v, any_coreattrs(attributs),format_element,is_https, action_count, head_tags),
-           " method=\"post\"",
-              enctype(l),
-              " action=\"" + url + "\">",
-//              " action=\"http",
-//                         if is_https then "s" else "",
-//                         "://",common_name,":",http_port,"/\">",      
-                                      // action is set dynamically by
-                                      // the actioner using JavaScript
-              if fn is html_Id(id) then
-              flat(map((HTML_In_Form e) |-> format(cinfo,id,ic_v,e,is_https, action_count, head_tags),l)),               
-           "</form>"
-         ],
-       in_form(fn, content)             then                
-          if fn is html_Id(id) then
-            format(cinfo,id,ic_v, content,is_https, action_count, head_tags), 
-       div(options, p_content)      then
-        with html_elements = map((HTML_Partial_Content pc) |-> since pc is partial_content(tags, html_elem), head_tags <- *head_tags +tags; html_elem, p_content),
+         //format(cinfo,ic_v,
+            format_actioner(cinfo,c,t,a,an,eo,ja,success(fn),is_https, action_count, ic_v, global_head_tags),
+         //   format_element,is_https, action_count, head_tags),
-          format(cinfo, ic_v, any_div(options, html_elements), format_element, is_https, action_count, head_tags),    
-       iframe(options, css_styles, css_files, js_files, body) then
-          println("formating iframe");
-          if body is body(body_options,elem) then
-          [ "<iframe", format_attrs(options), " srcdoc=\"\n",
+       foreign_link_new(target, aspect, url)  then
+         //format(cinfo,ic_v,
+         format_foreign_link(target, aspect, url, is_https, cinfo, action_count, ic_v, global_head_tags),
+         //format_element,is_https, action_count, head_tags),
+
+         
+//       foreign_link(options,url,name)       then
+//         format(cinfo,ic_v,any_foreign_link(options,url,name),format_element,is_https, action_count, head_tags), 
+       private_download(url, name, extra, action)     then 
+         //format(cinfo,ic_v,
+         format_private_download(cinfo, url, name, extra, action),
+         //format_element,is_https, action_count, head_tags),
+
+//       div(options, p_content)      then
+//        with html_elements = map((HTML pc) |-> 
+//                                 since pc is partial_content(tags, html_elem),
+//                                 head_tags <- *head_tags + tags; //accumulate the tags
+//                                 html_elem,                      //return the HTML element     
+//                                p_content),
+//            
+//          //format(cinfo, ic_v, 
+
+//          [format_div_option(options), flat(map((HTML e) |-> format_element(e), html_elements)),"</div>\n"], 
+          //format_element, is_https, action_count, head_tags),
+//       iframe(options, css_styles, css_files, js_files, body) then
+//          println("formating iframe");
+//          if body is body(body_options,elem) then
+//          [ "<iframe", format_attrs(options), " srcdoc=\"\n",
+//          
+//            encode_HTML_quote(to_String([
+//            "<html style=\"margin: 0pt; padding: 0pt;\">\n",
+//            "<head>\n",
+//            //add_css_styles(css_styles),
+//            add_css_files(css_files),
+//            add_js_files(js_files),
+//            "</head>\n",
+//            "<body ", format_attrs(body_options), ">\n",                       // format body options
+//            format(cinfo,ic_v, elem ,is_https, action_count, head_tags), 
+//            "</body>\n",
+//            "</html>\n",])),
+//            
+//            "\"></iframe>\n",
+//          ],
+       head_tags(_head_tags, html_elements)    then
+          global_head_tags <- *global_head_tags + _head_tags; //accumulate the tags
+//        if p_content is partial_content(tags, html_elements) then
+//          head_tags <- *head_tags + tags;          
+//          format(cinfo, ic_v, html_elements, is_https, action_count, head_tags),
+          flat(map(format_element, html_elements))
+                                
-            encode_HTML_quote(to_String([
-            "<html style=\"margin: 0pt; padding: 0pt;\">\n",
-            "<head>\n",
-            add_css_styles(css_styles),
-            add_css_files(css_files),
-            add_js_files(js_files),
-            "</head>\n",
-            "<body ", format_attrs(body_options), ">\n",                       // format body options
-            format(cinfo,ic_v, elem ,is_https, action_count, head_tags), 
-            "</body>\n",
-            "</html>\n",])),
-            
-            "\"></iframe>\n",
-          ],
-       partial(p_content)           then
-        if p_content is partial_content(tags, html_elements) then
-          head_tags <- *head_tags + tags;          
-          format(cinfo, ic_v, html_elements, is_https, action_count, head_tags),
-//       i(opts, t)             then 
-//         format(cinfo,ic_v,any_i(opts,t),format_element,is_https, action_count, head_tags),
        html_tag(tag_name, opts, l)    then ["<",tag_name, format_attrs(opts), ">", flat(map(format_element,l)), "</",tag_name,">\n"],
+//       html_tag(tag_name, opts)       then ["<",tag_name, format_attrs(opts), "></",tag_name,">\n"],       
        html_void_tag(tag_name, opts)  then ["<",tag_name, format_attrs(opts), ">"],       
      }.
@@ -5420,13 +4530,13 @@ define Printable_tree
   (
     CommonInfo               cinfo, 
     Var(Int)                 ic_v,             // 'idnum' counter variable
-    List(HTML_Off_Form)      elements,
+    List(HTML)      elements,
     Bool                     is_https,
     Var(Int)                 action_count,
     Var(List(HTML_Head_Tag)) head_tags
   ) =
    if cinfo is info(common_name,http_port,https_port,site_directory,secret) then 
-   flat(map((HTML_Off_Form element) |->
+   flat(map((HTML element) |->
     format(cinfo, ic_v, element, is_https, action_count, head_tags),
     elements))
 .   
@@ -5620,7 +4730,7 @@ public define HTML_ajax_content
 public define HTML_ajax_content
   to_html_ajax_content
   (
-    HTML_Off_Form content_HTML,
+    HTML content_HTML,
     CommonInfo    cinfo
   )=
   //println("to_html_ajax_content(content_HTML, cinfo)");  
@@ -5632,7 +4742,7 @@ public define HTML_ajax_content
 public define String
   to_String
   (
-    HTML_Off_Form content_HTML,
+    HTML content_HTML,
     CommonInfo    cinfo
   )=
   //println("to_html_ajax_content(content_HTML, cinfo)");  
@@ -5645,13 +4755,13 @@ public define String
 public define JsonValue
   to_html_ajax_content
   (
-    HTML_Partial_Content  content_HTML,
+    HTML          content_HTML,
     CommonInfo            cinfo,
     String                additional_script
   )= 
   //println("to_html_ajax_content(content_HTML, cinfo, additional_script)");
   //println("additional_script"+additional_script);
-  since to_html_ajax_content(partial(content_HTML), cinfo) is html_ajax_content(html, script, js_files, css_files),
+  since to_html_ajax_content(content_HTML, cinfo) is html_ajax_content(html, script, js_files, css_files),
   json_object([
     json_member("html",      json_string(html)),
     json_member("js_files",  to_json_array(js_files)),
@@ -5663,7 +4773,7 @@ public define JsonValue
 public define JsonValue
   to_html_ajax_content
   (
-    HTML_Partial_Content  content_HTML,
+    HTML  content_HTML,
     CommonInfo            cinfo
   )= to_html_ajax_content(content_HTML, cinfo, "").
@@ -5723,7 +4833,7 @@ public define AWP_Handler_Answer //Printable_tree
              answer_body_body
            ]),
-       html_page(status, title, head_tags, css_styles, css_files, js_files, script, body) then 
+       html_page(status, title, head_tags, /*css_styles,*/ css_files, js_files, script, body) then 
          if body is body(options,element) then
          if format(status) is (status_string, status_headers) then
           with
@@ -5737,7 +4847,7 @@ public define AWP_Handler_Answer //Printable_tree
             [ doctype_w3c_header,
               //html_header,
               "<head>\n",
-              add_css_styles(css_styles),
+              //add_css_styles(css_styles),
               add_css_files(css_files),
               add_js_files(js_files),
               add_script(script),
@@ -5797,7 +4907,7 @@ public define AWP_Handler_Answer //Printable_tree
           if format(status) is (status_string, status_headers) then
         printable_tree([          
           "HTTP/1.1 " + status_string, crlf,
-            format_headers(status_headers),
+            format_headers(standard_headers),
             format_headers(standard_headers_for(to_String(mime_type), length(content), failure)),
             format_headers(status_headers),
             format_headers(other_headers),
@@ -5839,7 +4949,7 @@ public define AWP_Handler_Answer //Printable_tree
        http_raw(Printable_tree content) then 
         printable_tree(content),
-       html_content(HTTP_Status status, HTML_Off_Form content_HTML) then
+       html_content(HTTP_Status status, HTML content_HTML) then
           if format(status) is (status_string, status_headers) then
           with content = format(cinfo, ic_v, content_HTML, is_https, var(0), p_content_head_tags),
         printable_tree([
@@ -5852,29 +4962,30 @@ public define AWP_Handler_Answer //Printable_tree
             content
           ]),
        //HMTL content with some header   
-      html_partial_content(HTTP_Status status, HTML_Partial_Content p_content) then
-       
-        since p_content      is partial_content(head_tags, html_content),
-        since format(status) is (status_string, status_headers),
-          with
-            answer_body = (Printable_tree)
-            [  
-              format(cinfo, ic_v, html_content, is_https, var(0), p_content_head_tags), 
-            ],
-            answer_header = (Printable_tree)
-            [
-             // html_header,
-             format_html_head(head_tags + *p_content_head_tags),
-            ],
-        printable_tree([
-          "HTTP/1.1 " + status_string, crlf,
-             format_headers(standard_headers),
-             format_headers(standard_headers_for("text/html", length(answer_header) + length(answer_body), success(charset))),
-             format_headers(status_headers),
-             format_headers(additional_headers),
-             crlf,
-             answer_header .
-             answer_body
-           ]),          
-     }.   
+//      HTML(HTTP_Status status, HTML p_content) then
+//       
+//        since p_content      is partial_content(head_tags, html_content),
+//        since format(status) is (status_string, status_headers),
+//          with
+//            answer_body = (Printable_tree)
+//            [  
+//              format(cinfo, ic_v, html_content, is_https, var(0), p_content_head_tags), 
+//            ],
+//            answer_header = (Printable_tree)
+//            [
+//             // html_header,
+//             format_html_head(head_tags + *p_content_head_tags),
+//            ],
+//        printable_tree([
+//          "HTTP/1.1 " + status_string, crlf,
+//             format_headers(standard_headers),
+//             format_headers(standard_headers_for("text/html", length(answer_header) + length(answer_body), success(charset))),
+//             format_headers(status_headers),
+//             format_headers(additional_headers),
+//             crlf,
+//             answer_header .
+//             answer_body
+//           ]),          
+  }
+.
+
+   
+ *Project*                                Anubis
+   
+ *Title*                        Making interactive Web sites.
+   
+ *Copyright*                Copyright (c) Alain Prouté 2004-2005.
+                            Copyright (c) Calexium 2007-2017.
+                            Copyright (c) David René 2007-2021.
+        
+   
+ *Authors* Alain Prouté
+           David René
+           Jérémy Larrieu
+           Julien Verneuil
+           
+          
+ *Revised* May 2015
+   
+   
+  *Overview*
+   
+   In this file we propose simple tools for making well structured interactive and secured
+   web sites.
+   
+   
+   ----------------------------------- Table of Contents ---------------------------------
+
+   * (1) Structure of a web site. 
+      ** (1.1) Three sorts of data. 
+      ** (1.2) How requests are handled. 
+      ** (1.3) What web pages are made of. 
+      ** (1.4) Actions.
+      ** (1.5) States. 
+   
+   * (2) Carrying on. 
+      ** (2.1) Describing your web sites. 
+      ** (2.2) Directories on the server's disk.
+      ** (2.3) Starting your web sites. 
+   
+   * (3) The HTML interface. 
+      ** (3.1) Types used by the HTML interface. 
+      ** (3.2) ``in form'' versus ``off form''. 
+      ** (3.3) Defining your own style. 
+      ** (3.4) Actioners and forms. 
+      ** (3.5) Local popup. 
+   
+   ---------------------------------------------------------------------------------------
+   
+   
+transmit tools/basis.anubis   
+read tools/printable_tree.anubis
+read tools/base64.anubis
+read tools/random.anubis   
+read tools/avlt_dictionaries.anubis
+read system/lists.anubis
+read system/string.anubis
+read system/logger.anubis
+transmit xlib/web/common.anubis   
+transmit xlib/web/multihost_http_server.anubis   
+read web/mime.anubis
+
+read xlib/web/cookies.anubis
+read xlib/web/json.anubis
+transmit xlib/web/web_dump.anubis
+transmit xlib/web/web_arg_utils.anubis
+transmit xlib/web/web_session.anubis
+transmit xlib/web/web_action.anubis
+
+transmit xlib/web/types/web_action_name.anubis
+transmit xlib/web/types/making_a_web_site.anubis
+
+//TODO move anywhere
+
+
+define List(Word8)
+/** Test for HTML entity which must be encoded
+ * and return the encoded entity if needed
+ */
+  get_entity
+  (
+    Word8       _char,
+    List(Word8) tail
+  )=
+  //test for the ampersand
+  if      _char = '&' then 
+    //test if it's already an encoded string like &amp; &lt; etc. In that case we do nothing
+    if      insensitive_equal(['&','a','m','p',';'],      tail, 0) then [_char]
+    else if insensitive_equal(['&','l','t',';'],          tail, 0) then [_char]
+    else if insensitive_equal(['&','g','t',';'],          tail, 0) then [_char]
+    else if insensitive_equal(['&','q','u','o','t',';'],  tail, 0) then [_char]
+    else
+      [';','p','m','a','&']
+  //test for '<' etc.
+  else if _char = '<'   then  [';','t','l','&']
+  else if _char = '>'   then  [';','t','g','&']
+  else if _char = '\"'  then  [';','t','o','u','q','&']
+  else                        [_char]
+.
+
+define String
+  _HTML_encode_entities
+  (
+    List(Word8) source,
+    List(Word8) current
+  )=
+  if source is
+  {
+    []      then implode(reverse(current)),
+    [c . t]  then
+      _HTML_encode_entities(t, get_entity(c, t) + current)
+  }
+.
+
+public define String
+  encode_HTML_entities
+  (
+    String source
+  )=
+  _HTML_encode_entities(explode(source), [])
+.
+
+define List(Word8)
+/** Test for HTML entity which must be encoded
+ * and return the encoded entity if needed
+ */
+  get_entity_quote
+  (
+    Word8       _char,
+    List(Word8) tail
+  )=
+  //test for the ampersand
+  if      _char = '&' then 
+    //test if it's already an encoded string like &amp; &lt; etc. In that case we do nothing
+    if      insensitive_equal(['&','a','m','p',';'],      tail, 0) then [_char]
+    else if insensitive_equal(['&','l','t',';'],          tail, 0) then [_char]
+    else if insensitive_equal(['&','g','t',';'],          tail, 0) then [_char]
+    else if insensitive_equal(['&','q','u','o','t',';'],  tail, 0) then [_char]
+    else
+      [';','p','m','a','&']
+  //test for '"' only.
+  else if _char = '\"'  then  [';','t','o','u','q','&']
+  else                        [_char]
+.
+
+define String
+  _HTML_encode_quote
+  (
+    List(Word8) source,
+    List(Word8) current
+  )=
+  if source is
+  {
+    []      then implode(reverse(current)),
+    [c . t]  then
+      _HTML_encode_quote(t, get_entity_quote(c, t) + current)
+  }
+.
+
+public define String
+  encode_HTML_quote
+  (
+    String source
+  )=
+  _HTML_encode_quote(explode(source), [])
+.
+
+   * (1) Structure of a web site. 
+   
+   First of  all we  need to  explain what  a web site  should be  made of.   Ideally, the
+   visitor  (also called  the  'client') should  see the  web  site working  as any  other
+   interactive computer software.  So, it should  be clear that a 'session' (i.e.  a visit
+   to  the  web site,  including  the  consultation of  several  pages)  is  some kind  of
+   conversation  between the  visitor  and the  web site,  and  that the  web site  should
+   maintain a 'current state' of this  conversation.  At each new request (click) from the
+   visitor, this state must be updated.  This whole conversation is called a 'session' and
+   should not be confused with a single request.
+
+   
+   
+      ** (1.1) Three sorts of data. 
+   
+   All  the data  needed for  putting a  web site  at work  may be  dispatched  into three
+   categories:
+   
+     1. Constant data  (data that  never change). These  data may  be hard coded  into the
+        Anubis source files of the web site.
+   
+     2. Permanent data  (data which always exist  independantly of the  users connected to
+        the web site). These data are normally recorded into data bases. 
+   
+     3. Session  data (data  which depend  on a  particular visitor  and which  exist only
+        during the  time he  visits the web  site). These  data are stored  into so-called
+        'states'.
+   
+   
+   It is important to determine which data belongs to which category. This is part of your
+   design decisions.
+   
+   
+   
+      ** (1.2) How requests are handled. 
+   
+   We want to  separate the following two functionalities (which are  used at each request
+   (click) during a single session):
+   
+      - computing the new  state from the previous state and from  the client request, and
+        updating the data base,
+   
+      - computing the page  to be sent to the  client from the new current  state and from
+        the informations in the data base.
+   
+   
+   The next picture shows the structure we have in mind:
+   
+   
+                request            +---------+         HTML page (with state name in cookie)
+               .-------------------| client  |<--------------.
+               | .-----------------|         |               |
+               | | session         +---------+               |
+               | | in cookie                                 |
+               | |                                           |          client side
+       ............................................................................
+               | |                                           |          server side
+               | |                                           |
+               | | .-------------------.                     |
+               | | | previous session  |                     |
+               V V V                   |                     |
+       +---------------+             +---------------+     +--------------+
+       | compute state |             | server's disk |     | compute page |
+       +---------------+             +---------------+     +--------------+
+           ^     | |                    ^ ^                  ^ ^  ^
+           |     | |                    | |                  | |  |
+           |     | `--------------------+--------------------' |  |
+           |     |   new state            |                    |  |
+      read |     `------------------------+--------------------'  |
+     write |         new state name                               |
+    update V                                                      |
+         +-----------+                                            |
+         | data base |--------------------------------------------'
+         +-----------+              read only 
+   
+   
+   When the client begins  a session, there is no previous state.  In this case, a default
+   'initial state' is used instead.
+
+   The data base  may be updated by 'compute  state' box, but should not be  update by the
+   'compute page'  box. The 'compute  page' box  should be allowed  only to read  the data
+   base.
+   
+   In this file, all  the above stuff is defined, except the  'compute state' and 'compute
+   page' boxes. You just  have to provide the function for computing  a new state (compute
+   state) and the function for computing the  page (compute page) from the new state.  You
+   don't have to worry about state names, saving and retrieving states and the like.
+
+   
+   
+   
+   
+      ** (1.3) What web pages are made of. 
+   
+   What the client can see in his browser's  window may be called a 'page'. Within a page,
+   we have several sorts of components:
+   
+      - 'local'  components, i.e.  all  components which  do not  open a  connection, like
+        texts, images, etc...  possibly using JavaScript programmation, 
+   
+      - 'actioners', which, when  clicked upon, open a connection with  our web site; they
+        may appear as links or buttons, etc...
+   
+      - 'foreign links', which when clicked upon,  open a connection with another web site
+        (or ours eventually).
+      
+   Of course, what an actioner does is just ask our web site to perform an action. To that
+   end, the actioner essentially sends the name of the action to be performed. However, it
+   may be necessary to provide additional  informations which may be seen as 'operands' of
+   the action.   In order to  attach operands  to an action,  HTML provides the  notion of
+   'form'. Indeed, a form contains essentially a set of input fields into which the client
+   may put values for  the required operands of the action, and  a submit button, which is
+   the actioner  itself. Notice  that a  single form may  contain several  submit buttons,
+   which simply  means that  there are several  distincts actions  taking the same  set of
+   operands.
+   
+   Restrictions  must be  put on  the use  of all  theses gadgets.   Indeed,  for example,
+   putting a form within another form  is officially meaningless in HTML, and the client's
+   browser may be  seriously disturbed by this.  In this file, we propose  an interface to
+   the HTML language,  which forbids such meaningless things, simply  by imposing a strict
+   typing of HTML concepts.
+
+   Each web site may be accessible through two communication channels: 
+   
+      - a non secured channel (HTTP), 
+      - a secured channel (HTTPS). 
+   
+   Nevertheless, the whole  thing should be considered as a single  web site. For example,
+   you may have a secured page,  obtained through HTTPS, containing public images obtained
+   through HTTP.   An actioner in a  non secured page  may open a secured  connection, and
+   conversely.
+   
+   Summarizing,  a web  page  is made  of  local elements,  foreign  links and  actioners.
+   Actioners receive operands from forms, and  they also choose to communicate through the
+   non secured or through the secured channel.
+   
+   
+   
+       +-------------------+
+       | page              |
+       |                   |                        +---------------+
+       | +--------------+  |                        | next page     | 
+       | | form         |  |                        | (non secured) |
+       | | +----------+ |  |    HTTP                |               |
+       | | | actioner |---------------------------->|               |
+       | | +----------+ |  |                        +---------------+
+       | |              |  |
+       | | +----------+ |  |                        +---------------+
+       | | | actioner |---------------------------->| next page     |
+       | | +----------+ |  |    HTTPS               | (secured)     |
+       | |              |  |                        |               |
+       | +--------------+  |                        |               |
+       |                   |                        +---------------+
+       |                   |
+       +-------------------+
+   
+
+   Notice that actioners need no be necessarily put into forms. In that case, they work as
+   ordinary links, but they still may receive operands as we shall see.
+            
+   
+   
+   
+      ** (1.4) Actions.
+   
+   The  client  opens a  new  connection  with  our web  site  whenever  he clicks  on  an
+   actioner. The  result is that  a request is  sent, essentially made  of a list  of 'web
+   arguments'.  Each web argument is a  pair (name,value). One of these web arguments, the
+   'action' web argument (whose name is  "a"), determines the action to be performed.  The
+   other web  arguments (not including "s", used  to identify the state)  are the operands
+   for this action.
+      
+   Hence, the  'compute state'  box in the  picture above,  splits naturally into  as many
+   sub-boxes  as there are  actions. For  this reason,  we define  the following  type for
+   representing actions (where '$State' is the type representing session informations):
+      
+
+                  
+   'http_action's  are executed  only under  HTTP, and  'https_action's are  executed only
+   under HTTPS. 'http_https_action's may be executed under both types of connections.
+   
+   Each action has  a name, which is used  to identify the action. Each action  also has a
+   function 'allow'  whose job  is to  verify that the  action is  allowed in  the current
+   state, and a function 'do_it' for performing the action.  The function 'do_it' receives
+   a lot of informations:
+   
+       - 'HTTP informations':
+           - the IP address of the client, 
+           - the URI requested by the client (after redirection), 
+           - the list of HTTP headers generated by the client's browser, 
+       - the list  of web arguments sent  by the client  (except "s" and "a"),
+       - the previous state (or the 'initial' or 'ticket expired' state if no previous 
+           state can be found).
+   
+   In most cases, HTTP informations are not used. This is the reason why they are gathered
+   for simplicity into a unique datum of type 'HTTP_Info'.
+   
+   
+   
+   
+   When you  define your web  site, you must  provide the list of  all the actions  of the
+   site.  When  a new state  has been computed,  a graphical representation of  this state
+   must be  sent to the  client.  To that  end, you must  provide a function  (named below
+   'compute_page') of type:
+   
+                                   $State -> HTTP_Answer
+
+   where  the type 'HTTP_Answer'  (defined below  in this  file) abstractly  represents HTML
+   pages.
+   
+//public type HTTP_Answer:...   
+   
+   It should be clear that states and  pages are deeply linked together. Indeed, we really
+   understand the page shown to the client as a representation of the current state of the
+   conversation  between the client  and the  web site,  but also  containing informations
+   taken from the data bases.
+
+                  
+//public type HTML_Partial_Content:...
+
+
+                  
+
+
+
+
+
+
+public define List(HTTP_header)
+  make_session_cookie_headers
+  (
+    String website_name,
+    String session_name
+  )
+  =
+    //println("Set-Cookie state_"+website_name+"="+state_name);
+    [
+      http_header("Set-Cookie", "session_"+website_name+"="+session_name+"; SameSite=Strict")
+    ]
+  .
+  
+   
+   
+   When  a request  arrives, we  need to  retrieve the  previous state  from  the server's
+   disk. We receive the name of that state. If the state is out of date, the state file is
+   kept 3 days, and then deleted. 
+   
+
+   
+  
+define One
+  delete_out_of_date_sessions          // for all web sites
+  (
+    List((String, List(String) -> One))   directories_and_functions     
+  )=
+  if directories_and_functions is 
+  {
+    [ ]     then unique, 
+    [h . t] then 
+      since h is (state_directory, function),
+      function(directory_list(state_directory,"*")); 
+      delete_out_of_date_sessions(t)
+  }
+.
+   
+      ** (1.5) States. 
+
+   Now, we explain how you can define the  type (say 'State') to be used as an instance of
+   the type parameter '$State'. The following is just a suggestion. 
+   
+   Each  state   determines  a  page  (since   'compute_page'  computes  a   page  from  a
+   state). However, some components of the state may be independant of the page. It may be
+   the  case  for  example  for  the  indication  of the  natural  language  used  by  the
+   client. Hence, a state should be made of (at least) two parts:
+   
+      - informations which are the same for all pages, 
+      - informations which are particular to each page. 
+   
+   For example, you could define:
+   
+   type Page:                // one alternative per page, with particular informations
+     login(...),             // in the components
+     main_page(...),
+     ...etc...
+   
+   Now, the type 'State' could be defined as follows:
+   
+   type State:
+     state(Language,         // informations valid for all pages
+           ...,
+           Page).            // informations particular to a page
+
+   However, if you are making a secured web site within which clients should be identified
+   (by id and  password), it may be a good  idea to have two sorts of  states, one for non
+   identified  clients and  one for  identified  clients. In  this case,  define the  type
+   'State' as follows (this is just a suggestion):
+   
+   type State:
+     non_identified(Language), 
+     identified(String id, 
+                Language, 
+                Page). 
+   
+   When  a  request  arrives,  check  if  the  previous  state  is  'identified(...)'   or
+   'non_identified(...)',  and don't  provide access  to certain  pages to  non identified
+   clients. This is required for security.
+
+   Some  more words  on security.   If your  site needs  to identify  clients,  define the
+   initial state as 'non_identified(...)'.  Construct a 'login' page, and check the id and
+   password of the  client. If the id and  password are correct, then change  the state of
+   the client to  'identified(...)'. No other action  should be able to do  that.  Now, be
+   confident that clients cannot forge states.  The only information they have is the name
+   of a state, not the state itself which  is never sent over the network, but only stored
+   on the server's disk. The name of the state is constructed using strong cryptographical
+   methods (sha1).  If everything (since the  'login' page) is performed under HTTPS, even
+   state names  cannot be seen by  a third party. So,  if the system  retrieves a previous
+   state of  the form  'identified(...)', you can  be confident  that your client  is well
+   identified, and you can send him confidential informations.
+
+   States have a  limited life time. It may happen  that a client clicks on  a button at a
+   time its state is  out of date. In this case, this system  considers that the new state
+   is a special  state named 'ticket expired'. You must provide  a function producing this
+   state when you describe  your web site. The page corresponding to  this state must just
+   inform the client that  he/she waited a too long time before  clicking on a button, and
+   has to restart (a new conversation) from the begining.
+   
+   
+   
+   * (2) Carrying on. 
+   
+      ** (2.1) Describing your web sites. 
+   
+   Before you may start your web site, you  must describe it, i.e.  produce a datum of the
+   opaque type 'Web_Site'.
+   
+public type Web_Site:...
+   
+   Producing such a datum may be performed by:
+   
+ public define Web_Site
+   make_web_site_description
+     (
+       List(String)                common_names,          // for example: ["www.our-business.com",
+                                                          //               "192.168.0.1"]
+                                                          // the second one is just for testing
+       String                      site_directory,        // where 'public' and other directories are
+                                                          // located (should NOT end with '/')
+       String                      state_directory,
+       One -> One                  init, 
+       (HTTP_Info, 
+        List(Web_arg),
+        Bool is_https) -> $State       initial_state, 
+       ($State expired,
+        Maybe(String),
+        HTTP_Info,
+        List(Web_arg),
+        Bool is_https) -> $State   ticket_expired_state, 
+       (Maybe(String),
+        HTTP_Info,
+        List(Web_arg),
+        Bool is_https) -> $State   ticket_lost_state, 
+       List(Web_Action($State))    actions, 
+       $State -> HTTP_Answer       compute_page,
+       $State -> List(HTTP_header) additional_headers,
+       List(HTTP_header)           constant_additional_headers, 
+       Int                         timeout,               // seconds (todo: minutes)
+       Redirections                redirections, 
+       String                      charset, 
+       List(String)                journal_extensions,
+       List(String)                journal_headers, 
+       String                      authorization_secret, 
+       List(MIME)                  known_mime_types,
+       (String        action_name, 
+        List(Web_arg) args)-> One  before_send_file
+     ). 
+
+   
+   Explanations:
+   
+   'common_names' is the list of names of the  site (the name the browser must send as the
+   value of the 'Host' HTTP header in order to access the site must be in that list). Such
+   a name generally looks like this:
+   
+                                       www.somewhere.com
+   
+   If you are using  HTTPS, you also have an 'X.509 SSL  server certificate'.  The name of
+   the site must  be exactly the same as  the name on the certificate  (which is precisely
+   called the 'common name' in the X.509 jargon).  If the two names do not match, the site
+   will still work, but the transaction will not be transparent to the client. His browser
+   will complain that the name of the certificate does not match the name of the site, and
+   he will have to accept the certificate manually.
+
+   'site_directory' is  the absolute path to the  directory where the files  needed by the
+   site are located. Usually this directory looks like:
+   
+                            my_anubis/web_sites/www.somewhere.com
+   
+   However, this  information is not computed  from 'common_name', so that  you can change
+   the  common name  (for example  temporarily,  for networking  reasons) without  loosing
+   access to the files.
+   
+   'ticket_expired_state(expired_state,http_info,lwa,is_https)'  must  produce  the  state
+   whose graphical representation  is a page explaining to the user  that its 'ticket' (or
+   'session information')  has expired, and that  he/she must close all  popup windows and
+   start a  new session.   The arguments  of the function  contain the  previous (expired)
+   state and all  current informations concerning the user.  This  arguments may be useful
+   for example  for producing the expiration message  in the language chosen  by the user.
+   You  can  also (and  this  may  be much  smarter)  send  a  'ticket prolongation  page'
+   (including a new  login for example), and resume the same  conversation, since you have
+   all the pertinent informations at hand. In  the case the ticket is definitely lost, the
+   second fonction 'ticket_lost_state' is used. 
+   
+   Notice that despite the fact that the  parameter $State is involved in the arguments of
+   the above function, the type 'Web_Site' does not depend on this parameter.  This allows
+   to produce  lists of web site  descriptions, where each description  may be constructed
+   with a different instance of $State.  This is required because distinct sites must have
+   distinct types  of session informations.   This is made  possible by the fact  that the
+   type  is  obscure,  and  the   constructor  replaced  by  a  function  which  assembles
+   'ticket_expired_state', ticket_lost_state', 'actions'  and 'compute_page' into a single
+   entity not depending on $State. You should have a look to the private part of this file
+   if you want more precisions about this programming technique.
+   
+   'charset' is  a string which will  determine the character  encoding to be used  by the
+   browser.  Typically, this  string  is one  of:  "UTF-8", "ISO-8859-1",  "Windows-1252",
+   etc...
+   
+   'before_send_file' is a function which is  executed just before the HTTP server sends a
+   file. It gets an  action name and the web arguments received  with the request for that
+   file.   Notice that  this  action  name and  these  web arguments  may  be  put into  a
+   'private_download'  element, and  will  come back  to the  server  at the  time of  the
+   download.
+   
+   
+   
+      ** (2.2) Directories on the server's disk.
+
+   The  description of  your site contains  the name  of  the directory  within which  the
+   required files are located. This may be for example:
+   
+                          my_anubis/web_sites/www.our-business.com/ 
+   
+   This is  called the 'site directory' (for  the given site). Within  the site directory,
+   the following directories are created by this program:
+   
+          states
+          public
+          journal
+          private_download
+          upload_temporary
+
+   The directory 'states'  is used for storing states (session  informations). Out of date
+   states are automatically removed after some time.
+   
+   The tree rooted  at 'public' contains files that  the server is allowed to  send to the
+   clients. For security  reasons, the server never  sends a file which is  not within the
+   tree whose root is this 'public' directory (except for the 'private download' mecanism;
+   see 'web/multihost_http_server.anubis').   Also, the MIME  type (see 'web/mime.anubis')
+   must have been recognized before the file may be sent.
+   
+   The  directory  'journal'  contains the  jounal  files.   The  roles of  the  remaining
+   directories    'private_download'    and    'upload_temporary'    is    explained    in
+   'multihost_http_server.anubis',  where  you  will  also find  further  informations  on
+   'public' and 'journal'.
+   
+   
+      ** (2.3) Web servers parameters. 
+   
+   The web servers  have several parameters useful for  administration. They are described
+   as follows:
+   
+ public type WebServersParameters:
+   wsparms(Var(Bool)      shutdown_required, 
+   
+      ** (2.4) Starting your web sites. 
+   
+   When you have described all your web sites (you may want to have several web sites, and
+   they are distinguished  by their 'common name'), you may start  them all together using
+   'start_web_sites' below.  This function returns a result of the following type:
+   
+public type Start_Web_Sites_Result:
+   cannot_bind_to_port(Word32), 
+   cannot_bind_to_port(Word32,Word32), 
+   ok(Server http_server, 
+      Server https_server).
+      
+   Indeed, it may happen  that the system cannot bind (begin to listen)  to one of the two
+   ports (or to both). The main reason is that another server is already listening on that
+   port. Another reason may be that  'anbexec' has not been correctly installed, i.e. that
+   the 's' bit  has not been set for  'user' and 'group' (there is not  such problem under
+   Windows). Also notice that the Linux kernel  may need a rather long time (up to several
+   minutes) before liberating  a listening port.  Now,  if the system can bind  to the two
+   ports, the pair of  the two servers is returned. Two tools  are useful for manipulating
+   servers:
+   
+      shutdown        of type   Server -> One
+      is_down         of type   Server -> Bool
+   
+   They are defined in 'predefined.anubis' (together with the type 'Server'). 
+   
+   
+public define Start_Web_Sites_Result
+   start_web_sites
+     (
+       Word32                        ip_address,    // the IP address shared by the web sites
+       Word32                        http_port,     // usually: 80
+       Word32                        https_port,    // usually: 443
+       String                       ssl_certificate_common_name, 
+       List(Web_Site)               web_sites,     // web sites to be started
+       (One) -> Bool                shutdown_required
+     ). 
+   
+   'ip_address' is  the IP  address on which  the two  servers listen. If  you put  0, the
+   servers  listen on all  the IP  addresses of  the machine.  This may  be useful  if the
+   machine has several network interfaces. 
+
+   'ssl_certificate_common_name' is the common name  of the SSL certificate that 'anbexec'
+   loads when it starts. One instance of  'anbexec' cannot handle more than one SSL server
+   certificate. This is  due to a problem of  conception of SSL itself. See  the book 'SSL
+   and TLS' by Eric Rescorla (at Addison Wesley) for more explanations.
+   
+   Notice that the  number of servers is always  2, regardless of the number  of web sites
+   you are starting.  
+   
+   The dynamic variable 'shutdown_required' may be used to control the shutdown of the two
+   servers from within the web site  (typically the administration part). The servers will
+   shutdown as  soon as  this variable contains  'true'.  So  you must provide  a variable
+   containing 'false' otherwise your servers will  not run. You may also use the primitive
+   'must_restart' (see 'predefined.anubis') to control the restarting of your servers. 
+   
+   * (3) The HTML interface. 
+   
+   We propose an interface to dynamic  HTML. Dynamic HTML includes HTML, and a combination
+   of CSS (Cascading Style Sheet) and  JavaScript techniques for making HTML elements more
+   reactive and attractive on the client side.
+      
+   
+      ** (3.1) Types used by the HTML interface. 
+   
+   For easy reference, we  gather below the definitions of all the  types used by the HTML
+   interface, and we comment them immediately. 
+
+ //public type HTML_Off_Form:...
+
+
+public define Printable_tree [HTML_Id      x . Printable_tree y] = str_pt(x.id, y).
+public define Printable_tree [HtmlClass    x . Printable_tree y] = str_pt(x.class, y).
+public define Printable_tree [WebArgName   x . Printable_tree y] = str_pt(x.name, y).
+public define Printable_tree [WebArgValue  x . Printable_tree y] = str_pt(x.value, y).
+public define Printable_tree [InitialValue x . Printable_tree y] = str_pt(x.value, y).
+
+public define CoreAttrs   attr(String name, Bool value) = attr(name, if value then "true" else "false").
+public define CoreAttrs   attr(String name, Int value)  = attr(name, to_String(value)).
+
+
+public define InputAttrs   attr(String name, Bool value) = attr(name, if value then "true" else "false").
+
+
+   
+public define Text_Option
+  tooltip(String s) = title(s).
+   
+   A list of 'Text_Option' must be given with each text you want to put in your page.
+   
+public define CoreAttrs
+  tooltip(String s) = title(s).
+public define InputAttrs
+  tooltip(String s) = title(s).
+
+
+public type I18n:
+  lang  (String),
+  dir   (Reading_Way).
+
+  
+  A list of 'DIV_Option' must be given with each DIV you want to put in your page.
+
+public define String 
+  event_name
+  (
+    HtmlEvents e
+  ) =
+  if e is
+  {
+    onafterprint      then "onafterprint",   //HTML5 Script to be run after the document is printed
+    onbeforeprint     then "onbeforeprint",  //HTML5 Script to be run before the document is printed
+    onbeforeunload    then "onbeforeunload", //HTML5 Script to be run when the document is about to be unloaded
+    onerror           then "onerror",        //HTML5 Script to be run when an error occurs
+    onhashchange      then "onhashchange",   //HTML5 Script to be run when there has been changes to the anchor part of the a URL
+    onload            then "onload",         //      Fires after the page is finished loading
+    onmessage         then "onmessage",      //HTML5 Script to be run when the message is triggered
+    onoffline         then "onoffline",      //HTML5 Script to be run when the browser starts to work offline
+    ononline          then "ononline",       //HTML5 Script to be run when the browser starts to work online
+    onpagehide        then "onpagehide",     //HTML5 Script to be run when a user navigates away from a page
+    onpageshow        then "onpageshow",     //HTML5 Script to be run when a user navigates to a page
+    onpopstate        then "onpopstate",     //HTML5 Script to be run when the window's history changes
+    onresize          then "onresize",       //HTML5 Fires when the browser window is resized
+    onstorage         then "onstorage",      //HTML5 Script to be run when a Web Storage area is updated
+    onunload          then "onunload",       //      Fires once a page has unloaded (or the browser window has been closed)
+    // Form element events
+    onblur            then "onblur",         //      Fires the moment that the element loses focus
+    onchange          then "onchange",       //      Fires the moment when the value of the element is changed
+    oncontextmenu     then "oncontextmenu",  //HTML5 Script to be run when a context menu is triggered
+    onfocus           then "onfocus",        //      Fires the moment when the element gets focus
+    oninput           then "oninput",        //HTML5 Script to be run when an element gets user input
+    oninvalid         then "oninvalid",      //HTML5 Script to be run when an element is invalid
+    onreset           then "onreset",        //      Fires when the Reset button in a form is clicked
+    onsearch          then "onsearch",       //      Fires when the user writes something in a search field (for <input="search">)
+    onselect          then "onselect",       //      Fires after some text has been selected in an element
+    onsubmit          then "onsubmit",       //      Fires when a form is submitted
+    // Keyboard events (Not valid in base, bdo, br, frame, frameset, head, html, iframe, meta, param, script, style, and title elements.)
+    onkeydown         then "onkeydown",      //      Fires when a user is pressing a key
+    onkeypress        then "onkeypress",     //      Fires when a user presses a key
+    onkeyup           then "onkeyup",        //      Fires when a user releases a key
+    // Mouse events (Not valid in base, bdo, br, frame, frameset, head, html, iframe, meta, param, script, style, and title elements.)
+    onclick           then "onclick",        //      Fires on a mouse click on the element
+    ondblclick        then "ondblclick",     //      Fires on a mouse double-click on the element
+    onmousedown       then "onmousedown",    //      Fires when a mouse button is pressed down on an element
+    onmousemove       then "onmousemove",    //      Fires when the mouse pointer is moving while it is over an element
+    onmouseout        then "onmouseout",     //      Fires when the mouse pointer moves out of an element
+    onmouseover       then "onmouseover",    //      Fires when the mouse pointer moves over an element
+    onmouseup         then "onmouseup",      //      Fires when a mouse button is released over an element
+    onwheel           then "onwheel",        //HTML5 Fires when the mouse wheel rolls up or down over an element
+    //Drag Events
+    ondrag            then "ondrag",         //HMTL5 Script to be run when an element is dragged
+    ondragend         then "ondragend",      //HTML5 Script to be run at the end of a drag operation
+    ondragenter       then "ondragenter",    //HTML5 Script to be run when an element has been dragged to a valid drop target
+    ondragleave       then "ondragleave",    //HTML5 Script to be run when an element leaves a valid drop target
+    ondragover        then "ondragover",     //HTML5 Script to be run when an element is being dragged over a valid drop target
+    ondragstart       then "ondragstart",    //HTML5 Script to be run at the start of a drag operation
+    ondrop            then "ondrop",         //HTML5 Script to be run when dragged element is being dropped
+    onscroll          then "onscroll",       //HTML5 Script to be run when an element's scrollbar is being scrolled
+    //Clipboard Events
+    oncopy            then "oncopy",         //HTML5 Fires when the user copies the content of an element
+    oncut             then "oncut",          //HTML5 Fires when the user cuts the content of an element
+    onpaste           then "onpaste",        //HTML5 Fires when the user pastes some content in an element
+    //Media Events
+    onabort           then "onabort",        //HTML5 Script to be run on abort
+    oncanplay         then "oncanplay",      //HTML5 Script to be run when a file is ready to start playing (when it has buffered enough to begin)
+    oncanplaythrough  then "oncanplaythrough", //HTML5 Script to be run when a file can be played all the way to the end without pausing for buffering
+    oncuechange       then "oncuechange",    //HTML5 Script to be run when the cue changes in a <track> element
+    ondurationchange  then "ondurationchange", //HTML5 Script to be run when the length of the media changes
+    onemptied         then "onemptied",      //HTML5 Script to be run when something bad happens and the file is suddenly unavailable (like unexpectedly disconnects)
+    onended           then "onended",        //HTML5 Script to be run when the media has reach the end (a useful event for messages like "thanks for listening")
+    onerror           then "onerror",        //HTML5 Script to be run when an error occurs when the file is being loaded
+    onloadeddata      then "onloadeddata",   //HTML5 Script to be run when media data is loaded
+    onloadedmetadata  then "onloadedmetadata", //HTML5 Script to be run when meta data (like dimensions and duration) are loaded
+    onloadstart       then "onloadstart",    //HTML5 Script to be run just as the file begins to load before anything is actually loaded
+    onpause           then "onpause",        //HTML5 Script to be run when the media is paused either by the user or programmatically
+    onplay            then "onplay",         //HTML5 Script to be run when the media is ready to start playing
+    onplaying         then "onplaying",      //HTML5 Script to be run when the media actually has started playing
+    onprogress        then "onprogress",     //HTML5 Script to be run when the browser is in the process of getting the media data
+    onratechange      then "onratechange",   //HTML5 Script to be run each time the playback rate changes (like when a user switches to a slow motion or fast forward mode)
+    onseeked          then "onseeked",       //HTML5 Script to be run when the seeking attribute is set to false indicating that seeking has ended
+    onseeking         then "onseeking",      //HTML5 Script to be run when the seeking attribute is set to true indicating that seeking is active
+    onstalled         then "onstalled",      //HTML5 Script to be run when the browser is unable to fetch the media data for whatever reason
+    onsuspend         then "onsuspend",      //HTML5 Script to be run when fetching the media data is stopped before it is completely loaded for whatever reason
+    ontimeupdate      then "ontimeupdate",   //HTML5 Script to be run when the playing position has changed (like when the user fast forwards to a different point in the media)
+    onvolumechange    then "onvolumechange", //HTML5 Script to be run each time the volume is changed which (includes setting the volume to "mute")
+    onwaiting         then "onwaiting",      //HTML5 Script to be run when the media has paused but is expected to resume (like when the media pauses to buffer more data)
+    //Misc Events
+    onshow            then "onshow",         //HTML5 Fires when a <menu> element is shown as a context menu
+    ontoggle          then "ontoggle"
+  }.
+
+   
+public define Table_Option nude = border(0,0,0,rgb(0,0,0)).
+   
+   
+   A list of 'Table_Option' must be given with each table. 
+   
+   
+          
+  
+   
+   
+   A list of 'Cell_Option'  must be given with each cell and each  row in a table. Options
+   given with a row apply to all the cells in the row, but are superseded by options given
+   with cells, which apply only to the cell they are given with.
+   
+   
+
+
+   
+   The parameter $T is later  instantiated either to 'HTML_In_Form' or to 'HTML_Off_Form',
+   depending on where  you put your table (within  a form or not within a  form). For your
+   convenience, we define the following particular case:
+   
+public define HTML_Cell($T)   
+  cell
+  (
+    $T content
+  )=
+  cell([],content)
+.
+
+public define HTML_Cell($T)   
+  cell
+  (
+    Cell_Option option,
+    $T          content
+  ) =
+  cell([option],content)
+.
+
+public define HTML_Header_Cell($T)   
+   header_cell
+     (
+       $T content
+     ) =
+   header_cell([],content). 
+
+   
+
+   
+   Same remark as for 'HTML_Cell($T)'. We define several convenience functions:
+   
+public define HTML_Row($T)
+  row
+  (
+    List(HTML_Cell($T)) cells
+  )=
+  row([],cells).
+   
+public define HTML_Row($T)   
+  row
+  (
+    HTML_Cell($T) cell
+  )=
+  row([],[cell]).
+
+public define HTML_Row($T)   
+  row
+  (
+    List(Cell_Option) options,
+    HTML_Cell($T) cell
+  )=
+  row(options,[cell]). 
+
+public define HTML_Row($T)   
+  row
+  (
+    Cell_Option   option,
+    HTML_Cell($T) cell
+  )=
+  row([option],[cell]). 
+
+public define HTML_Header_Row($T)
+  header_row
+  (
+    List(HTML_Header_Cell($T)) cells
+  ) =
+  header_row([],cells).
+   
+public define HTML_Header_Row($T)   
+  header_row
+  (
+    HTML_Header_Cell($T) cell
+  ) =
+  header_row([],[cell]). 
+   
+
+
+public define Actioner_Aspect
+  immediate_selector
+  (
+    List(CoreAttrs) core_attrs,
+    WebArgName      name, 
+    Int             size, 
+    List((List(CoreAttrs),WebArgValue,String)) choices
+   )=
+   immediate_selector(core_attrs, name, size, choices, failure, "")
+   .
+   
+public define Actioner_Aspect
+  immediate_selector
+  (
+    List(CoreAttrs) core_attrs,
+    WebArgName      name, 
+    Int             size, 
+    List((List(CoreAttrs),WebArgValue,String)) choices, 
+    Maybe(InitialValue) selected
+   )=
+   immediate_selector(core_attrs, name, size, choices, selected, "")
+   .
+   
+   
+public define Actioner_Aspect
+  link
+  (
+    List(Text_Option) options,
+    String text
+  )=
+  link(options, text, failure). 
+
+public define Actioner_Aspect
+  link
+  (
+    String text
+  ) =
+  link([], text, failure). 
+   
+   
+public define Actioner_Aspect
+  link
+  (
+    List(Text_Option) options,
+    Int              i
+  ) =
+  link(options, to_decimal(i), failure). 
+   
+public define Actioner_Aspect
+  link
+  (
+    Int i
+  ) =
+  link([], i).
+      
+public define Actioner_Aspect
+   button
+     (
+       String  url_img
+     ) =
+   button(url_img,url_img).
+   
+   Actioners are explained in details below.    
+   
+   
+
+
+
+public define String
+  to_String
+  (
+    CSS_File_Media css_file_media
+  )=
+  if css_file_media is
+  {
+    screen      then  "screen",
+    tty         then  "tty",
+    tv          then  "tv",
+    projection  then  "projection",
+    handheld    then  "handheld",
+    print       then  "print",
+    braille     then  "braille",
+    aural       then  "aural",
+    all         then  "all"      
+  }.
+
+
+//public type HTML_Meta:...
+
+
+
+public define HTML_Head_Tag
+  js_script
+  (
+    String script_content
+  )=
+  js_inline(script("text/javascript", script_content))
+.
+ /* Label with help */
+
+
+public define HTML_tooltip
+  html_tooltip
+  (
+    String  keyword,
+    Int     width
+  )=
+  html_tooltip("", keyword, width).
+
+public define HTML_tooltip
+  html_tooltip
+  (
+    String  title,
+    String  keyword
+  )=
+  html_tooltip(title, keyword, 0).
+  
+
+
+public define HTML_Help
+  tooltip
+  (
+    HTML_tooltip  h_tooltip
+  )=
+  tooltip(h_tooltip, left)
+.
+
+
+      
+  /* It contains
+   *  - a List of HTML_Head_Tag representing necessaries head tags for the content. ex: jquery js files, js script, css specific styles, ...
+   *  - a HTML_Off_Form representing the HTML code for the part of the page we want to display
+   */
+//public type HTML_In_Form:...
+
+
+  
+public define List(HTML_Head_Tag)
+  to_HTML_Head_Tag
+  (
+    List(CSS_File) css_file_list
+  )=
+  map((CSS_File css_f) |-> css(css_f), css_file_list).
+
+public define List(HTML_Head_Tag)
+  to_HTML_Head_Tag
+  (
+    List(JS_File) js_file_list
+  )=
+  map((JS_File js_f) |-> js(js_f), js_file_list).
+  
+
+   
+   'HTML_In_Form'  defines all  the  elements  you may  put  within a  form.  We define  a
+   convenience function:
+
+
+public define HTML_Off_Form  text_input(HTML_Label label,  HTML_Id id, WebArgName name, InitialValue init, Int width) = text_input([], label, id, name, init, width).
+
+public define HTML_Off_Form literal(Printable_tree t) = literal_pt(t). 
+   
+public define HTML_Off_Form image(String url) = image([], url, url).
+
+public define HTML_Off_Form image(String url, Int width, Int height) = image([], url, url, width, height).
+
+public define HTML_In_Form
+   foreign_link
+     (
+       Int tsize,
+       String url, 
+       String name
+     ) =
+   foreign_link([size(tsize)],url,name). 
+
+public define HTML_In_Form
+/* Older call with String as action instead of WEB_Action_Name. 
+ * This function exists only for compatibility with older project.
+ * Please condiser to use above function instead
+ */
+  actioner
+  (
+       Actioner_Connection    conn, 
+       Actioner_Target        targ, 
+       Actioner_Aspect        asp, 
+       String                 action, 
+       List((String,String))  extra_ops,
+       List(Actioner_Local_Action)  local_actions
+  )=
+  actioner(conn,targ,asp,action_name(action),extra_ops,local_actions)
+.
+   
+public define HTML_In_Form
+  actioner
+  (
+       Actioner_Connection       conn, 
+       Actioner_Target           targ, 
+       Actioner_Aspect           asp, 
+       WEB_Action_Name           action, 
+       List((String,String))     extra_ops
+  )=
+  actioner(conn,targ,asp,action,extra_ops,[])
+.
+
+public define HTML_In_Form
+/* Older call with String as action instead of WEB_Action_Name. 
+ * This function exists only for compatibility with older project.
+ * Please condiser to use above function instead
+ */
+  actioner
+  (
+       Actioner_Connection    conn, 
+       Actioner_Target        targ, 
+       Actioner_Aspect        asp, 
+       String                 action, 
+       List((String,String))  extra_ops
+  )=
+  actioner(conn,targ,asp,action_name(action),extra_ops,[])
+.
+   
+public define HTML_In_Form
+  actioner
+  (
+    Actioner_Connection       conn, 
+    Actioner_Target           targ, 
+    Actioner_Aspect           asp, 
+  )=
+  actioner(conn, targ, asp, action_name(""), [], []). 
+   
+   
+public define HTML_In_Form
+   text_area
+     (
+       WebArgName name,
+       InitialValue init,
+       Int  width, 
+       Int  height
+     ) =
+   text_area([], no_label, html_Id(""), name,init,width,height). 
+   
+public define HTML_In_Form
+   text_area
+     (
+       List(TextAreaOption) options, 
+       WebArgName name,
+       InitialValue init,
+       Int  width, 
+       Int  height
+     ) =
+   text_area(options, no_label, html_Id(""), name,init,width,height). 
+
+public define HTML_In_Form
+   table
+     (
+       List(HTML_Row(HTML_In_Form)) rows
+     ) =
+   table([],empty,rows,empty). 
+   
+public define HTML_In_Form
+  table
+  (
+    List(Table_Option)            options,
+    List(HTML_Row(HTML_In_Form))  rows
+  ) =
+  table(options,empty,rows,empty).
+
+public define HTML_In_Form
+  table
+  (
+    HTML_Header_Row(HTML_In_Form)  h_row,    
+    List(HTML_Row(HTML_In_Form))   rows
+  ) =
+  table([],h_row,rows,empty).
+
+public define HTML_In_Form
+  table
+  (
+    List(Table_Option)            options,
+    HTML_Header_Row(HTML_In_Form) h_row,    
+    List(HTML_Row(HTML_In_Form))  rows
+  ) =
+  table(options,h_row,rows,empty).
+   
+public define HTML_In_Form   
+   private_download
+     (
+       String        abs_path, 
+       String        name, 
+       String        extra_ext
+     ) =
+   private_download(abs_path,name,extra_ext,failure). 
+
+public define HTML_In_Form   
+   private_download
+     (
+       String        abs_path, 
+       String        name, 
+       String        extra_ext,
+       String        action_name,
+       List((String,String))   args
+     ) =
+   private_download(abs_path,name,extra_ext,success((action_name,args))). 
+   
+
+
+public define HTML_In_Form
+  text
+  (
+    List(CoreAttrs) l,
+    Int             i
+  ) =
+  text(l, to_decimal(i)).
+   
+public define HTML_In_Form
+  text
+  (
+    String s
+  )=
+  text([],s)
+.
+
+public define HTML_In_Form
+  text
+  (
+    Int i
+  ) =
+  text([], i)
+.
+
+public define HTML_In_Form
+  div
+  (
+    HTML_In_Form element
+  )=
+  div([], [element])
+.
+
+public define HTML_In_Form
+  div
+  (
+    List(CoreAttrs) attrs,
+    HTML_In_Form   element
+  )=
+  div(attrs, [element])
+.
+
+public define HTML_In_Form
+  span
+  (
+    String s
+  )=
+  span([],s)
+.
+
+public define HTML_In_Form
+  span
+  (
+    Int i
+  ) =
+  span([], to_decimal(i))
+.
+   
+public define HTML_In_Form
+  radio_button   (List(CoreAttrs) options, HTML_Label label, WebArgName n, WebArgValue value, Bool checked)
+  = radio_button (options, label, html_Id(n.name), n, value, checked).
+
+public define HTML_In_Form
+  radio_button_r   (List(CoreAttrs) options, HTML_Label label, WebArgName n, WebArgValue value, Bool checked)
+  = radio_button_r (options, label, html_Id(n.name), n, value, checked).
+
+public define HTML_In_Form
+  check_box     (List(CoreAttrs) options, HTML_Label label, WebArgName n, Bool checked)
+  = check_box   (options, label, html_Id(n.name), n, checked).
+
+public define HTML_In_Form
+  check_box_r    (List(CoreAttrs) options, HTML_Label label, WebArgName n, Bool checked)
+  = check_box_r  (options, label, html_Id(n.name), n, checked).
+  
+public define HTML_In_Form
+  file_upload     (WebArgName n, Int width)
+  = file_upload([], no_label, html_Id(n.name), n, width).
+  
+public define HTML_In_Form
+  hidden  (WebArgName name, WebArgValue value)
+  =
+  hidden(html_Id(""), name, value).
+
+public type Input_Type:
+button,
+checkbox,
+color,
+date,
+datetime_local,
+email,
+file,
+hidden,
+image,
+month,
+number,
+password,
+radio,
+range,
+reset,
+search,
+submit,
+tel,
+text,
+time,
+url,
+week
+.
+
+public define String
+  to_String
+  (
+    Input_Type type
+  )=
+  if type is 
+  {
+    button          then "button",
+    checkbox        then "checkbox",
+    color           then "color",
+    date            then "date",
+    datetime_local  then "datetime_local",
+    email           then "email",
+    file            then "file",
+    hidden          then "hidden",
+    image           then "image",
+    month           then "month",
+    number          then "number",
+    password        then "password",
+    radio           then "radio",
+    range           then "range",
+    reset           then "reset",
+    search          then "search",
+    submit          then "submit",
+    tel             then "tel",
+    text            then "text",
+    time            then "time",
+    url             then "url",
+    week            then "week"  
+  }
+.
+
+define Printable_tree
+  add_js_files_attributes
+  (
+    List(JS_Attribute)   l
+  ) =
+  if l is 
+  {
+    [ ]     then [ ], 
+    [h . t] then 
+         [ " " + to_String(h) 
+           . add_js_files_attributes(t)]
+  }
+.
+
+
+define Printable_tree
+  add_js_files
+  (
+    List(JS_File)   l
+  ) =
+  if l is 
+  {
+    [ ]     then [ ], 
+    [h . t] then 
+      [ ["<script src=\""+ file_name(h) +"\" type=\"text/javascript\""
+            . add_js_files_attributes(attributes(h)) ]
+           . ["></script>\n"
+             . add_js_files(t)] ]
+  }
+.
+
+define Printable_tree
+  add_script
+  (
+    List(Script)   l
+  ) =
+  if l is 
+  {
+    [ ]     then [ ], 
+    [h . t] then [ "<script type=\""+ script_type(h) +"\">\n"+ content(h) + "\n</script>\n" . add_script(t) ]
+  }.
+
+public type FormMethod:
+  get,
+  post
+.
+
+//public type HTML_Body:...
+   
+public define CoreAttrs formaction(WEB_Action_Name action, List((String,String)) extra_ops)   = attr("formaction", format_web_action_name(action, extra_ops)).
+public define CoreAttrs formaction(WEB_Action_Name action, (String,String) extra_op)          = attr("formaction", format_web_action_name(action, extra_op)).
+public define CoreAttrs formaction(WEB_Action_Name action)                                    = attr("formaction", format_web_action_name(action)).
+public define CoreAttrs formmethod(FormMethod method) = attr("formmethod", if method is { get then "get", post then "post"}). 
+
+   
+   'HTML_Off_Form' defines all the elements you may put outside any form. 
+   
+
+public define CoreAttrs method(String value)          = attr("method", value).
+public define CoreAttrs action(WEB_Action_Name action)= attr("action", "/"+format_web_action_name(action)).
+public define CoreAttrs action(WEB_Action_Name action, List((String,String)) extra_ops)= attr("action", "/"+format_web_action_name(action, extra_ops)).
+public define CoreAttrs formmethod(String value)      = attr("formmethod", value).
+public define CoreAttrs form(String value)            = attr("form", value).
+public define CoreAttrs for(String value)             = attr("for", value).
+
+
+public define HTML_Off_Form text(List(CoreAttrs) attrs, Int i)  = text(attrs,   to_decimal(i)).
+public define HTML_Off_Form text(CoreAttrs attr, Int i)         = text([attr],  i).
+public define HTML_Off_Form text(Int i)                         = text([],      i).
+public define HTML_Off_Form text(String s)                      = text([],      s).
+public define HTML_Off_Form text(CoreAttrs attr, String s)      = text([attr],  s).
+
+public define HTML_Off_Form a(A_href _href)                                                     = a([],     _href, _self, []).
+public define HTML_Off_Form a(List(CoreAttrs) attrs, A_href _href)                              = a(attrs,  _href, _self, []).
+public define HTML_Off_Form a(List(CoreAttrs) attrs, A_href _href, HTML_Off_Form content)       = a(attrs,  _href, _self, [content]).
+public define HTML_Off_Form a(List(CoreAttrs) attrs, A_href _href, List(HTML_Off_Form) content) = a(attrs,  _href, _self, content).
+public define HTML_Off_Form a(A_href _href, HTML_Off_Form content)                              = a([],     _href, _self, [content]).
+public define HTML_Off_Form a(A_href _href, String _text)                                       = a([],     _href, _self, [text(_text)]).
+public define HTML_Off_Form a(A_href _href, List(HTML_Off_Form) content)                        = a([],     _href, _self, content).
+public define HTML_Off_Form a(List(CoreAttrs) attrs, A_href _href, A_target _target, HTML_Off_Form content) = a(attrs,     _href, _target, [content]).
+public define HTML_Off_Form a(CoreAttrs attr, A_href _href, A_target _target, HTML_Off_Form content)        = a([attr],    _href, _target, [content]).
+public define HTML_Off_Form a(A_href _href, A_target _target, HTML_Off_Form content)            = a([],     _href, _target, [content]).
+public define HTML_Off_Form a(A_href _href, A_target _target, List(HTML_Off_Form) content)      = a([],     _href, _target, content).
+public define HTML_Off_Form a(CoreAttrs attr, A_href _href, A_target _target, List(HTML_Off_Form) content)  = a([attr],     _href, _target, content).
+public define HTML_Off_Form a(CoreAttrs attr, A_href _href, List(HTML_Off_Form) content)        = a([attr],     _href, _self, content).
+public define HTML_Off_Form a(CoreAttrs attr, A_href _href, HTML_Off_Form content)              = a([attr],     _href, _self, [content]).
+
+  // <article>
+public define HTML_Off_Form article(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("article", attrs, content).
+public define HTML_Off_Form article(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("article", attrs, [content]).
+public define HTML_Off_Form article(List(HTML_Off_Form) content)                         = html_tag("article", [],    content).
+public define HTML_Off_Form article(HTML_Off_Form content)                               = html_tag("article", [],    [content]).
+
+  // <aside>
+public define HTML_Off_Form aside(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("aside", attrs, content).
+public define HTML_Off_Form aside(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("aside", attrs, [content]).
+public define HTML_Off_Form aside(List(HTML_Off_Form) content)                         = html_tag("aside", [],    content).
+public define HTML_Off_Form aside(HTML_Off_Form content)                               = html_tag("aside", [],    [content]).
+
+  // <b> text in bold face
+public define HTML_Off_Form b(String string)                                          = html_tag("b", [], [text(string)]).
+public define HTML_Off_Form b(List(CoreAttrs) attrs, HTML_Off_Form content)           = html_tag("b", attrs, [content]).
+public define HTML_Off_Form b(CoreAttrs attr, List(HTML_Off_Form) content)            = html_tag("b", [attr], content).
+public define HTML_Off_Form b(CoreAttrs attr, HTML_Off_Form content)                  = html_tag("b", [attr], [content]).
+public define HTML_Off_Form b(List(CoreAttrs) attrs, String string)                   = html_tag("b", attrs, [text(string)]).
+public define HTML_Off_Form b(CoreAttrs attr, String string)                          = html_tag("b", [attr], [text(string)]).
+
+  // <br>
+public define HTML_Off_Form br                                                          = html_void_tag("br", []).
+public define HTML_Off_Form br(List(CoreAttrs) attrs)                                   = html_void_tag("br", attrs).
+
+  // <button>
+public define HTML_Off_Form button(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("button", attrs,   content).
+public define HTML_Off_Form button(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("button", attrs,   [content]).
+public define HTML_Off_Form button(CoreAttrs attr, List(HTML_Off_Form) content)         = html_tag("button", [attr],  content).
+public define HTML_Off_Form button(CoreAttrs attr, HTML_Off_Form content)               = html_tag("button", [attr],  [content]).
+public define HTML_Off_Form button(List(CoreAttrs) attrs)                               = html_tag("button", attrs,   []).
+public define HTML_Off_Form button(List(CoreAttrs) attrs, String string)                = html_tag("button", attrs,   [text(string)]).
+public define HTML_Off_Form button(List(HTML_Off_Form) content)                         = html_tag("button", [],      content).
+public define HTML_Off_Form button(HTML_Off_Form content)                               = html_tag("button", [],      [content]).
+
+  // <canvas>
+public define HTML_Off_Form canvas(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("canvas", attrs,   content).
+public define HTML_Off_Form canvas(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("canvas", attrs,   [content]).
+public define HTML_Off_Form canvas(CoreAttrs attr, List(HTML_Off_Form) content)         = html_tag("canvas", [attr],  content).
+public define HTML_Off_Form canvas(CoreAttrs attr, HTML_Off_Form content)               = html_tag("canvas", [attr],  [content]).
+public define HTML_Off_Form canvas(List(CoreAttrs) attrs)                               = html_tag("canvas", attrs,   []).
+public define HTML_Off_Form canvas(List(HTML_Off_Form) content)                         = html_tag("canvas", [],      content).
+public define HTML_Off_Form canvas(HTML_Off_Form content)                               = html_tag("canvas", [],      [content]).
+public define HTML_Off_Form canvas(CoreAttrs cattr, Int width, Int height)              = html_tag("canvas", [cattr, 
+                                                                                                              attr("width", to_String(width)),
+                                                                                                              attr("height", to_String(height))
+                                                                                                             ],      []).
+public define HTML_Off_Form canvas(List(CoreAttrs) attrs, Int width, Int height)              = html_tag("canvas", [ 
+                                                                                                              attr("width", to_String(width)),
+                                                                                                              attr("height", to_String(height)).
+                                                                                                              attrs
+                                                                                                             ],      []).
+  // <datalist>
+public define HTML_Off_Form datalist(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("datalist", attrs, content).
+public define HTML_Off_Form datalist(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("datalist", attrs, [content]).
+public define HTML_Off_Form datalist(List(HTML_Off_Form) content)                         = html_tag("datalist", [],    content).
+public define HTML_Off_Form datalist(HTML_Off_Form content)                               = html_tag("datalist", [],    [content]).
+
+  // <div>
+public define HTML_Off_Form div(List(CoreAttrs) attrs, List(HTML_Off_Form) content)   = html_tag("div", attrs,  content).
+public define HTML_Off_Form div(List(CoreAttrs) attrs, HTML_Off_Form content)         = html_tag("div", attrs,  [content]).
+public define HTML_Off_Form div(CoreAttrs attr, List(HTML_Off_Form) content)          = html_tag("div", [attr], content).
+public define HTML_Off_Form div(CoreAttrs attr, HTML_Off_Form content)                = html_tag("div", [attr], [content]).
+public define HTML_Off_Form div(List(HTML_Off_Form) content)                          = html_tag("div", [],     content).
+public define HTML_Off_Form div(HTML_Off_Form content)                                = html_tag("div", [],     [content]).
+public define HTML_Off_Form div(List(CoreAttrs) attrs)                                = html_tag("div", attrs,  []).
+public define HTML_Off_Form div(CoreAttrs attr)                                       = html_tag("div", [attr], []).
+
+public define HTML_Off_Form div(String string)                                        = html_tag("div", [],     [text(string)]).
+public define HTML_Off_Form div(CoreAttrs attr, String string)                        = html_tag("div", [attr], [text(string)]).
+public define HTML_Off_Form div(List(CoreAttrs) attrs, String string)                 = html_tag("div", attrs,  [text(string)]).
+
+public define HTML_Off_Form div(List(CoreAttrs) attrs, HTML_Partial_Content content)  = div(attrs,  [content]).
+public define HTML_Off_Form div(List(HTML_Partial_Content) content)                   = div([],     content).
+public define HTML_Off_Form div(CoreAttrs attr, HTML_Partial_Content content)         = div([attr], [content]).
+public define HTML_Off_Form div(HTML_Partial_Content content)                         = div([],     [content]).
+
+//public define HTML_Partial_Content div(List(CoreAttrs) attrs, HTML_Partial_Content content)  = partial_content([], div(attrs,  [content])).
+//public define HTML_Partial_Content div(CoreAttrs attr, HTML_Partial_Content content)  = partial_content([], div([attr], [content])).
+//public define HTML_Partial_Content div(List(HTML_Partial_Content) content)            = partial_content([], div([],     content)).
+//public define HTML_Partial_Content div(HTML_Partial_Content content)                  = partial_content([], div([],     [content])).
+
+  // <dd>
+public define HTML_Off_Form dd(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("dd", attrs, content).
+public define HTML_Off_Form dd(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("dd", attrs, [content]).
+public define HTML_Off_Form dd(List(HTML_Off_Form) content)                         = html_tag("dd", [],    content).
+public define HTML_Off_Form dd(HTML_Off_Form content)                               = html_tag("dd", [],    [content]).
+
+  // <dl>
+public define HTML_Off_Form dl(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("dl", attrs, content).
+public define HTML_Off_Form dl(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("dl", attrs, [content]).
+public define HTML_Off_Form dl(List(HTML_Off_Form) content)                         = html_tag("dl", [],    content).
+public define HTML_Off_Form dl(HTML_Off_Form content)                               = html_tag("dl", [],    [content]).
+
+  // <dt>
+public define HTML_Off_Form dt(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("dt", attrs, content).
+public define HTML_Off_Form dt(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("dt", attrs, [content]).
+public define HTML_Off_Form dt(List(HTML_Off_Form) content)                         = html_tag("dt", [],    content).
+public define HTML_Off_Form dt(HTML_Off_Form content)                               = html_tag("dt", [],    [content]).
+
+  // <em>
+public define HTML_Off_Form em(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("em", attrs, content).
+public define HTML_Off_Form em(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("em", attrs, [content]).
+public define HTML_Off_Form em(List(HTML_Off_Form) content)                         = html_tag("em", [],    content).
+public define HTML_Off_Form em(HTML_Off_Form content)                               = html_tag("em", [],    [content]).
+
+  // <fieldset>
+public define HTML_Off_Form fieldset(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("fieldset", attrs, content).
+public define HTML_Off_Form fieldset(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("fieldset", attrs, [content]).
+public define HTML_Off_Form fieldset(List(HTML_Off_Form) content)                         = html_tag("fieldset", [],    content).
+public define HTML_Off_Form fieldset(HTML_Off_Form content)                               = html_tag("fieldset", [],    [content]).
+
+  // <footer>
+public define HTML_Off_Form footer(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("footer", attrs, content).
+public define HTML_Off_Form footer(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("footer", attrs, [content]).
+public define HTML_Off_Form footer(List(HTML_Off_Form) content)                         = html_tag("footer", [],    content).
+public define HTML_Off_Form footer(HTML_Off_Form content)                               = html_tag("footer", [],    [content]).
+
+  // <form>
+public define HTML_Off_Form form(List(CoreAttrs) attrs, List(HTML_Off_Form) content)    = html_tag("form", attrs, content).
+public define HTML_Off_Form form(List(CoreAttrs) attrs, HTML_Off_Form content)          = html_tag("form", attrs, [content]).
+public define HTML_Off_Form form(CoreAttrs attr, List(HTML_Off_Form) content)           = html_tag("form", [attr], content).
+public define HTML_Off_Form form(CoreAttrs attr, HTML_Off_Form content)                 = html_tag("form", [attr], [content]).
+public define HTML_Off_Form form(List(CoreAttrs) attrs)                                 = html_tag("form", attrs, []).
+public define HTML_Off_Form form(CoreAttrs attr)                                        = html_tag("form", [attr], []).
+
+public define HTML_Off_Form form(List(HTML_Off_Form) content)                           = html_tag("form", [],    content).
+public define HTML_Off_Form form(HTML_Off_Form content)                                 = html_tag("form", [],    [content]).
+
+
+  // <header>
+public define HTML_Off_Form header(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("header", attrs, content).
+public define HTML_Off_Form header(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("header", attrs, [content]).
+public define HTML_Off_Form header(List(HTML_Off_Form) content)                         = html_tag("header", [],    content).
+public define HTML_Off_Form header(HTML_Off_Form content)                               = html_tag("header", [],    [content]).
+
+  // <h1>
+public define HTML_Off_Form h1(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("h1", attrs, content).
+public define HTML_Off_Form h1(CoreAttrs attr, List(HTML_Off_Form) content)         = html_tag("h1", [attr], content).
+public define HTML_Off_Form h1(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("h1", attrs, [content]).
+public define HTML_Off_Form h1(CoreAttrs attr, HTML_Off_Form content)               = html_tag("h1", [attr], [content]).
+public define HTML_Off_Form h1(List(HTML_Off_Form) content)                         = html_tag("h1", [],    content).
+public define HTML_Off_Form h1(HTML_Off_Form content)                               = html_tag("h1", [],    [content]).
+  // <h2>
+public define HTML_Off_Form h2(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("h2", attrs, content).
+public define HTML_Off_Form h2(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("h2", attrs, [content]).
+public define HTML_Off_Form h2(List(HTML_Off_Form) content)                         = html_tag("h2", [],    content).
+public define HTML_Off_Form h2(HTML_Off_Form content)                               = html_tag("h2", [],    [content]).
+  // <h3>
+public define HTML_Off_Form h3(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("h3", attrs, content).
+public define HTML_Off_Form h3(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("h3", attrs, [content]).
+public define HTML_Off_Form h3(List(HTML_Off_Form) content)                         = html_tag("h3", [],    content).
+public define HTML_Off_Form h3(HTML_Off_Form content)                               = html_tag("h3", [],    [content]).
+public define HTML_Off_Form h3(String content)                                      = html_tag("h3", [],    [text(content)]).
+
+  // <h4>
+public define HTML_Off_Form h4(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("h4", attrs, content).
+public define HTML_Off_Form h4(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("h4", attrs, [content]).
+public define HTML_Off_Form h4(List(HTML_Off_Form) content)                         = html_tag("h4", [],    content).
+public define HTML_Off_Form h4(HTML_Off_Form content)                               = html_tag("h4", [],    [content]).
+  // <h5>
+public define HTML_Off_Form h5(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("h5", attrs, content).
+public define HTML_Off_Form h5(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("h5", attrs, [content]).
+public define HTML_Off_Form h5(List(HTML_Off_Form) content)                         = html_tag("h5", [],    content).
+public define HTML_Off_Form h5(HTML_Off_Form content)                               = html_tag("h5", [],    [content]).
+
+  // <h6>
+public define HTML_Off_Form h6(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("h6", attrs, content).
+public define HTML_Off_Form h6(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("h6", attrs, [content]).
+public define HTML_Off_Form h6(List(HTML_Off_Form) content)                         = html_tag("h6", [],    content).
+public define HTML_Off_Form h6(HTML_Off_Form content)                               = html_tag("h6", [],    [content]).
+
+  // <hr>
+public define HTML_Off_Form hr                                                      = html_void_tag("hr", []).
+public define HTML_Off_Form hr(List(CoreAttrs) attrs)                               = html_void_tag("hr", attrs).
+public define HTML_Off_Form hr(CoreAttrs attr)                                      = html_void_tag("hr", [attr]).
+
+  // <i>
+public define HTML_Off_Form i(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("i", attrs,   content).
+public define HTML_Off_Form i(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("i", attrs,   [content]).
+public define HTML_Off_Form i(CoreAttrs attr, List(HTML_Off_Form) content)         = html_tag("i", [attr],  content).
+public define HTML_Off_Form i(CoreAttrs attr, HTML_Off_Form content)               = html_tag("i", [attr],  [content]).
+public define HTML_Off_Form i(List(HTML_Off_Form) content)                         = html_tag("i", [],      content).
+public define HTML_Off_Form i(HTML_Off_Form content)                               = html_tag("i", [],      [content]).
+public define HTML_Off_Form i(String string)                                       = html_tag("i", [],      [text(string)]).
+public define HTML_Off_Form i(CoreAttrs attr, String string)                       = html_tag("i", [attr],  [text(string)]).
+public define HTML_Off_Form i(List(CoreAttrs) attrs, String string)                = html_tag("i", attrs,   [text(string)]).
+
+  // <iframe>
+public define HTML_Off_Form iframe(CoreAttrs _attr, String src, Int width, Int height) =
+  html_tag("iframe", [_attr, attr("src",src), width_px(width), height_px(height)], []).
+public define HTML_Off_Form iframe(String src, Int width, Int height) =
+  html_tag("iframe", [attr("src",src), width_px(width), height_px(height)], []).
+public define HTML_Off_Form iframe(String src)                                      = html_tag("iframe", [attr("src",src)], []).
+
+  // <input>
+public define HTML_Off_Form input(List(CoreAttrs) attrs)                            = html_void_tag("input", attrs).
+public define HTML_Off_Form input(CoreAttrs attr)                                   = html_void_tag("input", [attr]).
+
+public define CoreAttrs type(Input_Type value)= attr("type", to_String(value)).
+public define CoreAttrs type(String value)= attr("type", value).
+public define CoreAttrs name(String value)= attr("name", value).
+public define CoreAttrs value(String value)= attr("value", value).
+public define CoreAttrs placeholder(String value) = attr("placeholder", value).
+public define CoreAttrs init(String value)= attr("value", encode_HTML_entities(value)).
+  //-- BEGIN of <input> preset type
+
+public define HTML_Off_Form text_input(List(CoreAttrs) options, HTML_Label label_text, WebArgName _name, InitialValue _init, Int w) = 
+        sequence([
+          format_label(label_text),
+          input([class("in"), id(_id), name(_name), value(_int), size(w), options])
+        ]).
+
+  /// Checkbox
+public define HTML_Off_Form checkbox(List(CoreAttrs) attrs, String _name, String _form, Bool checked) = input([type(checkbox), name(_name), form(_form), bool_attr(checked, "checked") . attrs]).
+public define HTML_Off_Form checkbox(List(CoreAttrs) attrs, String _name, Bool checked)               = input([type(checkbox), name(_name), bool_attr(checked, "checked") . attrs]).
+public define HTML_Off_Form checkbox(String name, String form, Bool checked)                          = checkbox([], name, form, checked).
+public define HTML_Off_Form checkbox(String name, Bool checked)                                       = checkbox([], name, checked).
+
+  /// Radio button
+public define HTML_Off_Form radio(List(CoreAttrs) attrs, String _name, String _value, String _form, Bool checked) = input([type(radio), name(_name), value(_value), form(_form), bool_attr(checked, "checked") . attrs]).
+public define HTML_Off_Form radio(List(CoreAttrs) attrs, String name, String value, String form)     = radio(attrs, name, value, form, false).
+public define HTML_Off_Form radio(String name, String value, String form, Bool checked)              = radio([], name, value, form, checked).
+public define HTML_Off_Form radio(String name, String value, String form)                            = radio([], name, value, form, false).
+
+  /// hidden value
+public define HTML_Off_Form hidden(List(CoreAttrs) attrs, String name, String value, String form) = input([type("hidden"), attr("name",name), attr("value",value), attr("form", form) . attrs]).
+public define HTML_Off_Form hidden(CoreAttrs attr, String name, String value, String form)        = hidden([attr],  name, value, form).
+public define HTML_Off_Form hidden(String name, String value, String form)                        = hidden([], name, value, form).
+public define HTML_Off_Form hidden(String _name, String _value)                                    = input([type("hidden"), name(_name), value(_value)]).
+
+  //-- END  of <input> preset type
+
+  // <img>
+public define HTML_Off_Form img(List(CoreAttrs) attrs, String src, String alt)      = html_void_tag("img", attrs + [attr("src",src), attr("alt",alt)] ).
+public define HTML_Off_Form img(CoreAttrs _attr, String src, String alt)            = html_void_tag("img", [_attr, attr("src",src), attr("alt",alt)] ).
+public define HTML_Off_Form img(String src)                                         = img([], src, "").
+public define HTML_Off_Form img(String src, String alt)                             = img([], src, alt).
+public define HTML_Off_Form img(List(CoreAttrs) attrs, String src)                  = img(attrs, src, "").
+public define HTML_Off_Form img(CoreAttrs attr, String src)                         = img([attr], src, "").
+public define HTML_Off_Form img(String src, Int width, Int height)                  = img([attr("width",to_String(width)+"px"), attr("height",to_String(height)+"px")], src, src).
+public define HTML_Off_Form img(String src, String alt, Int width, Int height) =
+  html_void_tag("img", [attr("src",src), attr("alt",alt), attr("width",to_String(width)+"px"), attr("height",to_String(height)+"px")]).
+
+public define HTML_Off_Form img(List(CoreAttrs) attrs, String src, String alt, Int width, Int height) =
+  html_void_tag("img", attrs + [attr("src",src), attr("alt",alt), attr("width",to_String(width)+"px"), attr("height",to_String(height)+"px")]).
+
+public define HTML_Off_Form img(CoreAttrs _attr, String src, String alt, Int width, Int height) =
+  html_void_tag("img", [_attr, attr("src",src), attr("alt",alt), width_px(width), height_px(height)]).
+
+  // <label>
+public define HTML_Off_Form label(List(CoreAttrs) attrs, List(HTML_Off_Form) content)   = html_tag("label", attrs,  content).
+public define HTML_Off_Form label(CoreAttrs attr, List(HTML_Off_Form) content)          = html_tag("label", [attr], content).
+public define HTML_Off_Form label(List(HTML_Off_Form) content)                          = html_tag("label", [],     content).
+public define HTML_Off_Form label(HTML_Off_Form content)                                = html_tag("label", [],     [content]).
+public define HTML_Off_Form label(String string)                                        = html_tag("label", [],     [text(string)]).
+public define HTML_Off_Form label(CoreAttrs attr, String string)                        = html_tag("label", [attr], [text(string)]).
+public define HTML_Off_Form label(List(CoreAttrs) attrs, String string)                 = html_tag("label", attrs,  [text(string)]).
+
+  // <legend>
+public define HTML_Off_Form legend(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("legend", attrs,   content).
+public define HTML_Off_Form legend(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("legend", attrs,   [content]).
+public define HTML_Off_Form legend(CoreAttrs attr, List(HTML_Off_Form) content)         = html_tag("legend", [attr],  content).
+public define HTML_Off_Form legend(CoreAttrs attr, HTML_Off_Form content)               = html_tag("legend", [attr],  [content]).
+public define HTML_Off_Form legend(List(HTML_Off_Form) content)                         = html_tag("legend", [],      content).
+public define HTML_Off_Form legend(HTML_Off_Form content)                               = html_tag("legend", [],      [content]).
+
+  // <li>
+public define HTML_Off_Form li(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("li", attrs,   content).
+public define HTML_Off_Form li(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("li", attrs,   [content]).
+public define HTML_Off_Form li(CoreAttrs attr, List(HTML_Off_Form) content)         = html_tag("li", [attr],  content).
+public define HTML_Off_Form li(CoreAttrs attr, HTML_Off_Form content)               = html_tag("li", [attr],  [content]).
+public define HTML_Off_Form li(List(HTML_Off_Form) content)                         = html_tag("li", [],      content).
+public define HTML_Off_Form li(HTML_Off_Form content)                               = html_tag("li", [],      [content]).
+public define HTML_Off_Form li(String string)                                        = html_tag("li", [],     [text(string)]).
+public define HTML_Off_Form li(CoreAttrs attr, String string)                        = html_tag("li", [attr], [text(string)]).
+public define HTML_Off_Form li(List(CoreAttrs) attrs, String string)                 = html_tag("li", attrs,  [text(string)]).
+
+  // <main>
+public define HTML_Off_Form main(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("main", attrs, content).
+public define HTML_Off_Form main(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("main", attrs, [content]).
+public define HTML_Off_Form main(CoreAttrs attr, List(HTML_Off_Form) content)         = html_tag("main", [attr], content).
+public define HTML_Off_Form main(CoreAttrs attr, HTML_Off_Form content)               = html_tag("main", [attr], [content]).
+public define HTML_Off_Form main(List(HTML_Off_Form) content)                         = html_tag("main", [],    content).
+public define HTML_Off_Form main(HTML_Off_Form content)                               = html_tag("main", [],    [content]).
+
+  // <nav>
+public define HTML_Off_Form nav(List(CoreAttrs) attrs, List(HTML_Off_Form) content)   = html_tag("nav", attrs, content).
+public define HTML_Off_Form nav(List(CoreAttrs) attrs, HTML_Off_Form content)         = html_tag("nav", attrs, [content]).
+public define HTML_Off_Form nav(CoreAttrs attr, List(HTML_Off_Form) content)          = html_tag("nav", [attr], content).
+public define HTML_Off_Form nav(CoreAttrs attr, HTML_Off_Form content)                = html_tag("nav", [attr], [content]).
+public define HTML_Off_Form nav(List(HTML_Off_Form) content)                          = html_tag("nav", [],    content).
+public define HTML_Off_Form nav(HTML_Off_Form content)                                = html_tag("nav", [],    [content]).
+
+  // <ol>
+public define HTML_Off_Form ol(List(CoreAttrs) attrs, List(HTML_Off_Form) content)        = html_tag("ol", attrs, content).
+public define HTML_Off_Form ol(List(CoreAttrs) attrs, HTML_Off_Form content)              = html_tag("ol", attrs, [content]).
+public define HTML_Off_Form ol(List(HTML_Off_Form) content)                               = html_tag("ol", [],    content).
+public define HTML_Off_Form ol(HTML_Off_Form content)                                     = html_tag("ol", [],    [content]).
+
+  // <option>
+public define HTML_Off_Form option(List(CoreAttrs) attrs, List(HTML_Off_Form) content)    = html_tag("option", attrs,   content).
+public define HTML_Off_Form option(List(CoreAttrs) attrs, HTML_Off_Form content)          = html_tag("option", attrs,  [content]).
+public define HTML_Off_Form option(List(HTML_Off_Form) content)                           = html_tag("option", [],      content).
+public define HTML_Off_Form option(CoreAttrs attr, HTML_Off_Form content)                 = html_tag("option", [attr], [content]).
+public define HTML_Off_Form option(HTML_Off_Form content)                                 = html_tag("option", [],     [content]).
+public define HTML_Off_Form option(String _value, String _text)                           = html_tag("option", [value(_value)], [text(_text)]).
+  // <p>
+public define HTML_Off_Form p(List(CoreAttrs) attrs, List(HTML_Off_Form) content)         = html_tag("p", attrs, content).
+public define HTML_Off_Form p(List(CoreAttrs) attrs, HTML_Off_Form content)               = html_tag("p", attrs, [content]).
+public define HTML_Off_Form p(CoreAttrs attr, List(HTML_Off_Form) content)                = html_tag("p", [attr], content).
+public define HTML_Off_Form p(CoreAttrs attr, HTML_Off_Form content)                      = html_tag("p", [attr], [content]).
+public define HTML_Off_Form p(CoreAttrs attr, String _text)                               = html_tag("p", [attr], [text(_text)]).
+public define HTML_Off_Form p(List(HTML_Off_Form) content)                                = html_tag("p", [],    content).
+public define HTML_Off_Form p(HTML_Off_Form content)                                      = html_tag("p", [],    [content]).
+
+  // <pre>  preformatted
+public define HTML_Off_Form pre(List(CoreAttrs) attrs, List(HTML_Off_Form) content)         = html_tag("pre", attrs, content).
+public define HTML_Off_Form pre(List(CoreAttrs) attrs, HTML_Off_Form content)               = html_tag("pre", attrs, [content]).
+public define HTML_Off_Form pre(CoreAttrs attr, List(HTML_Off_Form) content)                = html_tag("pre", [attr], content).
+public define HTML_Off_Form pre(CoreAttrs attr, HTML_Off_Form content)                      = html_tag("pre", [attr], [content]).
+public define HTML_Off_Form pre(List(HTML_Off_Form) content)                                = html_tag("pre", [],    content).
+public define HTML_Off_Form pre(HTML_Off_Form content)                                      = html_tag("pre", [],    [content]).
+public define HTML_Off_Form pre(String string)                                              = html_tag("pre", [],     [text(string)]).
+public define HTML_Off_Form pre(CoreAttrs attr, String string)                              = html_tag("pre", [attr], [text(string)]).
+public define HTML_Off_Form pre(List(CoreAttrs) attrs, String string)                       = html_tag("pre", attrs,  [text(string)]).
+
+  // <progress>
+public define HTML_Off_Form progress(List(CoreAttrs) attrs, Int value, Int max, List(HTML_Off_Form) content)  = html_tag("progress", [attr("value", value), attr("max", max) . attrs],  content).
+public define HTML_Off_Form progress(List(CoreAttrs) attrs, Int value, Int max, HTML_Off_Form content)        = html_tag("progress", [attr("value", value), attr("max", max) . attrs],  [content]).
+public define HTML_Off_Form progress(CoreAttrs _attr, Int value, Int max, HTML_Off_Form content)              = html_tag("progress", [attr("value", value), attr("max", max) , _attr],   [content]).
+public define HTML_Off_Form progress(Int value, Int max, HTML_Off_Form content)                               = html_tag("progress", [attr("value", value), attr("max", max)], [content]).
+public define HTML_Off_Form progress(List(CoreAttrs) attrs, Int value, Int max, String content)               = html_tag("progress", [attr("value", value), attr("max", max) . attrs], [text(content)]).
+public define HTML_Off_Form progress(CoreAttrs _attr, Int value, Int max, String content)                     = html_tag("progress", [attr("value", value), attr("max", max), _attr], [text(content)]).
+public define HTML_Off_Form progress(List(CoreAttrs) attrs, Int value, Int max)                               = html_tag("progress", [attr("value", value), attr("max", max) . attrs], []).
+public define HTML_Off_Form progress(CoreAttrs _attr, Int value, Int max)                                     = html_tag("progress", [attr("value", value), attr("max", max), _attr], []).
+public define HTML_Off_Form progress(Int value, Int max, String content)                                      = html_tag("progress", [attr("value", value), attr("max", max)], [text(content)]).
+public define HTML_Off_Form progress(Int value, Int max)                                                      = html_tag("progress", [attr("value", value), attr("max", max)], []).
+
+  // <script>
+public define HTML_Off_Form script(String file_name, List(JS_Attribute) attrs)           = literal_pt(add_js_files([js_file(file_name, attrs)])).
+public define HTML_Off_Form script(String content)                                       = literal_pt(add_script([script("text/javascript", content)])).
+
+  // <section>
+public define HTML_Off_Form section(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("section", attrs, content).
+public define HTML_Off_Form section(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("section", attrs, [content]).
+public define HTML_Off_Form section(List(HTML_Off_Form) content)                         = html_tag("section", [],    content).
+public define HTML_Off_Form section(HTML_Off_Form content)                               = html_tag("section", [],    [content]).
+
+  // <select>
+public define HTML_Off_Form select(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("select", attrs, content).
+public define HTML_Off_Form select(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("select", attrs, [content]).
+public define HTML_Off_Form select(List(CoreAttrs) attrs)                               = html_tag("select", attrs, []).
+public define HTML_Off_Form select(List(HTML_Off_Form) content)                         = html_tag("select", [],    content).
+public define HTML_Off_Form select(HTML_Off_Form content)                               = html_tag("select", [],    [content]).
+
+
+  // <span>
+public define HTML_Off_Form span(List(CoreAttrs) attrs, List(HTML_Off_Form) content)    = html_tag("span", attrs, content).
+public define HTML_Off_Form span(List(CoreAttrs) attrs, HTML_Off_Form content)          = html_tag("span", attrs, [content]).
+public define HTML_Off_Form span(CoreAttrs attr, List(HTML_Off_Form) content)           = html_tag("span", [attr], content).
+public define HTML_Off_Form span(CoreAttrs attr, HTML_Off_Form content)                 = html_tag("span", [attr], [content]).
+public define HTML_Off_Form span(List(HTML_Off_Form) content)                           = html_tag("span", [],    content).
+public define HTML_Off_Form span(HTML_Off_Form content)                                 = html_tag("span", [],    [content]).
+public define HTML_Off_Form span(Int i)                                                 = html_tag("span", [],    [text(to_decimal(i))]).
+public define HTML_Off_Form span(List(CoreAttrs) attrs, String s)                       = html_tag("span", attrs, [text(s)]).
+public define HTML_Off_Form span(CoreAttrs attr, String s)                              = html_tag("span", [attr],[text(s)]).
+public define HTML_Off_Form span(String s)                                              = html_tag("span", [],    [text(s)]).
+public define HTML_Off_Form span(List(CoreAttrs) attrs)                                 = html_tag("span", attrs, []).
+public define HTML_Off_Form span(CoreAttrs attr)                                        = html_tag("span", [attr],[]).
+
+  // <strong>
+public define HTML_Off_Form strong(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("strong", attrs, content).
+public define HTML_Off_Form strong(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("strong", attrs, [content]).
+public define HTML_Off_Form strong(CoreAttrs attr, List(HTML_Off_Form) content)         = html_tag("strong", [attr], content).
+public define HTML_Off_Form strong(CoreAttrs attr, HTML_Off_Form content)               = html_tag("strong", [attr], [content]).
+public define HTML_Off_Form strong(List(HTML_Off_Form) content)                         = html_tag("strong", [],    content).
+public define HTML_Off_Form strong(HTML_Off_Form content)                               = html_tag("strong", [],    [content]).
+
+  // <svg>
+public define HTML_Off_Form svg(List(CoreAttrs) attrs)                                  = html_tag("svg", attrs, []).
+
+  
+  // <table>
+public define HTML_Off_Form table(List(CoreAttrs) attrs, List(HTML_Off_Form) content)   = html_tag("table", attrs, content).
+public define HTML_Off_Form table(List(CoreAttrs) attrs, HTML_Off_Form content)         = html_tag("table", attrs, [content]).
+public define HTML_Off_Form table(CoreAttrs attr, List(HTML_Off_Form) content)          = html_tag("table", [attr], content).
+public define HTML_Off_Form table(CoreAttrs attr, HTML_Off_Form content)                = html_tag("table", [attr], [content]).
+public define HTML_Off_Form table(List(HTML_Off_Form) content)                          = html_tag("table", [],    content).
+public define HTML_Off_Form table(HTML_Off_Form content)                                = html_tag("table", [],    [content]).
+
+  // <textarea>
+  // CoreAttrs for textarea
+public define CoreAttrs wrap_lines  = attr("wrap", "hard").
+public define CoreAttrs read_only   = bool_attr(true, "readonly").
+public define CoreAttrs cols(Int value) = attr("cols",to_String(value)).
+public define CoreAttrs rows(Int value) = attr("rows",to_String(value)).
+     
+public define HTML_Off_Form textarea(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("textarea", attrs, content).
+public define HTML_Off_Form textarea(List(CoreAttrs) attrs, HTML_Off_Form content)        = html_tag("textarea", attrs, [content]).
+
+public define HTML_Off_Form textarea(List(CoreAttrs) attrs, Int _cols, Int _rows, List(HTML_Off_Form) content)  
+        = html_tag("textarea", [cols(_cols), rows(_rows) . attrs], content).
+        
+public define HTML_Off_Form textarea(List(CoreAttrs) attrs,  Int _cols, Int _rows, HTML_Off_Form content)        
+        = html_tag("textarea", [cols(_cols), rows(_rows) . attrs], [content]).
+        
+public define HTML_Off_Form textarea(Int _cols, Int _rows, HTML_Off_Form content)         = html_tag("textarea", [cols(_cols), rows(_rows)], [content]).
+public define HTML_Off_Form textarea(CoreAttrs attr, List(HTML_Off_Form) content)         = html_tag("textarea", [attr], content).
+public define HTML_Off_Form textarea(CoreAttrs attr, HTML_Off_Form content)               = html_tag("textarea", [attr], [content]).
+
+  // <thead>
+public define HTML_Off_Form thead(List(CoreAttrs) attrs, List(HTML_Off_Form) content)   = html_tag("thead", attrs, content).
+public define HTML_Off_Form thead(List(CoreAttrs) attrs, HTML_Off_Form content)         = html_tag("thead", attrs, [content]).
+public define HTML_Off_Form thead(CoreAttrs attr, List(HTML_Off_Form) content)          = html_tag("thead", [attr], content).
+public define HTML_Off_Form thead(CoreAttrs attr, HTML_Off_Form content)                = html_tag("thead", [attr], [content]).
+public define HTML_Off_Form thead(List(HTML_Off_Form) content)                          = html_tag("thead", [],    content).
+public define HTML_Off_Form thead(HTML_Off_Form content)                                = html_tag("thead", [],    [content]).
+
+  // <tbody>
+public define HTML_Off_Form tbody(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("tbody", attrs, content).
+public define HTML_Off_Form tbody(List(CoreAttrs) attrs, HTML_Off_Form content)         = html_tag("tbody", attrs, [content]).
+public define HTML_Off_Form tbody(CoreAttrs attr, List(HTML_Off_Form) content)          = html_tag("tbody", [attr], content).
+public define HTML_Off_Form tbody(CoreAttrs attr, HTML_Off_Form content)                = html_tag("tbody", [attr], [content]).
+public define HTML_Off_Form tbody(List(HTML_Off_Form) content)                          = html_tag("tbody", [],    content).
+public define HTML_Off_Form tbody(HTML_Off_Form content)                                = html_tag("tbody", [],    [content]).
+
+  // <tfoot>
+public define HTML_Off_Form tfoot(List(CoreAttrs) attrs, List(HTML_Off_Form) content)  = html_tag("tfoot", attrs, content).
+public define HTML_Off_Form tfoot(List(CoreAttrs) attrs, HTML_Off_Form content)         = html_tag("tfoot", attrs, [content]).
+public define HTML_Off_Form tfoot(CoreAttrs attr, List(HTML_Off_Form) content)          = html_tag("tfoot", [attr], content).
+public define HTML_Off_Form tfoot(CoreAttrs attr, HTML_Off_Form content)                = html_tag("tfoot", [attr], [content]).
+public define HTML_Off_Form tfoot(List(HTML_Off_Form) content)                          = html_tag("tfoot", [],    content).
+public define HTML_Off_Form tfoot(HTML_Off_Form content)                                = html_tag("tfoot", [],    [content]).
+
+  // <th>
+public define HTML_Off_Form th(List(CoreAttrs) attrs, List(HTML_Off_Form) content)    = html_tag("th", attrs, content).
+public define HTML_Off_Form th(List(CoreAttrs) attrs, HTML_Off_Form content)          = html_tag("th", attrs, [content]).
+public define HTML_Off_Form th(CoreAttrs attr, List(HTML_Off_Form) content)           = html_tag("th", [attr], content).
+public define HTML_Off_Form th(CoreAttrs attr, HTML_Off_Form content)                 = html_tag("th", [attr], [content]).
+public define HTML_Off_Form th(CoreAttrs attr)                                        = html_tag("th", [attr], []).
+public define HTML_Off_Form th(List(HTML_Off_Form) content)                           = html_tag("th", [],      content).
+public define HTML_Off_Form th(HTML_Off_Form content)                                 = html_tag("th", [],     [content]).
+public define HTML_Off_Form th(String string)                                         = html_tag("th", [],     [text(string)]).
+public define HTML_Off_Form th(CoreAttrs attr, String string)                         = html_tag("th", [attr], [text(string)]).
+public define HTML_Off_Form th(List(CoreAttrs) attrs, String string)                  = html_tag("th", attrs,  [text(string)]).
+public define HTML_Off_Form th                                                        = html_tag("th", [],     []).
+
+  // <td>
+  // CoreAttrs for <td>
+//public define CoreAttrs colspan(Int value)        = attr("colspan", to_String(value)).
+//public define CoreAttrs rowspan(Int value)        = attr("rowspan", to_String(value)).
+//public define CoreAttrs headers(String header_id) = attr("headers", header_id).
+
+public define HTML_Off_Form td(List(CoreAttrs) attrs, List(HTML_Off_Form) content)    = html_tag("td", attrs,   content).
+public define HTML_Off_Form td(List(CoreAttrs) attrs, HTML_Off_Form content)          = html_tag("td", attrs,  [content]).
+public define HTML_Off_Form td(CoreAttrs attr, List(HTML_Off_Form) content)           = html_tag("td", [attr], content).
+public define HTML_Off_Form td(CoreAttrs attr, HTML_Off_Form content)                 = html_tag("td", [attr], [content]).
+public define HTML_Off_Form td(List(HTML_Off_Form) content)                           = html_tag("td", [],     content).
+public define HTML_Off_Form td(HTML_Off_Form content)                                 = html_tag("td", [],     [content]).
+public define HTML_Off_Form td(List(CoreAttrs) attrs, String string)                  = html_tag("td", attrs,  [text(string)]).
+public define HTML_Off_Form td(CoreAttrs attr, String string)                         = html_tag("td", [attr], [text(string)]).
+public define HTML_Off_Form td(String string)                                         = html_tag("td", [],     [text(string)]).
+public define HTML_Off_Form td(List(CoreAttrs) attrs, Int i)                          = html_tag("td", attrs,  [text(to_decimal(i))]).
+public define HTML_Off_Form td(CoreAttrs attr, Int i)                                 = html_tag("td", [attr], [text(to_decimal(i))]).
+public define HTML_Off_Form td(Int i)                                                 = html_tag("td", [],     [text(to_decimal(i))]).
+
+  // <tr>
+public define HTML_Off_Form tr(List(CoreAttrs) attrs, List(HTML_Off_Form) content)    = html_tag("tr", attrs, content).
+public define HTML_Off_Form tr(List(CoreAttrs) attrs, HTML_Off_Form content)          = html_tag("tr", attrs, [content]).
+public define HTML_Off_Form tr(CoreAttrs attr, List(HTML_Off_Form) content)           = html_tag("tr", [attr], content).
+public define HTML_Off_Form tr(CoreAttrs attr, HTML_Off_Form content)                 = html_tag("tr", [attr], [content]).
+public define HTML_Off_Form tr(List(HTML_Off_Form) content)                           = html_tag("tr", [],    content).
+public define HTML_Off_Form tr(HTML_Off_Form content)                                 = html_tag("tr", [],    [content]).
+
+  // <ul>
+public define HTML_Off_Form ul(List(CoreAttrs) attrs, List(HTML_Off_Form) content)      = html_tag("ul", attrs, content).
+public define HTML_Off_Form ul(List(CoreAttrs) attrs, HTML_Off_Form content)            = html_tag("ul", attrs, [content]).
+public define HTML_Off_Form ul(CoreAttrs attr, List(HTML_Off_Form) content)             = html_tag("ul", [attr], content).
+public define HTML_Off_Form ul(CoreAttrs attr, HTML_Off_Form content)                   = html_tag("ul", [attr], [content]).
+public define HTML_Off_Form ul(List(HTML_Off_Form) content)                             = html_tag("ul", [],    content).
+public define HTML_Off_Form ul(HTML_Off_Form content)                                   = html_tag("ul", [],    [content]).
+
+//public define HTML_Off_Form empty                                                       = html_tag(
+
+//public define HTML_Off_Form
+//  form
+//  (
+//    String          form_name, 
+//    List(CoreAttrs) options, 
+//    HTML_Off_Form   content
+//  ) =
+//  form([id(form_name). options], [content]).
+
+//public define HTML_Off_Form
+//  form
+//  (
+//    String              form_name, 
+//    List(CoreAttrs)     options, 
+//    List(HTML_Off_Form) contents
+//  ) =
+//  form([id(form_name) . options], contents).
+  
+public define HTML_Off_Form
+  form
+  (
+    List(CoreAttrs)       options,
+    WEB_Action_Name       _action, 
+    List((String,String)) extra_ops,
+    HTML_Off_Form         content
+  ) = 
+  form([action(_action, extra_ops). options], [content]).
+
+//public define HTML_Off_Form
+//  form
+//  (
+//    List(CoreAttrs)       options,
+//    WEB_Action_Name       action, 
+//    List((String,String)) extra_ops,
+//    HTML_Off_Form         content
+//  ) = 
+//  form(options, action, extra_ops, [content]).
+  
+public define HTML_Off_Form
+  form
+  (
+    List(CoreAttrs)       options,
+    WEB_Action_Name       action, 
+    List((String,String)) extra_ops,
+    List(HTML_Off_Form)   contents
+  ) = 
+  form(options, action, extra_ops, contents).
+  
+public define HTML_Off_Form
+  form
+  (
+    List(CoreAttrs)       options,
+    String                action, 
+    List((String,String)) extra_ops,
+    HTML_Off_Form         content
+  ) = 
+  form(options, action_name(action), extra_ops, [content]).
+
+public define HTML_Off_Form
+  form
+  (
+    String                form_name, 
+    List(CoreAttrs)       options,
+    String                action, 
+    List((String,String)) extra_ops,
+    List(HTML_Off_Form)   contents
+  ) = 
+  form(options, action_name(action), extra_ops, contents).
+  
+public define HTML_Off_Form literal(Printable_tree t) = literal_pt(t). 
+//public define HTML_Off_Form fixed_size(HTML_Size width, HTML_Size height, String name_of_HTML_file)
+//   = fixed_size_2(width,height,name_of_HTML_file). 
+
+   
+public define HTML_Off_Form
+   foreign_link
+     (
+       Int tsize,
+       String url, 
+       String name
+     ) =
+   foreign_link([size(tsize)],url,name). 
+   
+   
+public define HTML_Off_Form
+   actioner
+     (
+       Actioner_Connection       conn, 
+       Actioner_Target           targ, 
+       Actioner_Aspect           asp, 
+       WEB_Action_Name           action, 
+       List((String,String))     extra_ops
+     ) =
+   actioner(conn,targ,asp,action,extra_ops,[]). 
+
+public define HTML_Off_Form
+   actioner
+     (
+       Actioner_Connection       conn, 
+       Actioner_Target           targ, 
+       Actioner_Aspect           asp, 
+       WEB_Action_Name           action, 
+       List((String,String))     extra_ops,
+       String                    form_name
+     ) =
+   actioner(conn,targ,asp,action,extra_ops,[], form_name). 
+   
+public define HTML_Off_Form
+   actioner
+     (
+       Actioner_Aspect           asp, 
+       WEB_Action_Name           action, 
+       List((String,String))     extra_ops
+     ) =
+   actioner(same, same, asp, action, extra_ops, []). 
+
+public define HTML_Off_Form
+   actioner
+     (
+       Actioner_Aspect           asp, 
+       WEB_Action_Name           action, 
+       List((String,String))     extra_ops,
+       String                   form_name
+     ) =
+   actioner(same, same, asp, action, extra_ops, [], form_name). 
+   
+public define HTML_Off_Form
+/* Older call with String as action instead of WEB_Action_Name. 
+ * This function exists only for compatibility with older project.
+ * Please condiser to use above function instead
+ */
+  actioner
+  (
+       Actioner_Connection    conn, 
+       Actioner_Target        targ, 
+       Actioner_Aspect        asp, 
+       String                 action, 
+       List((String,String))  extra_ops,
+       List(Actioner_Local_Action)  local_actions
+  )=
+  actioner(conn,targ,asp,action_name(action),extra_ops,local_actions)
+.
+
+public define HTML_Off_Form
+/* Older call with String as action instead of WEB_Action_Name. 
+ * This function exists only for compatibility with older project.
+ * Please condiser to use above function instead
+ */
+  actioner
+  (
+       Actioner_Connection    conn, 
+       Actioner_Target        targ, 
+       Actioner_Aspect        asp, 
+       String                 action, 
+       List((String,String))  extra_ops,
+       List(Actioner_Local_Action)  local_actions,
+       String                 form_name
+  )=
+  actioner(conn, targ, asp, action_name(action), extra_ops, local_actions, form_name)
+.
+
+public define HTML_Off_Form
+/* Older call with String as action instead of WEB_Action_Name. 
+ * This function exists only for compatibility with older project.
+ * Please condiser to use above function instead
+ */
+  actioner
+  (
+       Actioner_Connection    conn, 
+       Actioner_Target        targ, 
+       Actioner_Aspect        asp, 
+       String                 action, 
+       List((String,String))  extra_ops
+  )=
+  actioner(conn,targ,asp,action_name(action),extra_ops,[])
+.
+
+public define HTML_Off_Form
+/* Older call with String as action instead of WEB_Action_Name. 
+ * This function exists only for compatibility with older project.
+ * Please condiser to use above function instead
+ */
+  actioner
+  (
+       Actioner_Connection    conn, 
+       Actioner_Target        targ, 
+       Actioner_Aspect        asp, 
+       String                 action, 
+       List((String,String))  extra_ops,
+       String                 form_name
+  )=
+  actioner(conn, targ, asp, action_name(action), extra_ops, [], form_name)
+.
+
+//public define HTML_Off_Form
+//  table
+//  (
+//    List(HTML_Row(HTML_Off_Form)) rows
+//  )=
+//  table([], empty, rows,empty)
+//.
+   
+//public define HTML_Off_Form
+//  table
+//  (
+//    List(Table_Option) options,    
+//    List(HTML_Row(HTML_Off_Form)) rows
+//  ) =
+//  table(options,empty,rows,empty)
+//.
+
+//public define HTML_Off_Form
+//  table
+//  (
+//    Table_Option option,    
+//    HTML_Row(HTML_Off_Form) row
+//  ) =
+//  table([option], empty, [row], empty)
+//.
+//  
+//public define HTML_Off_Form
+//  table
+//  (
+//    HTML_Header_Row(HTML_Off_Form)  h_row,    
+//    List(HTML_Row(HTML_Off_Form))   rows
+//  ) =
+//  table([],h_row,rows,empty)
+//.
+
+//public define HTML_Off_Form
+//  table
+//  (
+//    List(Table_Option)              options,    
+//    HTML_Header_Row(HTML_Off_Form)  h_row,    
+//    List(HTML_Row(HTML_Off_Form))   rows
+//  ) =
+//  table(options,h_row,rows,empty)
+//.
+
+//public define HTML_Off_Form
+//  table
+//  (
+//    Table_Option                    option,
+//    HTML_Header_Row(HTML_Off_Form)  h_row,
+//    List(HTML_Row(HTML_Off_Form))   rows
+//  ) =
+//  table([option], h_row, rows,empty)
+//.
+  
+   We add two  convenience functions for 'row'.  The reason why we add  two functions, one
+   for  'HTML_In_Form' and  one  for 'HTML_Off_Form',  is  that adding  a  schema with  an
+   arbitrary '$T' creates too many ambiguities. This is due to the fact that, if we do so,
+   the arguments of the function do not refer to any of the types defined here.
+   
+public define HTML_Row(HTML_In_Form)
+   row
+     (
+       HTML_In_Form content
+     ) =
+   row([],[cell([],content)]).
+   
+public define HTML_Row(HTML_Off_Form)
+   row
+     (
+       HTML_Off_Form content
+     ) =
+   row([],[cell([],content)]).
+   
+//public define HTML_Cell(HTML_Off_Form)
+//  cells_to_column_in_cell
+//  (
+//    List(HTML_Cell(HTML_Off_Form)) cells
+//  )=
+//  cell(
+//    table(
+//      map( (HTML_Cell(HTML_Off_Form) current_cell) |-> row(current_cell), cells)
+//      )).
+
+//public define HTML_Off_Form
+//  cells_to_line
+//  (
+//    List(HTML_Off_Form) cells
+//  )=
+//  table([row(
+//      map (((HTML_Off_Form) current_cell) |-> cell(current_cell), cells))])
+//      .
+      
+public define HTML_Off_Form   
+   private_download
+     (
+       String        abs_path, 
+       String        name, 
+       String        extra_ext
+     ) =
+   private_download(abs_path,name,extra_ext,failure). 
+   
+   
+public define HTML_Off_Form   
+  private_download
+  (
+    String        abs_path, 
+    String        name, 
+    String        extra_ext,
+    String        action_name,
+    List((String,String))   args
+  ) =
+  private_download(abs_path,name,extra_ext,success((action_name,args))). 
+
+.
+
+
+
+public define HTML_In_Form
+  hr 
+  =
+  hr([])
+.
+
+public define HTML_In_Form
+  button
+  (
+    List(HTML_In_Form)   elements
+  )=
+  button([], elements)
+.
+
+public define HTML_In_Form
+  button
+  (
+    List(CoreAttrs) attrs,
+    HTML_In_Form   element
+  )=
+  button(attrs, [element])
+.
+
+public define HTML_In_Form
+  button
+  (
+    HTML_In_Form   element
+  )=
+  button([], [element])
+.
+   - Cell a gap between two other cells : 
+   
+public define HTML_Cell(HTML_Off_Form)
+  width_gap
+  (
+    Int w
+  )=
+  cell([width(w)], empty).
+   
+public define HTML_Cell(HTML_In_Form)
+  width_gap
+  (
+    Int w
+  )=
+  cell([width(w)],empty)
+.
+   - Row a gap between two other rows : 
+   
+public define HTML_Row(HTML_Off_Form)
+  height_gap
+  (
+    Int h
+  )=
+  row([],[cell([height(h)],empty)]). 
+   
+public define HTML_Row(HTML_In_Form)
+  height_gap
+  (
+    Int h
+  )=
+  row([],[cell([height(h)],empty)])
+.
+   
+   
+   Notice that the two types have alternatives in common (same name, same arguments types,
+   up to  the value of the  parameter $T), which correspond  to elements which  may be put
+   anywhere in the page.
+   
+public define HTML_Partial_Content
+  partial_content
+  (
+    List(HTML_Head_Tag) tags,
+    List(HTML_Off_Form) content
+  )=
+  partial_content(tags, sequence(content)).
+  
+public define HTML_Partial_Content
+  partial_content
+  (
+    HTML_Off_Form content
+  )=
+  partial_content([], content).
+
+public define HTML_Partial_Content
+  partial_content
+  (
+    List(HTML_Off_Form) content
+  )=
+  partial_content([], sequence(content)).
+  
+public define HTML_Partial_Content
+  partial_content
+  (
+    List(HTML_Head_Tag)  tags,
+    HTML_Partial_Content p_content
+  )=
+  if p_content is partial_content(ptags, html) then
+  partial_content(tags + ptags, html).
+
+define HTML_Partial_Content
+  list_to_pcontent
+  (
+    List(HTML_Partial_Content) l_p_content,
+    List(HTML_Head_Tag)        so_far_tags,
+    List(HTML_Off_Form)        so_far_html
+  )=
+  if l_p_content is
+  {
+    []      then  partial_content(so_far_tags, sequence(reverse(so_far_html))),
+    [h . t] then 
+      //extract resurgent type and symbols of h
+      if h is partial_content(tags, html) then
+      list_to_pcontent(t, so_far_tags + tags, [html . so_far_html])
+  }.
+  
+public define HTML_Partial_Content
+  partial_content
+  (
+    List(HTML_Partial_Content) l_p_content
+  )=
+  list_to_pcontent(l_p_content, [], []).
+  
+public define HTML_Partial_Content
+  partial_empty
+  =
+  partial_content(empty)
+.
+
+define String
+   format
+     (
+       List(Text_Option) l
+     ).    
+   
+   
+   
+   
+define Printable_tree
+   format_css_styles
+     (
+       List(CSS_Style)   l
+     ) =
+   if l is 
+     {
+       [ ] then [ ], 
+       [h . t] then 
+         [ if h is 
+             {
+               text_options(tos) then 
+                 ["   body, span, p { ", format(tos), " }\n" ]
+             }
+         . format_css_styles(t)]
+     }.
+   
+   
+   
+
+   
+   Meta tags are put in the 'head' of the HTML page. 
+
+public define HTML_Meta
+  refresh
+  (
+    Actioner_Connection connection,
+    Actioner_Target     target,
+    String              action, 
+    Int                 delay
+  )=
+  refresh(connection, target, action_name(action), delay)
+.
+  
+
+   
+    
+   
+   
+   
+   
+public define HTTP_Answer
+  html_page
+  (
+    String               title, 
+    List(HTML_Head_Tag)  head_tags,
+    HTML_Body            body
+  )=
+  html_page(http_ok, title, head_tags,[],[],[],[],body).
+   
+public define HTTP_Answer
+  html_page
+  (
+    String              title, 
+    List(HTML_Head_Tag) head_tags,
+    List(CSS_Style)     styles,
+    HTML_Body           body
+  )=
+  html_page(http_ok, title, head_tags, styles, [], [], [], body).
+
+public define HTTP_Answer   
+  web_controller_error_page
+  (
+    String  name
+  )
+  =
+  html_page
+  (
+    name+" Controller error",  // title of web site
+    [],                       // list of 'META' tags (empty for this site)
+    body                      // body of page
+    ( 
+      // list of body options
+      [
+        //background_color(rgb(255,200,200))
+        // add more body options here
+      ],
+      
+      // content of page
+      text(name+" Controller error")
+    )
+  )
+.
+
+
+   'HTTP_Answer' represents the final product of the construction of a web page. 
+   
+   
+   
+   
+      *** (3.2) ``in form'' versus ``off form''. 
+   
+   There is a variety of HTML  elements: texts, buttons, links, forms, inputs, etc... Some
+   of them may have  a content, which is yet another HTML  element (or several). Hence, it
+   is meaningful to say that an element  is 'within' another one. Now, putting any element
+   within any  other one may be  meaningless.  For example,  an input element must  be put
+   within a form (otherwise, it is useless), and a from within another form has no precise
+   meaning (and is forbidden by the HTML specification).
+   
+   Actually, the  main criterium  is ``within  a form or  not within  a form''.   So, HTML
+   elements in  a given page  are separated  into two categories:  those who are  within a
+   form,  and the  others.  Nevertheless,  there  are elements  which may  belong to  both
+   categories, like images and texts. We want to make use of the strong typing mecanism of
+   Anubis in order to forbid non meaningful placement of elements.
+   
+   The  type  'HTML_In_Form'  defines  elements   to  be  put  within  forms.   Similarly,
+   'HTML_Off_Form' defines elements not to be  put within forms. Both types are recursive,
+   and 'HTML_Off_Form' refers  to 'HTML_In_Form' (via the 'form'  alternative, of course),
+   but the two types  are not cross recursive. This is the reason  why it is impossible to
+   put a  form within a form.  In order to construct  a web page, you  essentially have to
+   produce a datum of type 'HTML_Off_Form' (maybe containing data of type 'HTML_In_Form').
+   
+   In practice, you  don't have to worry  so much about these two  types, because elements
+   which may  be put anywhere are  constructed for both  types by functions with  the same
+   name and the same arguments. Hence, for  both types, you just write the same thing. You
+   are warned by  the compiler only when  you try to put an  element at a place  it is not
+   allowed.
+
+   
+   
+      *** (3.3) Defining your own style. 
+   
+   We provide generic tools for constructing  HTML elements.  However, your web site needs
+   to have a ``style''.
+   
+   To that  end, you need to  write down a set  of ``styling functions'',  using the tools
+   defined here. These  styling functions allow the introduction of  your colors and other
+   visual characteristics into the constructed elements once and for all. For example, you
+   may want all your texts to be rendered  in the ``Helvetica'' font, in size 14 and using
+   some 'text_color'. You may write something like this:
+   
+   define RGB    text_color = rgb(10,40,40). 
+   
+   define HTML_Off_Form
+     text
+       (
+         String the_text
+       ) =
+     text([font("helvetica"),size(14),color(text_color)],
+          the_text).
+   
+   (and the same one for type 'HTML_In_Form') so that in order to put a piece of text in a
+   page, you just write:
+   
+                 text("... some text ...")
+   
+   and you don't have  to provide the font, size and color for each  text.  If you want to
+   have  several  styles  of text  presentation,  you  just  write  several sets  of  such
+   convenience functions. This also suggests a  trick.  You may want for example different
+   colors for 'in form' texts and 'off form' texts.  This may be achieved automatically by
+   defining  two functions  as  above, with  the same  name  and same  argument type,  but
+   returning either a 'HTML_In_Form' or a 'HTML_Off_Form'.
+   
+   If this  preliminary work is  well done, you  will not waste  your time later  when you
+   concentrate on the actual informational content of your pages.
+   
+   This general  principle should be applied  to all sorts  of elements. This is  the best
+   thing to  do in  order to  separate the functions  defining the  visual style  from the
+   functions defining the informational content itself, so that changing the style without
+   changing the  content becomes easy. This  is also the best  way for having  a clean and
+   easily readable source for your web site.
+   
+   
+   
+   
+   
+      *** (3.4) Actioners and forms. 
+  
+   We have gathered several  notions from HTML into that of an  'actioner'. An actioner is
+   an HTML element which opens a connection to our server when clicked upon. Actioners may
+   have different  visual aspects.   They may  look like hypertext  links or  like buttons
+   (rollovers),  or even  like  selectors (with  immediate  action).  In  any case,  their
+   behavior is  the same: they  open a connection  to our server, and  send a set  of 'web
+   arguments', i.e.  pairs  'name=value'.  Among these web arguments,  one of them denotes
+   the action to  be performed, and the  others should be considered as  operands for this
+   action.  Actually, the precise behavior of the actioner has several variants.
+    
+   The connection with  the server may be  secured (HTTPS) or non secured  (HTTP). See the
+   type 'Actioner_Connection' above.
+   
+   You must also choose where the answer must be rendered.  This may be in the same window
+   or in another window  (or frame).  If it is in another window,  the name of that window
+   must be given. If  the window does not exist, the browser  will create it.  Optionally,
+   you may give the  dimensions of the new window and other  characteristics. See the type
+   'Actioner_Target' above.
+   
+   The actioner  also has a visual aspect.  See the type 'Actioner_Aspect'  above.  In the
+   case  of a rollover  button, you  provide the  URLs of  two images  (of the  same size)
+   representing the button:
+   
+      url_off:    to be used when the mouse is not over the button,
+      url_on:     to be used when the mouse is over the button. 
+
+   You  can also  create rollover  buttons without  creating images.  Just use  the second
+   alternative named 'button'. The server creates the images automatically. 
+   
+   The purpose of forms is just to  give operands to actioners.  If the actioner is placed
+   within a form,  all the input elements  which are within this form  provide operands to
+   the actioner (except sometimes  when they are not set by the client).  If it is not put
+   within a form, the actioner gets no operand, except if the name of a form is explicitly
+   given,  in   which  case  the  actioner  gets   all  the  inputs  from   that  form  as
+   operands. Furthermore, you may want to give extra operands to the actioner. This may be
+   useful for separating  families of actioners with the same  action name. Extra operands
+   'name=value' must be given in the form of pairs '(name,value)'.
+            
+   Notice that the name of a form may be  used by an actioner which is off the form, so as
+   to get the operands provided by this form. Also notice that several actioners may refer
+   to  the same  form,  being either  in  the form,  or  referring to  the  form from  the
+   outside. These actioners  simply get the same set of operands,  even if they correspond
+   to distinct actions.
+
+   Input elements may be put only within a form. 
+
+   
+   
+      *** (3.5) Local popup. 
+   
+   This element looks like a link or  a rollover button. When this button is clicked upon,
+   a 'popup window' appears.  Actually, this popup window is just a layer in the same HTML
+   page,  which becomes suddenly  visible.  It  is realized  with a  '<div>' HTML  tag. In
+   particular, clicking  on the button does  not open any  connection.  This is why  it is
+   called 'local'. The arguments have the following roles:
+   
+      Actioner_Aspect         aspect of the button (same semantics as for actioners)
+      content                 content of the popup window
+      x, y,                   position of the popup window on the HTML page (not relative 
+                                to the button but to the page itself)
+      title                   title of the popup window
+      color                   color of the title bar and close button in the popup window.
+                                A lightened version of this color is used for the background
+                                of the popup window.
+      width                   width of the title bar
+   
+   
+   
+   
+   
+   --- That's all for the public part ! --------------------------------------------------
+
+   
+   
+   
+   
+   ----------------------------------- Table of Contents ---------------------------------
+
+   *** [1] States. 
+      *** [1.1] Saving and retrieving states. 
+      *** [1.2] Deleting out of date states.
+
+   *** [2] Sessions. 
+      *** [2.1] Saving and retrieving sessions. 
+      *** [2.2] Deleting out of date sessions.
+      
+   *** [3] Tools. 
+      *** [3.1] Directories. 
+      *** [3.2] Secondary documents. 
+   
+   *** [4] Managing web arguments. 
+      *** [3.1] Prefixing web arguments names.
+      *** [3.2] Separating web arguments. 
+      *** [3.3] Applying an action. 
+   
+   *** [5] Web site descriptions and the 'awp handlers'. 
+      *** [4.1] The type 'Web_Site'.
+      *** [4.2] Making a web site description. 
+      *** [4.3] Starting the servers. 
+   
+   *** [6] HTML Formating. 
+      *** [5.1] The type 'HTML_Any($T)'. 
+      *** [5.2] Formating a color. 
+      *** [5.3] Creating buttons. 
+      *** [5.4] Formating an actioner. 
+      *** [5.5] Formating a private download link. 
+      *** [5.6] Formating rows and cells in a table. 
+      *** [5.7] Formating elements which may be put anywhere. 
+      *** [5.8] Formating 'in form' elements. 
+      *** [5.9] Formating 'off form' elements. 
+      *** [5.10] Formating meta-tags. 
+   
+   ---------------------------------------------------------------------------------------   
+public type CommonInfo:...
+   
+define Printable_tree
+   format
+     (
+       CommonInfo               cinfo, 
+       Var(Int)                 ic_v,             // 'idnum' counter variable
+       HTML_Off_Form            element,
+       Bool                     is_https,
+       Var(Int)                 action_count,
+       Var(List(HTML_Head_Tag)) head_tags
+     ).  
+   
+public define String
+   doctype_w3c_header
+     =
+   "<!DOCTYPE html>\n". //html 5
+   
+   
+   *** [1] States. 
+   
+   We have  to define functions for  saving a state,  retrieving a state, deleting  out of
+   date  states. We  need one  such function  per web  site. The  types of  the  first two
+   functions depend on  the parameter $State. This is  not the case of the  third one. The
+   fact that the  instance of $State is variable  from one web sites to  the other implies
+   rather subtle manipulations using full functionality.
+   
+   
+      *** [1.1] Saving and retrieving states. 
+   
+   Each state is saved  into a file on the server's disk  (in the directory represented by
+   the symbol 'state_directory',  which is 'my_anubis/web_sites/common_name/states').  The
+   state is saved together with a time stamp whose value is obtained by adding the current
+   time to  the given timeout for  states. The state  receives a name obtained  by hashing
+   (using  sha1)  the  content of  the  file  itself,  and  then  encoding the  hash  with
+   'web_arg_encode'.  The  name  of  the  file  into  which the  state  is  saved  is  the
+   concatenation of "s" and the name of the state.
+      
+read web_arg_encode.anubis   
+   
+   The tool below  constructs the function which is  able to save a state  on the server's
+   disk.
+
+
+define ($State s) -> String    // the function constructed returns the name of the state
+  make_save_state_function
+  (
+    Int                       timeout,
+    String                    state_directory,
+    (LogLevel, String) -> One logger
+  )=
+  ($State s) |->
+         with    time_stamp = now+timeout, 
+                to_be_saved = (time_stamp,s), 
+                 state_name = to_ascii(sha1(s)), 
+           //println("make_save_state_function " + state_directory+"/s"+state_name);
+           if save(to_be_saved,state_directory+"/s"+state_name) is ok then
+            state_name
+           else 
+            logger(logError, "Cannot create state file in '"+state_directory+"'.\n");
+            ""
+.
+   
+   
+   When  a request  arrives, we  need to  retrieve the  previous state  from  the server's
+   disk. We receive the name of that state. If the state is out of date, the state file is
+   kept 3 days, and then deleted. 
+   
+type PreviousState($State):
+   not_found,                    // cannot retrieve the previous state
+   out_of_date($State),          // the previous state is out of date
+   still_valid($State).          // the previous state is still valid
+   
+define (String state_name) -> PreviousState($State)
+   make_retrieve_state_function
+     (
+       String   state_directory
+     ) =
+   (String state_name) |->
+   with file_path = state_directory+"/s"+state_name,
+   if (RetrieveResult((Int,$State)))retrieve(file_path) is ok(d)
+   then (
+        if d is (time_stamp,s) then 
+        if time_stamp < now
+        then (
+             forget(remove(file_path));
+             out_of_date(s)
+             )
+        else still_valid(s)        // state has been successfully retrieved
+        )
+   else 
+    forget(remove(file_path));
+    not_found.
+   
+   
+   
+      *** [1.2] Deleting out of date states.
+   
+   We also need to delete states which are  out of date and which will never be deleted by
+   the above method. This may be performed  by a machine doing this periodically (say once
+   per states life time period).
+   
+define (List(String) file_names) -> One
+  make_delete_out_of_date_states_function
+  (
+    Maybe($State)    dummy, 
+    String           state_directory
+  )=
+  (List(String) file_names) |-df->
+  if file_names is 
+  {
+    [ ]      then unique, 
+    [h . t]  then
+      //we can't delete the "." and ".." file. So go to next file in the list 
+      if h = "." | h = ".." then 
+        df(t)
+      else
+        with file_path = state_directory+"/"+h, 
+        if (RetrieveResult((Int,$State)))retrieve(file_path) is ok(d)
+        then (
+              if d is (time_stamp,data) then
+              if time_stamp < now
+              then (forget(remove(file_path)); df(t))
+              else df(t)
+            )
+        else (forget(remove(file_path)); df(t))
+      }
+.
+   
+   
+   The 'labelled arrow' |-df-> is documented in 'documentation/en/anubis_doc.txt'.
+
+   Note: The  argument 'dummy'  (of type  Maybe($State)) is not  used in  the body  of the
+   function (hence  its name). Nevertheless, it  is required. Indeed,  the Anubis compiler
+   does not accept a  parameter in the body of a function  (here the parameter is required
+   by  the use  of 'retrieve')  if  this parameter  does not  appear  in the  type of  the
+   function. This  is because this  would create ambiguities  that no explicit  typing may
+   ever resolve. If you  put a double slash in front of  the declaration of 'dummy' above,
+   and if you compile this file, you will get a message like this one:
+     
+    Error in 'making_a_web_site.anubis', line 1300, column 7:
+       A definition may not contain parameters which are not present
+       in the declaration part (hidden parameters):
+          $State 
+   
+   The type  of the  function constructed by  'make_delete_out_of_date_states_function' is
+   independant of  the parameter $State. This  is important because this  allows to create
+   the list of  such functions for all web  sites. From this list, it is  possible to call
+   the  functions one  after  the  other, so  deleting  out of  date  states  for all  web
+   sites. Actually, the next function receives a list of pairs (state_directory,function),
+   one for each web site.
+   
+define One
+   delete_out_of_date_states          // for all web sites
+     (
+       List((String, List(String) -> One))   directories_and_functions     
+     ) =
+   if directories_and_functions is 
+     {
+       [ ] then unique, 
+       [h . t] then if h is (state_directory,function) then
+         function(directory_list(state_directory,"*")); 
+         delete_out_of_date_states(t)
+     }. 
+      
+
+   The  above function  must be  called periodically  in a  separate virtual  machine. The
+   period we have choosen  is (rather logically) the life time of  states itself. This may
+   be achieved by an 'infinite' loop, using a 'sleep(timeout)'. However, the loop must not
+   be really  infinite, because the  servers may be  shutdown.  Hence, our loop  must test
+   (rather frequently; say  every second) if the  servers are down. If they  are, the loop
+   must be exited.
+   
+define One
+   delete_states_loop
+     (
+       List((String,List(String) -> One))    directories_and_functions,
+       Int                                 timeout, 
+       Int                                 next_time, 
+       Server                                http_server,
+       Server                                https_server,
+       (One) -> Bool                        shutdown_required
+     ) =
+   if shutdown_required(unique)
+     then (shutdown(http_server); shutdown(https_server))
+     else unique; 
+   if (is_down(http_server) & is_down(https_server))
+   then unique
+   else if now > next_time
+        then
+          (
+            delete_out_of_date_states(directories_and_functions);
+            delete_states_loop(directories_and_functions,
+                               timeout, 
+                               now+timeout,
+                               http_server,
+                               https_server,
+                               shutdown_required)
+          )
+        else
+          (
+            sleep(1000);    // sleep just one second and try again
+            delete_states_loop(directories_and_functions,
+                               timeout, 
+                               next_time,
+                               http_server,
+                               https_server,
+                               shutdown_required)
+          ). 
+   
+   The above loop must be run in a  separate virtual machine. This will be done just after
+   the two servers are started.
+     
+   
+
+   
+   
+   *** [2] Tools. 
+   
+      *** [2.1] Directories. 
+      *** [2.2] Secondary documents. 
+   
+   Some HTML elements  (like '<object>', '<frame>') cannot receive  their content directly
+   from the current  document, but only through  an URL.  For this reason,  we implement a
+   mecanism for creating secondary  documents on the fly. To that end  we use the 'private
+   download' mecanism. 
+   
+   A secondary document is formated by the same functions as the main document itself. The
+   next function  takes an 'off form'  element, creates the file  containing the secondary
+   document in HTML format, and returns the URL at which the document will be available.
+   
+define String
+   create_secondary_document
+     (
+       String                  sd,            // site directory
+       String                  as,            // authorization_secret
+       $T -> Printable_tree    format_element, 
+       $T                      content,
+       HTML_Size               width
+     ) =
+   with  private_download_directory = sd+"/private_download", 
+                               hash = web_arg_encode(sha1(content)), 
+                       file_content = (Printable_tree)
+         [doctype_w3c_header, 
+          "<html><body><table ",
+                  if width is 
+                    {
+                      absolute(w)      then ["width=\"",w-25],
+                      percentage(w)    then ["width=\"95%\""]
+                    },"\"><tbody><tr><td align=right>",
+             format_element(content),
+          "</td></tr></tbody></table></body></html>"
+         ], 
+                          file_name = "sd"+hash+".html", 
+                          file_path = private_download_directory+"/"+file_name, 
+      if write_to_file(file_path,file_content) is 
+        {
+          cannot_open_file then print("Cannot open file '"+file_path+"'.\n"); "", 
+          write_error(n)   then print("Error writing file '"+file_path+"'.\n"); "", 
+          ok               then file_name+"?zauth="+
+                             make_authorization(sd,as,private_download_directory+"/"+file_name)
+        }. 
+     
+   
+   
+   
+      *** [2.3] Generating unique ids. 
+   
+   In order to uniquely name object for JavaScript we generate unique ids from a counter. 
+   
+define Int
+   new_idnum
+     (
+       Var(Int)  ic_v      // 'idnum' counter variable
+     ) =
+   protect
+   with result = *ic_v+1, 
+   ic_v <- result; 
+   result. 
+   
+
+   
+   
+   
+   
+   *** [3] Managing web arguments. 
+   
+   Web  arguments are  those pairs  'name=value' which  are transmitted  through  the HTTP
+   protocol. We need precise naming conventions for these web arguments. 
+   
+   
+   
+      *** [3.2] Separating web arguments. 
+   
+   When a new request arrives, we need to separate the web arguments, that is to say:
+   
+     - find the value of "s", and recover the corresponding state, 
+     - find the value of "a", which is the name of the action to be performed, 
+     - get the list of all the remaining web arguments (operands of the action). 
+
+   We must also  determine if the previous state  may be recovered. If it is  not the case
+   (either because  the previous state name  is invalid, or  the previous state is  out of
+   date), we must check if there is an action name. Indeed, the presence of an action name
+   indicates that the user has clicked on one  of our buttons or links. If on the contrary
+   there is no action  name the user has just entered our address  in his browser. In this
+   last case, we must send the first page of our site (maybe a 'login' page), but if there
+   is an action, we  must send a page just saying that the  session ticket has expired. If
+   the previous state  is recovered and there is  no action, the new state is  the same as
+   the previous state.
+   
+   The result of the separation of the web arguments is of type:
+   
+type Separated_Web_Args($State):   
+   swa(PreviousState($State)     previous_state,
+       Maybe(String)             action_name,
+       List(Web_arg)             operands). 
+   
+   
+   
+   The next function constructs the function which separates the web arguments. 
+   
+define (List(Web_arg) lwa, HTTP_Info info) -> Separated_Web_Args($State)
+   make_separate_web_args_function
+     (
+       String                             state_directory, 
+       String -> PreviousState($State)    retrieve_state,
+       String                             website_name
+     ) =
+   (List(Web_arg) lwa, HTTP_Info info) |-swaf->
+  if lwa is 
+  {
+    [ ] then 
+         //
+         // no web arg found => no previous state and no action
+         //
+         //println("find_cookie(\"state_"+website_name+"\", ...");
+         if find_cookie("state_"+website_name, server_get_cookies(http_headers(info))) is 
+         {
+            failure         then 
+              //println("find_cookie(\"state_"+website_name+"\" failure");
+              swa(not_found,failure,[]),
+              
+            success(cookie) then
+              //println("find_cookie(\"state_"+website_name+"\" success");
+              swa(retrieve_state(value(cookie)),failure,[])
+         },
+          
+         //swa(failure,failure,[]), 
+   
+    [wa_1 . wa_others] then 
+         //
+         // at least one web arg =>
+         //    separate other web args, and insert the first one as needed
+         //
+      if (Separated_Web_Args($State))swaf(wa_others, info) is 
+      {
+        swa(ps1, // possible previous state
+            an1, // maybe an action name
+            op1) // operands so far
+        then 
+          if wa_1 is
+          {
+            web_arg(n, value)    then 
+                      with name = if substr(n,0,4) = "amp;" then substr(n, 4, length(n) - 4) else n, 
+                       if name = "a" then 
+                         swa(ps1,success(value),op1) 
+                       else if name = "aws_action" | name = "aws_a" then 
+                         swa(ps1,success(value),op1) 
+                       //else if name = "t" then
+                       //  swa(ps1,an1,[web_arg("target",value) . op1]) 
+                       else
+                        swa(ps1,an1,[web_arg(name,value) . op1]), 
+         
+            upload(n,v,t)   then 
+                     swa(ps1,an1,[wa_1 . op1])
+          }
+      }
+  }.
+
+      *** [3.3] Applying an action. 
+   
+   When the web arguments are separated (and their names cleaned up from prefixes), we may
+   apply the action to the operands and the  current state. We search for the action to be
+   applied in the  list of actions.  If no action  is found, the new state  is the same as
+   the previous  state. Also, we  deny the  application of an  HTTP action if  the request
+   arrives through the HTTPS channel and conversely.
+   
+define ($State          previous,
+        String          action_name, 
+        HTTP_Info       http_info, 
+        List(Web_arg)   lwa,
+        Bool            is_https) -> $State
+  make_apply_action_function
+  (
+    List(Web_Action($State))  actions_list,
+    (LogLevel, String) -> One logger                //logger    
+  )= 
+  with f = 
+     ($State                    previous, 
+      String                    action_name, 
+      HTTP_Info                 http_info, 
+      List(Web_arg)             lwa,
+      Bool                      is_https,
+      List(Web_Action($State))  actions) |-f-> 
+        //println("Looking for action ["+action_name+"]");
+        if actions is 
+          {
+            [ ]             then 
+              logger(logError, "action '"+action_name+"' not found.\n"); previous,
+            [ac1 . others]  then if ac1 is 
+              {
+                //check for http action
+                http_action(an, allow, do_it) then 
+                
+                  //Action name found
+                  if an = action_name then
+                    if is_https then
+                      (logger(logError, "HTTP action '"+an+"' called through HTTPS (denied).\n"); previous)
+                    else 
+                      if allow(previous) then
+                        do_it(http_info,lwa,previous)
+                      else 
+                        previous
+                  else 
+                    f(previous,action_name,http_info,lwa,is_https,others),
+                //check https action
+                https_action(an,allow,do_it) then
+                  if an = action_name 
+                  then if is_https
+                       then if allow(previous)
+                            then do_it(http_info,lwa,previous)
+                            else previous
+                       else (logger(logError, "HTTPS action '"+an+"' called through HTTP (denied).\n"); 
+                             previous)
+                  else f(previous,action_name,http_info,lwa,is_https,others),
+   
+                http_https_action(an,allow,do_it) then
+                  if an = action_name then 
+                    println("Action ["+action_name+"] found");
+                    if allow(previous)
+                            then do_it(http_info,lwa,previous)
+                            else
+                              println("user not allowed to execute that Action ["+action_name+"]");
+                              previous
+                  else f(previous,action_name,http_info,lwa,is_https,others),
+   
+              }
+          },
+   ($State                      previous, 
+    String                      action_name, 
+    HTTP_Info                   http_info, 
+    List(Web_arg)               lwa,
+    Bool                        is_https) |->
+      f(previous, action_name, http_info, lwa, is_https, actions_list). 
+   
+   *** [4] Web site descriptions and the 'awp handlers'. 
+   
+      *** [4.1] The type 'Web_Site'.
+   
+   The  type 'Web_Site_Description' is  defined in  'web/multihost_http_server.anubis'. We
+   need another one, because, we have some extra informations to record for each site.
+   
+public type Web_Site:
+   web_site((Word32,Word32) -> Web_Site_Description     description,
+            List(String) -> One                       delete_out_of_date). 
+   
+   
+   
+   
+      *** [4.2] Making a web site description. 
+   
+   Below  is the  function which  creates a  web site  description. It  first  creates (if
+   needed) the directories for the site,  then constructs the tool functions for the site,
+   and the site handler. Finally, it constructs the web site description. 
+   
+   We gather common (constant) informations in the following type:
+   
+public type CommonInfo:
+   info(String      common_name, 
+        Word32       http_port, 
+        Word32       https_port, 
+        String      site_directory, 
+        String      authorization_secret
+        ).
+   
+   We need a forward declaration. 
+   
+public define AWP_Handler_Answer 
+  format
+  (
+    CommonInfo         cinfo, 
+    List(HTTP_header)  headers,
+    HTTP_Answer        page,
+    Bool               is_https,
+    String             charset
+  ).
+   
+   
+define Printable_tree
+   format
+     (
+       HTML_Size   s
+     ) = 
+   if s is 
+     {
+       absolute(x)     then ["\"",x,"\""],
+       percentage(x)   then ["\"",x,"%\""]
+     }.
+     
+define List(HTTP_header)
+  make_state_cookie_headers
+  (
+    String website_name,
+    String state_name
+  )
+  =
+    //println("Set-Cookie state_"+website_name+"="+state_name);
+    [
+      http_header("Set-Cookie", "state_"+website_name+"="+state_name)
+    ]
+  .
+
+
+public define Web_Site
+  make_web_site_description
+  (
+    String                      website_name,   // site_UID
+    List(String)                common_names,   // for example: ["www.our-business.com"]
+    String                      site_directory,     
+    String                      state_directory,     
+    One -> One                  init, 
+    (HTTP_Info, 
+    List(Web_arg),
+    Bool is_https) -> $State   initial_state,
+    ($State expired,
+    Maybe(String),
+    HTTP_Info,
+    List(Web_arg),
+    Bool is_https) -> $State    ticket_expired_state, 
+    (Maybe(String),
+    HTTP_Info,
+    List(Web_arg),
+    Bool is_https) -> $State   ticket_lost_state, 
+    List(Web_Action($State))    actions, 
+    $State -> HTTP_Answer       compute_page,
+    $State -> List(HTTP_header) additional_headers,
+    List(HTTP_header)           constant_additional_headers, 
+    Int                         timeout,
+    Redirections                redirections, 
+    String                      charset, 
+    List(String)                journal_extensions,
+    List(String)                journal_headers,
+    (LogLevel, String) -> One   logger,                 //logger
+    String                      secret, 
+    List(MIME)                  known_mime_types,
+    (String action_name,
+    List(Web_arg) args) -> One before_send_file
+  )= 
+  init(unique);
+
+      
+      //
+      // make required directories (if needed)
+      //
+      with //web_sites_directory = (String) make_directory(my_anubis_directory+"/web_sites"),  
+                base_directory = (String) make_directory(site_directory),
+              // state_directory = make_directory(site_directory+"/states"), 
+          forget((String)make_directory(site_directory+"/public")); 
+      //
+      // construct tool functions
+      // TODO 'make_separate_web_args_function' must retrieve state_cookies before parsing web_args if using_state_cookies is true
+   with save_state = make_save_state_function(timeout, state_directory, logger),    
+    retrieve_state = make_retrieve_state_function(state_directory), 
+ separate_web_args = make_separate_web_args_function(state_directory, retrieve_state, website_name), 
+      apply_action = make_apply_action_function(actions, logger),
+      //
+      // construct the site handler
+      //
+      site_handler = (Word32 http_port, Word32 https_port) |-> 
+                     ((String         host_name, 
+                       HTTP_Info      http_info, 
+                       List(Web_arg)  lwa,
+                       Bool           is_https) |-> 
+      //println(dump_web_arg_values(lwa));        
+      since separate_web_args(lwa, http_info) is swa(mb_previous_state, mb_action_name, operands), 
+      with new_state = if mb_previous_state is
+      {
+          not_found               then 
+            //println("previous state not found");
+            if mb_action_name is 
+              {
+                failure           then initial_state(http_info, operands, is_https), 
+                success(_)        then 
+                  ticket_lost_state(mb_action_name, http_info,operands,is_https)
+              }, 
+
+          out_of_date(state)      then 
+            //println("previous out_of_date");
+            ticket_expired_state(state, mb_action_name, http_info,operands,is_https), 
+
+          still_valid(state)      then 
+            //println("previous still_valid");
+            if mb_action_name is 
+              {
+                failure              then state,
+                success(action_name) then 
+                   apply_action(state,action_name,http_info,operands,is_https)   
+              }
+        },
+              //if state_and_headers is (session_ticket, mb_new_state, headers) then
+                with state_name = save_state(new_state),
+                //println("Cookie new STATE NAME "+state_name);
+                with cookie_headers = if mb_action_name is 
+                        {
+                          failure              then
+                            make_state_cookie_headers(website_name, state_name),
+                          success(action_name) then 
+                            if action_name = "none" then
+                              []
+                            else if substr(action_name, 0, 5)="ajax_" then
+                              []
+                            else
+                              make_state_cookie_headers(website_name, state_name)
+                        },
+                
+                format(info(host_name, http_port, https_port, site_directory, secret),
+                       additional_headers(new_state) + cookie_headers,
+                       compute_page(new_state), 
+                       is_https,
+                       charset)
+          ),
+       //
+       // make the delete_out_of_date function
+       //
+       delete_out_of_date = 
+         make_delete_out_of_date_states_function((Maybe($State))failure,
+                                                 site_directory+"/states"), 
+       //
+       // construct the web site description
+       //
+    web_site((Word32 http_port, Word32 https_port) |-> 
+             web_site_description(common_names,
+                                  site_directory,
+                                  redirections,
+                                  charset, 
+                                  journal_extensions, 
+                                  journal_headers,
+                                  logger,
+                                  secret,
+                                  known_mime_types,
+                                  site_handler(http_port, https_port),
+                                  constant_additional_headers,
+                                  (HTTP_Info http_info, List(Web_arg) lwa) |-> if separate_web_args(lwa, http_info ) is 
+                                     swa(mb_previous_state,mb_action_name,operands) then 
+                                       if mb_action_name is 
+                                         {
+                                           failure     then unique
+                                           success(an) then before_send_file(an,operands)
+                                         }
+                                  //using_state_cookies
+                                 ),
+             delete_out_of_date). 
+
+ public type WEB_Controller:
+  web_controller(
+    String            name,     //controller name
+    (HTTP_Info                    http_info, 
+     List(Web_arg)                lwa,
+     Bool                         is_https
+    ) -> HTTP_Answer  view      //view renderer
+  )
+
+
+
+
+public define JsonValue to_html_ajax_content(Printable_tree        content_HTML, String additional_script).
+public define JsonValue to_html_ajax_content(HTML_Partial_Content  content_HTML, CommonInfo cinfo, String additional_script).
+  
+            
+             
+define String
+  get_site_uid
+  (
+    String site_path,
+    (LogLevel, String) -> One   logger                 //logger
+  )=
+  with file_name = site_path+"/site_UID",
+    if read_from_file(file_name)  is
+    {
+      cannot_find_file then
+        logger(logInfo,"site UID doesn't exists. Generating one now");
+        with uid = generate_random_string(9),
+        if write_to_file(file_name, to_byte_array(uid)) is
+        {
+          cannot_open_file  then logger(logError, "Can't create site UID here "+file_name);"",
+          write_error(_)    then logger(logError, "Can't write site UID here "+file_name);"",
+          ok                then uid
+        }
+      read_error(_)   then  
+        logger(logError, "cannot read site UID from "+file_name);""
+      ok(ba)          then  to_string(ba)
+   }
+  .
+  
+// Compatibility function for older websites
+ public define Web_Site
+  make_web_site_description
+  (
+       List(String)                common_names,   // for example: ["www.our-business.com"]
+       String                      site_directory,     
+       String                      state_directory,     
+       One -> One         init, 
+       (HTTP_Info, 
+        List(Web_arg),
+        Bool is_https) -> $State   initial_state,
+       ($State expired,
+        Maybe(String),
+        HTTP_Info,
+        List(Web_arg),
+        Bool is_https) -> $State    ticket_expired_state, 
+       (Maybe(String),
+        HTTP_Info,
+        List(Web_arg),
+        Bool is_https) -> $State   ticket_lost_state, 
+       List(Web_Action($State))    actions, 
+       $State -> HTTP_Answer         compute_page,
+       $State -> List(HTTP_header) additional_headers,
+       List(HTTP_header)            constant_additional_headers,
+       Int                         timeout,
+       Redirections                redirections, 
+       String                      charset, 
+       List(String)                journal_extensions,
+       List(String)                journal_headers,
+    (LogLevel, String) -> One                          logger,                 //logger
+       String                      secret, 
+       List(MIME)                  known_mime_types,
+       (String action_name,
+        List(Web_arg) args) -> One before_send_file
+       //Bool using_state_cookies
+  )
+  =
+    //generate an unique ID if doesn't exist in root of site_directory
+    with site_UID = get_site_uid(site_directory, logger),
+    make_web_site_description(site_UID, common_names, site_directory, state_directory, init, initial_state, ticket_expired_state, ticket_lost_state, actions, compute_page, additional_headers, constant_additional_headers, timeout, redirections, charset, journal_extensions, journal_headers, logger, secret, known_mime_types, before_send_file)
+.
+      
+   
+   
+      *** [4.3] Starting the servers. 
+   
+public define Start_Web_Sites_Result
+   start_web_sites
+     (
+       Word32                        ip_address,    // the IP address shared by the web sites
+       Word32                        http_port,     // usually: 80
+       Word32                        https_port,    // usually: 443
+       String                       ssl_certificate_common_name, 
+       List(Web_Site)               web_sites,     // web sites to be started
+       (One) -> Bool                shutdown_required
+     ) =
+   with get_description = (Web_Site ws) |-> description(ws)(http_port,https_port), 
+   with http_server_r  = 
+     start_http_server(ip_address,http_port, 
+                       map(get_description,web_sites),
+                       //load_denial_of_service_info,
+                       shutdown_required),
+   with https_server_r = 
+     start_https_server(ip_address,https_port,
+                        ssl_certificate_common_name,
+                        map(get_description,web_sites),
+                        shutdown_required), 
+   if http_server_r is ok(http_server)
+   then
+     (
+     if https_server_r is ok(https_server)
+     then 
+       (
+         start_http_servers_tasks(map(get_description,web_sites),
+                                  [http_server,https_server],
+                                  600);  // period of 10 minutes
+         delegate
+         delete_states_loop(
+                            map((Web_Site ws) |-> 
+                                  (site_directory(description(ws)(http_port,https_port))+
+                                     "/states",delete_out_of_date(ws)),
+                                web_sites),
+                            3600*24*3,   // keep out of date states 3 days
+                            now,
+                            http_server,
+                            https_server,
+                            shutdown_required),
+         ok(http_server,https_server)
+       )
+     else cannot_bind_to_port(https_port)
+     )
+   else
+     (
+     if https_server_r is ok(https_server)
+     then cannot_bind_to_port(http_port) 
+     else cannot_bind_to_port(http_port,https_port)
+     ). 
+   
+   
+public define One
+  start_web_sites
+  (
+    Word32          ip_address,   // the IP address shared by the web sites
+    Word32          http_port,    // usually: 80
+    Word32          https_port,   // usually: 443
+    String          ssl_certificate_common_name,
+    List(Web_Site)  web_sites,    // web sites to be started
+    (One) -> Bool   shutdown_required,
+    (LogLevel, String) -> One     logger           //logger where to report the error
+  )=
+  if (Start_Web_Sites_Result)start_web_sites(ip_address,
+                                              http_port,
+                                              https_port,
+                                              ssl_certificate_common_name,
+                                              web_sites,
+                                              shutdown_required) is 
+     {
+       cannot_bind_to_port(n)     then logger(logError, "Cannot bind to port: "+n),
+       cannot_bind_to_port(n,m)   then logger(logError, "Cannot bind to ports: "+n+", "+m),
+       ok(s1,s2)                  then logger(logInfo, "Servers started on ports "+http_port+" (HTTP) and "+https_port+" (HTTPS).")
+     }.
+   
+   
+   
+   
+   
+   *** [5] HTML Formating. 
+
+   We need to translate HTML elements as defined above into actual HTML text.
+   
+   Actioners require  special informations, which must  be transmitted when  needed by the
+   'format' functions:
+   
+       - the 'common name', which is used for URLs, 
+       - the HTTP/HTTPS port number, 
+       - the 'state name', which must be transmitted when the actioner is clicked upon, 
+       - the 'form name' (if any) to which the actioner refers. 
+   
+   If the  actioner is off  form, and if  it refers to  a form, the  name of that  form is
+   already known by the actioner. On the contrary, if the actioner is 'in form', it refers
+   implicitly to  the form containing  it.  The  name of that  form is transmitted  to the
+   'format' functions called from within the formating of that form.
+
+   
+   
+   
+      *** [5.1] The type 'HTML_Any($T)'. 
+   
+   The type  'HTML_Any($T)' gathers elements  which may be  put anywhere in the  page. The
+   parameter $T becomes either 'HTML_Off_Form' or 'HTML_In_Form'.
+   
+type HTML_Any($T):
+   any_text               (List(CoreAttrs), String the_text), 
+   any_preformated        (List(Text_Option), String), 
+   any_paragraph          (List(Text_Option), List($T) content), 
+   any_image              (List(CoreAttrs), String url, String alternate), 
+   any_image              (List(CoreAttrs), String url, String alternate, Int width, Int height), 
+   any_table              (List(Table_Option), HTML_Header_Row($T), List(HTML_Row($T)), HTML_Footer_Row($T)), 
+   any_center             ($T), 
+   any_mail_to            (String email, $T element), 
+   any_scroller           (Int width, Int height, 
+                           Int content_width, Int content_height,
+                           $T content), 
+   any_fixed_size         (HTML_Size width, HTML_Size height, $T content), 
+   any_fixed_size_2       (HTML_Size width, HTML_Size height, String name_of_HTML_file), 
+   any_actioner           (Actioner_Connection, 
+                           Actioner_Target, 
+                           Actioner_Aspect, 
+                           WEB_Action_Name action, 
+                           List((String,String)) extra_ops, 
+                           List(Actioner_Local_Action),
+                           Maybe(String) form_name),
+   any_foreign_link_new   (Actioner_Target, Actioner_Aspect, String url),                            
+   any_foreign_link       (List(Text_Option), String url), 
+   any_foreign_link       (List(Text_Option), String url, String name), 
+   any_private_download   (String abs_path, String name, String extra_ext,
+                             Maybe((String,List((String,String))))),
+   any_div                (List(CoreAttrs), List($T) element),
+   any_div_empty          (List(CoreAttrs)),
+   any_coreattrs          (List(CoreAttrs)),
+   any_ol                 (List(CoreAttrs), List($T) content), 
+   any_ul                 (List(CoreAttrs), List($T) content), 
+   any_li                 (List(CoreAttrs), List($T) content),
+   any_button             (List(CoreAttrs), List($T) element),
+   any_i                  (List(CoreAttrs), String text),
+   any_span               (List(CoreAttrs), String text),
+   any_hr                 (List(CoreAttrs))
+.
+   
+      
+   
+      *** [5.2] Formating a color. 
+   
+   RGB  colors  are  formatted as  '#rrggbb'  where  rr,  gg  and  bb are  two  characters
+   hexadecimal values.
+   
+define String
+  html_format
+    (
+      RGB color
+    ) =
+  if color is rgb(r,g,b) then 
+     "#" + to_hexa(r) 
+         + to_hexa(g) 
+         + to_hexa(b).  
+
+   
+   The following is a very arbitrary definition  of the opposite color. The thing which is
+   important is that it  is far from the original, so that  characters in 'opposite' color
+   are clearly visible over the original.
+      
+define RGB
+   opposite
+     (
+       RGB color
+     ) =
+   if color is rgb(r,g,b) then 
+   rgb(255-r,
+       255-g,
+       255-b).
+   
+   Converting RGB to RGBA. 
+   
+define RGBA
+   to_rgba
+     (
+       RGB color
+     ) =
+   if color is rgb(r,g,b) then rgba(r,g,b,255). 
+   
+   
+      *** [5.4] Formating an actioner. 
+   
+   An actioner works as follows. Assume first that it refers to a form. When it is clicked
+   upon, the actioner puts (via 'onMouseDown')  the URL into the 'action' attribute of the
+   form, and submits  the form, using the JavaScript  command 'form_name.submit()'. If the
+   actioner does  not refer to a  form, it fires the  URL directly via  'href', because in
+   that case, the actioner is always an <a> tag. 
+   
+   The URL itself is composed using the  connection sort (same, http or https), the common
+   name  and port  number (if  needed), the  state name,  the action  name, and  the extra
+   operands, which are put into a query string. It may look like this:
+   
+      http://common_name:port/?s=state_name&a=action_name&oname=value...
+         
+   Each extra operand is a pair of strings: (name,value). It is formated as:
+   
+                 &oname=value
+
+public define String
+  format_attrs
+  (
+    List(CoreAttrs)  attributs
+  ).
+   
+//public define String 
+//  format_extra_operands
+//  (
+//    List((String,String)) l
+//  ) =
+//  if l is 
+//  {
+//    [ ]     then "", 
+//    [h . t] then if h is (n,v) then  
+//    "&amp;"+n+"="+v+format_extra_operands(t)
+//  }
+//.
+
+   
+   It seams that the standard requires "&amp;" instead of "&" ! 
+   
+   In case the target is another window, we need to format the options for this window. 
+   
+define String 
+  format
+  (
+    List(Other_Window_Option) l 
+  ) =
+  if l is 
+  {
+    [ ]     then "", 
+    [h . t] then if h is 
+    {
+      resizable      then "resizable",
+      scrollbars     then "scrollbars",
+      width(w)       then "width="+w,
+      height(h2)      then "height="+h2
+    } + if t is [ ] then "" else (","+format(t))
+  }
+.
+   
+   
+   
+   Formating choices for a <select> tag. 
+   
+public define Printable_tree
+  format_choices
+    (
+      List(String) l
+    ) =
+  if l is 
+    {
+      [ ] then [ ], 
+      [h . t] then ["<option>", h, "</option>\n" . format_choices(t)]
+    }.
+
+
+public define Printable_tree
+  format_choices
+  (
+    List(String) l,
+    InitialValue selected
+  ) =
+  if l is 
+    {
+      [ ]     then [ ], 
+      [h . t] then if h = selected.value
+        then ["<option selected=\"selected\">", h, "</option>\n" . format_choices(t)]
+        else ["<option>", h, "</option>\n" . format_choices(t,selected)]
+    }.
+
+   
+public define Printable_tree
+  format_choices
+    (
+      List((List(CoreAttrs),WebArgValue,String)) l
+    ) =
+  if l is 
+    {
+      [ ] then [ ], 
+      [h . t] then
+       if h is (attrs,val,item) 
+        then ["<option value=\""+encode_HTML_entities(val.value)+"\" "+format_attrs(attrs)+">", item, "</option>\n" . format_choices(t)]
+    }.
+   
+public define Printable_tree
+  format_choices
+    (
+      List((List(CoreAttrs),WebArgValue,String)) l,
+      InitialValue          selected
+    ) =
+  if l is 
+    {
+      [ ] then [ ], 
+      [h . t] then 
+       if h is (attrs,val,item) then 
+       if val.value = selected.value 
+         then ["<option value=\""+encode_HTML_entities(val.value)+"\" "+format_attrs(attrs)+" selected=\"selected\">", item, "</option>\n" . format_choices(t)]
+         else ["<option value=\""+encode_HTML_entities(val.value)+"\" "+format_attrs(attrs)+" >", item, "</option>\n" . format_choices(t,selected)]
+    }.
+   
+   
+     
+   Note: this  counter is private to  the virtual machine,  hence there is one  counter by
+   client and by page : it seems that a new VM (simply a delegate) is started for each request.
+   
+define Int
+   new_count
+   (
+    Var(Int) count
+   )
+   = 
+   count <- *count+1; 
+   *count. 
+   
+   
+   The next function composes  the URL. It is a JavaScript URL  when the target is another
+   window.
+   
+//public define String
+//  format_web_action_name
+//  (
+//    WEB_Action_Name           action
+//  )=
+//  if action is
+//  {
+//    no_action                                   then "",  
+//    controller_action(controller, action_name)  then "?aws_controller="+controller+"&amp;aws_action="+action_name,
+//    action_name(action_name)                    then "?aws_action="+action_name,
+//    url(url)                                    then url
+//  }  
+//.
+//
+//public define String
+//  format_web_action_name
+//  (
+//    WEB_Action_Name           action,
+//    List((String,String))     extra_ops,        
+//  )=
+//  format_web_action_name(action)
+//  +
+//  format_extra_operands(extra_ops)
+//.
+
+define String 
+  make_actioner_url
+  (
+    CommonInfo                cinfo, 
+    Actioner_Connection       connection, 
+    Actioner_Target           target, 
+    WEB_Action_Name           action, 
+    List((String,String))     extra_ops,
+    Bool                      is_https
+  ) =
+   if cinfo is info(common_name,http_port,https_port,site_directory,secret) then 
+   with strict_url = 
+     if connection is 
+       {
+         same      then "/", 
+         http      then 
+          if http_port = 80 then
+            "http://"+common_name+"/"
+          else
+            "http://"+common_name+":"+http_port+"/",
+         https     then
+          if https_port = 443 then
+            "https://"+common_name+"/"
+          else
+            "https://"+common_name+":"+https_port+"/",
+       } +
+     //with action_string =
+   format_web_action_name(action, extra_ops), 
+   if target is 
+     {
+       same            then strict_url,
+       same(label)     then strict_url+"#"+label, 
+       other(wn,ops)   then 
+       
+         "javascript:void window.open('"+strict_url+"&amp;t="+wn+"','"+
+                "w"+to_ascii(sha1(wn))+"','"+format(ops)+"')"
+     }. 
+   
+define String 
+   make_foreign_link_url
+     (
+       Actioner_Target  target,
+       String           url
+     ) =
+   if target is 
+     {
+       same            then "/",
+       same(label)     then "/#"+label, 
+       other(wn,ops)   then 
+       
+         "javascript:void window.open('"+url+"','"+
+                "w"+to_ascii(sha1(wn))+"','"+format(ops)+"')"
+     }. 
+
+   
+   Depending on the fact that the actioner refers to a form or not, the URL is used in two
+   different ways.  If  the actioner does not refer  to a form, it is realized  by a '<a>'
+   tag, with a 'href'  attribute. If it refers to a form, it is  still realized by a '<a>'
+   tag, but with no href attribute.  In  this case, we use the 'onMouseDown' or 'onChange'
+   event handler. The handler calls a JavaScript  function which puts the URL as the value
+   of the 'action' attribute of the form, and submits the form.
+
+type URL_or_JavaScript:
+   url          (String),
+   javascript   (Printable_tree script, Printable_tree handler). 
+   
+   
+   It was as  shown below, in order to  allow submission of a form from  outside the form,
+   but this makes problems:
+   
+define URL_or_JavaScript
+   format_action
+     (
+       String                 the_url, 
+       Actioner_Aspect        aspect, 
+       Maybe(String)          mb_id,
+       Maybe(String)          mb_form_name,
+       Var(Int)               action_count
+     ) = 
+   if mb_form_name is 
+     {
+       failure then 
+         url(the_url), 
+       success(form_name) then 
+       with n = new_count(action_count), 
+             fn_name = "pfu_" + if mb_id is
+                                {
+                                  failure then form_name + "_" + n,
+                                  success(id) then id,
+                                },
+         javascript(
+           [
+             "<script type=\"text/javascript\" language =\"JavaScript\">\n", 
+               "function ", fn_name, "() {\n",
+               "  var fa = document.forms.",form_name,";\n", 
+               "  var u = \"",the_url,"\";\n",
+               "  fa.action = u;",
+               if aspect is submit(_, _) then " }\n"
+                                         else "\n  fa.submit(); }\n",
+             "</script>\n"
+           ],
+           [fn_name,"();"]
+         )
+     }.
+   
+   Now, we format the actioner according to its aspect. 
+   
+define List(Text_Option)
+  get_text_options
+  (
+     List(Text_Option) l
+  )
+  =
+  if l is
+  {
+    []        then [],
+    [h . t ]  then
+      if h is class(_) then
+        get_text_options(t)
+      else if h is id(_) then
+        get_text_options(t)
+      else if h is style(_) then
+        get_text_options(t)
+      else if h is title(_) then
+        get_text_options(t)
+      else if h is core_attrs(_) then
+        get_text_options(t)
+      else
+      [  h .  get_text_options(t) ]
+   
+  }.
+  
+  /**
+   * Extract the CSS class list from the list of Text_Option
+   */
+define List(CoreAttrs)
+  get_css_class
+  (
+     List(Text_Option) l
+  )
+  =
+  if l is
+  {
+    []        then [],
+    [h . t ]  then
+    
+    
+      if h is class(name) then
+       [ class(name) .  get_css_class(t) ]
+      else if h is id(name) then
+       [ id(name) .  get_css_class(t) ]
+      else if h is style(the_style) then
+       [ style(the_style) .  get_css_class(t) ]
+      else if h is title(name) then
+       [ tooltip(name) .  get_css_class(t) ]
+      else if h is attr(name, value) then
+       [ attr(name, value) .  get_css_class(t) ]
+      else
+        get_css_class(t)
+  }
+  .
+
+
+define List(CoreAttrs)
+  get_core_attrs
+  (
+     List(Text_Option) l
+  )
+  =
+  if l is
+  {
+    []        then [],
+    [h . t ]  then
+      if h is core_attrs(attrs) then
+       attrs + get_core_attrs(t)
+      else
+        get_core_attrs(t)
+  }
+  . 
+   
+define Printable_tree
+  format
+  (
+    List(Actioner_Local_Action)   l
+  ) =
+   if l is 
+     {
+       [ ] then [ ], 
+       [h . t] then [if h is 
+         {
+           close_window then [" window.close(); "]
+         } 
+         . format(t)]
+     }. 
+
+    
+define String
+  format_attrs
+  (
+    List(InputAttrs)  attributs,
+    List(String)      classes,
+    List(String)      styles
+  )=
+  if attributs is
+  {
+    []      then 
+      if length(classes) = 0 then "" else " class=\""+join(" ",classes)+"\""+
+      if length(styles) = 0 then "" else " style=\""+join(";",styles)+"\"",
+    [h . t] then 
+      with new_classes = if h is class(class_name) then [class_name. classes] else classes,
+           new_styles  = if h is style(style_string) then [style_string . styles] else styles,
+           current = if h is
+      {
+        id(id_name)          then
+           " id=\"" + id_name + "\"",
+        class(class_name)    then "",
+        style(style_string)  then "",     
+        title(title_string)  then  
+           " title=\"" + title_string + "\"",
+        
+        lang(lang) then  
+           " xml:lang=" + lang,
+        dir(reading_Way)  then
+          if reading_Way is
+          {
+            ltr then  " dir=ltr",
+            rtl then  " dir=rtl"
+          },
+        
+        accesskey(key) then
+          " accesskey=\"" + key + "\"",
+        tabindex(index) then
+          " tabindex=\"" + index + "\"",
+      
+        attr(name, value) then
+           " " + name + "=\"" + value + "\"",
+        
+        event(e, value) then  
+           " " + event_name(e) + "=\"" + value + "\"",
+        data(name, value) then
+          " data-" + to_lower(name) + "=\"" + value + "\"",
+      },
+      current + format_attrs(t, classes, styles)
+  }.
+
+public define List(CoreAttrs) extract_attributes(HTML_tooltip htt).
+
+define String
+  format_attrs
+  (
+    List(CoreAttrs)  attributs,
+    List(String)     classes,     //class accumulator
+    List(String)     styles       //styles accumulator
+  )=
+  if attributs is
+  {
+    []      then 
+      //concat all accumulated classes and styles 
+      (if length(classes) = 0 then "" else " class=\""+join(" ",classes)+"\"")+
+      if length(styles) = 0   then "" else " style=\""+join(";",styles)+"\"",
+    [h . t] then 
+      with new_classes  = if h is class(class_name)   then [class_name. classes]    else classes,
+           new_styles   = if h is style(style_string) then [style_string . styles]  else styles,
+           new_attrs    = if h is tooltip(tt)         then extract_attributes(tt)   else [],
+           
+           current      = if h is
+                          {
+                            empty                 then "",
+                            id(id_name)           then
+                               " id=\"" + id_name + "\"",
+                            class(class_name)     then "",   //do nothing here, because we accumulate the class until we have some other attributes
+                            style(style_string)   then "",   //do nothing here, because we accumulate the style until we have some other attributes
+                            title(title_string)   then  
+                               " title=\"" + title_string + "\"",
+                            
+                            lang(lang)            then  
+                               " xml:lang=" + lang,
+                            dir(reading_Way)      then
+                              if reading_Way is
+                              {
+                                ltr then  " dir=ltr",
+                                rtl then  " dir=rtl"
+                              },
+                            
+                            accesskey(key)        then
+                              " accesskey=\"" + key + "\"",
+                            tabindex(index)       then
+                              " tabindex=\"" + index + "\"",
+                            attr(name, value)     then
+                               " " + name + "=\"" + value + "\"",
+                            bool_attr(bool, value)then
+                              if bool then " "+value+" " else "",
+                            event(e, value)       then  
+                               " " + event_name(e) + "=\"" + value + "\"",
+                            tooltip(_)            then  "",   //do nothing here, because we extract attributes at first in new_attrs
+                            data(name, value)     then
+                              " data-" + to_lower(name) + "=\"" + value + "\"",
+                              
+                            contenteditable(value)then  //boolean value
+                              " contenteditable=\""+ to_String(value)+ "\""
+                              
+                            contextmenu(id_name)  then  //ID value
+                              " contextmenu=\"" + id_name + "\"",
+                              
+                            draggable(value)      then  //boolean value
+                              " draggable=\""+ to_String(value)+ "\"",
+                              
+                            enterkeyhint(value)   then
+                              " enterkeyhint=\""+ value + "\"",
+                              
+                            hidden(value)         then  //boolean value
+                              " hidden=\""+ (if value then "hidden" else "") + "\"",
+                            
+                            inert                 then  
+                              " inert",
+                            
+                            inputmode(value)      then
+                              " inputmode =\"" + value + "\"",
+                              
+                            popover               then
+                              " popover",
+                              
+                            spellcheck(value)     then  //boolean value
+                              " spellcheck=\""+ to_String(value)+ "\""
+                            
+                            translate(value)      then
+                              " translate=\"" + if value then "yes\"" else "no\""
+                          },
+      current + format_attrs(t + new_attrs, new_classes, new_styles)
+  }.
+  
+define String
+  format_attrs
+  (
+    List(InputAttrs)  attributs
+  )= 
+  format_attrs(attributs, [], []).
+  
+public define String
+  format_attrs
+  (
+    List(CoreAttrs) attributs
+  )= 
+  format_attrs(attributs, [], []).
+  
+define String 
+  format_text_options
+  (
+     List(Text_Option) l
+  )
+  =
+  with text_options = get_text_options(l),
+         core_attrs = get_css_class(l) + get_core_attrs(l),
+  (if length(text_options)= 0 then "" else " style=\"" + format(text_options) + "\" ")
+  + 
+  (if length(core_attrs) = 0 then "" else format_attrs(core_attrs))
+  .
+
+define Printable_tree
+  format_div_option
+  (
+    List(CoreAttrs) options
+  )=
+  ["<div" + format_attrs(options) + ">"]
+.
+
+define Maybe(String)
+  extract_id
+  (
+    List(CoreAttrs) attrbs
+  ) =
+  if attrbs is
+  {
+    []      then failure,
+    [h . t] then
+      if h is id(value) then success(value)
+                        else extract_id(t)
+  }
+.
+
+define Maybe(String)
+  extract_id
+  (
+    Actioner_Aspect aspect
+  ) =
+  if aspect is
+  {
+    link(_,_,_)                 then failure,
+    img_link(_,_,_)               then failure,
+    push_button(opts,_)         then extract_id(opts),
+    button(_,_)                 then failure,
+    button(_,_,_,_)             then failure,
+    submit(opts,_)              then extract_id(opts),
+    //immediate_selector(_,_,_,_)   then failure,
+    immediate_selector(_,_,_,_,_,_) then failure,
+    html(_, _)                      then failure,
+  }.
+
+to do Complete format_foreign_link
+//TODO Complete format_foreign_link
+
+       CommonInfo                     cinfo, 
+       String                         state_name, 
+       Var(Int)                       action_count,
+       Var(Int)                       ic_v             // 'idnum' counter variable
+       
+define Printable_tree
+   format_foreign_link
+     (
+//       CommonInfo                     cinfo, 
+       Actioner_Target                target, 
+       Actioner_Aspect                aspect, 
+       String                         url, 
+       Bool                           is_https,
+       CommonInfo                     cinfo, 
+//       String                         state_name, 
+       Var(Int)                       action_count,
+       Var(Int)                       ic_v,             // 'idnum' counter variable
+       Var(List(HTML_Head_Tag))       head_tags
+   ) =
+   //if cinfo is info(common_name,http_port,https_port,site_dir,secret) then 
+   with full_url = make_foreign_link_url(target,url), 
+//   with action = format_action(full_url, aspect, extract_id(aspect), mb_form_name),
+   if aspect is 
+     {
+   
+       link(opt, text, mb_name) then 
+                        with name_tag = if mb_name is success(n) then " name=\"" + n + "\"" else "",
+                        [
+                          "<a href=\"", full_url, "\"", format_text_options(opt), name_tag, ">",
+                          text,
+                          "</a>"
+                        ], 
+       img_link(opt, img, alt_text)       then
+                        [
+                          "<a href=\"", full_url ,"\"", format_attrs(opt),"><img src=\"", img,
+                          "\" alt=\"" + alt_text + "\" border=\"0\"></a>"
+                        ],
+       push_button(options, text) then 
+            ["<a href=\"",full_url,"\"", format_attrs(options), ">",
+                                        text, "</a>"
+            ],
+       button(url_off,url_on) then 
+         [ ],
+   
+       button(url_off,url_on,w,h) then 
+         [ ],
+         
+       submit(options, text) then 
+         [ ], 
+   
+       //immediate_selector(opt,name,size,choices) then          
+       //  [ ],
+       immediate_selector(opt,name,size,choices,selected,function) then          
+         [ ],
+       html(options, html_off_form)  then
+         [
+          "<a href=\"", full_url,"\"", format_attrs(options), ">",
+             format(cinfo, ic_v, html_off_form, is_https, action_count, head_tags),
+          "</a>"
+         ]
+     }. 
+
+define Printable_tree
+   format_actioner
+     (
+       CommonInfo                     cinfo, 
+       Actioner_Connection            connection, 
+       Actioner_Target                target, 
+       Actioner_Aspect                aspect, 
+       WEB_Action_Name                action, 
+       List((String,String))          extra_ops, 
+       List(Actioner_Local_Action)    local_actions,
+       Maybe(String)                  mb_form_name,
+       Bool                           is_https,
+       Var(Int)                       action_count,
+       Var(Int)                       ic_v,            // 'idnum' counter variable
+       Var(List(HTML_Head_Tag))       head_tags
+
+     ) =
+
+   if cinfo is info(common_name,http_port,https_port,site_dir,secret) then 
+   with url = make_actioner_url(cinfo,connection,target,
+                                action,extra_ops,is_https), 
+   with formatted_action = format_action(url, aspect, extract_id(aspect), mb_form_name, action_count),
+   if aspect is 
+     {
+   
+       link(opt, text, mb_name) then 
+                        with name_tag = if mb_name is success(n) then " name=\"" + n + "\"" else "",
+                        with action_name = if action is {
+                                             no_action                then ""
+                                             controller_action(_, an) then an,
+                                             action_name(an)          then an,
+                                             url(_)                   then ""
+                        },
+                        if action_name = ""  then 
+                          ["<a ", format_text_options(opt), name_tag, ">", text, "</a>" ]
+                        else 
+                          ["<a href=\"",url,"\"",
+                           format_text_options(opt), name_tag, ">",
+                            text,
+                            "</a>"
+                          ], 
+       img_link(options, img, alt_text)       then
+                        //if action name is empty, format options on image because maybe there onclick action
+                        with action_name = if action is {
+                                             no_action                then ""
+                                             controller_action(_, an) then an,
+                                             action_name(an)          then an,
+                                             url(_)                   then ""
+                        },
+                        if action_name ="" then
+                          [
+                            "<img src=\"", img,"\"",
+                            format_attrs(options)," alt=\"" + alt_text + "\" border=\"0\">"
+                          ]                          
+                        else
+                          [
+                            "<a href=\"", url,"\"", format_attrs(options),"><img src=\"", img,
+                            "\" alt=\"" + alt_text + "\" border=\"0\"></a>"
+                          ],
+       push_button(options, text) then 
+         [
+           if formatted_action is 
+           {
+              url(u)          then    ["<a href=\"",u,"\"", format_attrs(options), ">",
+                                        text, "</a>"
+                                      ],
+              javascript(s,h) then 
+                          with action_name = 
+                            if action is
+                            {
+                              no_action                 then  "",
+                              controller_action(_, an)  then an,
+                              action_name(an)           then an,
+                              url(_)                    then ""
+                            },
+                            if action_name = "" then  
+                              ["<input type=\"button\" value=\"",encode_HTML_entities(text),"\"", format_attrs(options), " />"]
+                            else
+                              [s,"<input type=\"button\" value=\"",encode_HTML_entities(text),"\"", format_attrs(options), " onclick=\"",h,"\" />"]
+           }
+         ], 
+       button(url_off,url_on) then 
+         [ if formatted_action is 
+             {
+               url(u)           then ["<a href=\"",u],
+               javascript(s,h)  then [s,"<a onMouseDown=\"",h]
+             },
+             "\" style=\"text-decoration:none\">",
+             "<img alt=\"",url_off,"\" src=\"",url_off,"\" border=0",
+               " onMouseOver=\"this.src='",url_on,"'\" ",
+                " onMouseOut=\"this.src='",url_off,"'\">",
+           "</a>"
+         ],
+   
+       button(url_off,url_on,w,h) then 
+         [ if formatted_action is 
+             {
+               url(u)           then ["<a href=\"",u],
+               javascript(s,h2)  then [s,"<a onMouseDown=\"",h2]
+             },
+             "\" style=\"text-decoration:none\">",
+             "<img width=",w," height=",h," alt=\"",url_off,"\" src=\"",url_off,"\" border=0",
+               " onMouseOver=\"this.src='",url_on,"'\" ",
+                " onMouseOut=\"this.src='",url_off,"'\">",
+           "</a>"
+         ],
+         
+       submit(options, text) then 
+         [
+           if formatted_action is 
+           {
+              url(u)          then    ["<a href=\"",u,"\"", format_attrs(options), ">",
+                                        text, "</a>"
+                                      ],
+              javascript(s,h) then 
+                with action_name = if action is {
+                                            no_action                 then "",
+                                             controller_action(_, an) then an,
+                                             action_name(an)          then an,
+                                             url(_)                   then ""
+                        },
+                          if action_name = "" then  // special case where URL (so the action_name) is provided by the form itself
+                                                    // so javascript isn't needed. This is the standard HMTL way.
+                              ["<input type=\"submit\" value=\"",text,"\"", format_attrs(options), " />"]
+                          else
+                              [s,"<input type=\"submit\" value=\"",text,"\"", format_attrs(options), " onclick=\"",h,"\" />"]
+           }
+         ], 
+   
+//       immediate_selector(options,name,size,choices) then          
+//         [ if action is 
+//             {
+//               url(u)           then ["<select href=\"",u]
+//               javascript(s,h)  then [s,"<select onchange=\"",h]
+//             },
+//             "\" name=\"",name,"\" size=\"",size,"\"", format_attrs(options), ">",
+//              format_choices(choices),"</select>"
+//         ],
+       immediate_selector(options, name, size, choices, mb_selected, custom_function_name) then          
+         [
+          //if custom function name is provided, that name is used instead of autogenerated js function
+          if custom_function_name = "" then
+            if formatted_action is
+             {
+               url(u)           then ["<select href=\"",u]
+               javascript(s,h)  then [s,"<select onchange=\"",h]
+             }
+           else
+            ["<select onchange=\"",custom_function_name],
+            
+             "\" name=\"",name,"\" size=\"",size,"\"", format_attrs(options), ">",
+             if mb_selected is success(selected) then format_choices(choices, selected) else format_choices(choices),"</select>"
+         ],
+       html(options, html_off_form)  then
+       [
+        "<a href=\"", url,"\"", format_attrs(options), ">",
+           format(cinfo, ic_v, html_off_form, is_https, action_count, head_tags),
+        "</a>"
+       ]
+     }. 
+    
+
+
+   
+   
+   
+      *** [5.5] Formating a private download link. 
+   
+   We get  the absolute path  of the file  to be downloaded, and  the name under  which it
+   should  appear  to  the  client.   The function  'format_private_download'  creates  an
+   hypertext link  for downloading the file.  The secured mecanism of  private download is
+   used. This function is called by the function which formats HTML_Any($T) elements.
+   
+   
+define Printable_tree 
+  format_private_download
+  (
+    CommonInfo               cinfo, 
+    String                   abs_path,    // absolute file path on server
+    String                   name,        // name of file as it appears in the browser
+    String                   extra,       // extra extension
+    Maybe((String,List((String,String))))   action
+  ) =
+  if cinfo is info(common_name,http_port,https_port,site_directory,secret) then 
+    with private_download_directory = site_directory+"/private_download",                   
+    with auth = make_authorization(site_directory,secret,abs_path), 
+     [ 
+       "<a href=\"",name,extra,"?zauth=",auth,
+           if action is 
+             {
+               failure then [ ]
+               success(a) then if a is (an,args) then 
+                 ["&a=",an,format_extra_operands(args)]
+             },
+            "\">",
+         name,
+       "</a>"
+     ].
+   
+      *** [5.6] Formating rows and cells in a table. 
+
+define Int
+   percent
+     (
+       Int p
+     ) =
+   if p < 0 then 0 else if p > 100 then 100 else p. 
+   
+   
+   
+   
+   Formating cell options. 
+
+   
+   
+define String 
+   format
+     (
+       BackgroundOption o
+     ) =
+   if o is 
+     {
+       repeat             then "",
+       repeat_horizontal  then "; background-repeat: repeat-x",
+       repeat_vertical    then "; background-repeat: repeat-y",
+       no_repeat          then "; background-repeat: no-repeat",
+       center             then "; background-position: center top"      
+     }. 
+   
+define String
+   format     
+     (
+        List(BackgroundOption) l
+     ) =
+   if l is 
+     {
+       [ ] then "", 
+       [h . t] then format(h)+format(t)
+     }.
+     
+   
+define String 
+   format
+     (
+       List(Cell_Option)   options
+     ) =
+   if options is 
+     {
+       [ ] then "", 
+       [h . t] then 
+         if h is
+            {
+              core_attrs(core_attr_list)    then format_attrs(core_attr_list),       
+              left                          then " align=\"left\"",
+              h_center                      then " align=\"center\"",
+              right                         then " align=\"right\"",
+              top                           then " valign=\"top\"",
+              v_center                      then " valign=\"middle\"",
+              bottom                        then " valign=\"bottom\"",
+              base_line                     then " valign=\"baseline\"",
+              background_color(c)           then " bgcolor=\""+html_format(c)+"\"",
+              background_image(n,o)         then " style=\"background: url("+n+")"+format(o)+"\"",
+              width(w)                      then " width=\""+w+"\"",
+              percentage_width(n)           then " width=\""+percent(n)+"%\"", 
+              height(h2)                    then " height=\""+h2+"\"",
+              columns(n)                    then " colspan=\""+n+"\"",
+              rows(n)                       then " rowspan=\""+n+"\"",
+              nowrap                        then " nowrap",
+              style(style_string)           then " style=\"" + style_string + "\"",
+              class(class_name)             then " class=\""+class_name+"\""
+            }
+         + format(t)
+     }.
+   
+   
+   Normalizing a list of cell options  (horizontal position must be specified; the default
+   is 'left').   
+   
+   Formating cells in a row. 
+   
+define Printable_tree
+   format
+     (
+       List(HTML_Cell($T))               cells,
+       $T -> Printable_tree     format_element
+     ) =
+   if cells is 
+     {
+       [ ] then [ ], 
+       [h . t] then if h is cell(options,element) then 
+         ["<td",format(reverse(options)),">",
+            format_element(element), 
+          "</td>" 
+          . format(t,format_element)]
+     }. 
+   
+define Printable_tree
+   format
+     (
+       List(HTML_Header_Cell($T)) cells,
+       $T -> Printable_tree       format_element
+     ) =
+   if cells is 
+     {
+       [ ] then [ ], 
+       [h . t] then if h is header_cell(options,element) then 
+         ["<th ",format(reverse(options)),">",
+            format_element(element), 
+          "</th>" 
+          . format(t,format_element)]
+     }.
+     
+   Formating the rows in a table. 
+   
+define Printable_tree
+  format
+  (
+    List(HTML_Row($T))    rows,
+    $T -> Printable_tree  format_element,    
+  )=
+  if rows is 
+  {
+    [ ]     then [ ], 
+    [h . t] then 
+      if h is
+      {
+        empty               then format(t, format_element),
+        row(options, cells) then
+          ["<tr",format(reverse(options)),">", format(cells, format_element), "</tr>\n"
+           . format(t, format_element)]
+     }
+  }
+.
+   
+define Printable_tree
+  format
+  (
+    HTML_Header_Row($T)     row,
+    $T -> Printable_tree     format_element   
+  ) =
+  if row is 
+  {
+    empty                     then [ ], 
+    header_row(options,cells) then 
+         ["<thead> <tr",format(reverse(options)),">",
+          format(cells,format_element),
+          "</tr> </thead>\n"
+         ]
+   }.   
+
+define Printable_tree
+  format
+  (
+    HTML_Footer_Row($T)      row,
+    $T -> Printable_tree     format_element   
+  ) =
+  if row is 
+  {
+    empty                     then [ ], 
+    footer_row(options,cells) then 
+         ["<tfoot> <tr",format(reverse(options)),">",
+          format(cells,format_element),
+          "</tr> </tfoot>\n"
+         ]
+   }.   
+
+define Printable_tree
+   format1
+     (
+       List(TextAreaOption) l
+     ) =
+   if l is 
+     {
+       [] then [], 
+       [h . t] then if h is 
+         {
+           input_attrs(input_attr_list)    then [format_attrs(input_attr_list) . format1(t)],       
+           disabled    then [" disabled=\"disabled\" " . format1(t)]
+           read_only   then [" readonly=\"readonly\" " . format1(t)]
+           wrap_lines  then [" wrap=\"wrap\" " . format1(t)]
+         }
+     }.
+   
+define Printable_tree
+  format
+  (
+    List(TextAreaOption) l
+  )=
+  if member(l, wrap_lines) then 
+    format1(l)
+  else 
+    [" wrap=\"off\" " . format1(l)]
+.
+   
+   
+      *** [5.7] Formating elements which may be put anywhere. 
+   
+   The  function  below  involves  the   parameter  $T  which  is  later  instantiated  as
+   'HTML_In_Form' or as 'HTML_Off_Form'. Now,  since there are dictinct 'format' functions
+   for these two  types, and because formating of tables requires  recursive calls of such
+   functions, it is necessary to provide the 'format' function to be called recursively as
+   an argument.   Putting naively a call to  'format' will not work,  because the compiler
+   will look for a function able to format data of type $T (which is at that time distinct
+   from any other type,  including our two types).  Such a function  does not exist. Hence
+   the  function to  be  called for  formating elements  must  be passed  as a  functional
+   argument (called 'format_element' below).  Actually,  what we pass is a function taking
+   a unique  argument of type  $T.  Other  informations (like the  name of the  state) are
+   already in the function by way of full functionality.
+   
+   
+   Formating  text  options.  They are  formated  in  CSS  syntax,  to  be used  within  a
+   'style=...'.
+   
+define String
+   format
+     (
+       List(Text_Option) l
+     ) =
+   if l is 
+     {
+       [ ] then "",
+       [h . t] then if h is 
+         {
+         core_attrs(core_attr_list) then format_attrs(core_attr_list),
+         size(n)            then "font-size:"+n+"pt",
+         font(fn)           then "font-family:"+fn,
+         color(c)         then if c is rgb(r,g,b) then 
+         "color:rgb("+to_decimal(r)+","+to_decimal(g)+","+to_decimal(b)+")",
+         italic           then "font-style:italic",
+           oblique          then "font-style:oblique",
+           small_capitals   then "font-variant:small-caps",
+           bold             then "font-weight:bold",
+           underlined       then "text-decoration:underline",
+           left_justified   then "text-align:left",
+           right_justified  then "text-align:right",
+           justified        then "text-align:justify",
+           line_through     then "text-decoration:line-through",
+           nowrap           then "white-space:nowrap",
+           class(class_name)then " class=\"" + class_name +"\"",
+           id(id_name)      then " id=\"" + id_name +"\"",
+           style(style_string)  then " style=\"" + style_string + "\"",
+           title(s)         then " title=\"" + s +"\""
+           attr(n,v)        then " " + n + "=\"" + v +"\""
+         } + if t is [ ] then "" else ("; "+format(t))
+     }.
+   
+   
+   
+   Formating table options. 
+   
+define String 
+   format
+     (
+       List(Table_Option)    l,
+       Bool                  border_seen
+     ) =
+   if l is 
+     {
+       [ ] then if border_seen then "" else " border=\"0\" cellspacing=\"0\" cellpadding=\"0\"",
+       [h . t] then if h is 
+         {
+           core_attrs(core_attr_list) then format_attrs(core_attr_list),
+           background_color(c)        then " bgcolor=\""+html_format(c)+"\""+format(t,border_seen), 
+           background_image(url)      then " background="+url+format(t,border_seen),
+           border(o,top,i,c)          then " border=\""+o+"\" cellspacing=\""+top+"\" cellpadding=\""+i+"\""+
+                                         //" bordercolor="+format(c)+
+                                         format(t,true), 
+           width(w)                   then " width=\""+w+"\""+format(t,border_seen),
+           percentage_width(p)        then " width=\""+percent(p)+"%\""+format(t,border_seen),
+           attr(name, value)          then " " + name + "=\"" + value + "\"" +format(t,border_seen),
+           class(name)                then " class=\""+name+"\""
+         }
+     }.
+   
+
+   
+   
+   
+define Printable_tree
+   format_scroller
+     (
+       Int                        width,
+       Int                        height,
+       Int                        content_width,
+       Int                        content_height,
+       Int                        idnum,       // identifying the scroller
+       $T                           content,
+       $T -> Printable_tree         format_element
+     ) =
+   [
+     "<script type = \"text/javascript\" language=\"JavaScript\">",
+       "function doscroll_",idnum,"(dx,dy) {\n", 
+       "  if (document.layers) { var c_",idnum," = eval(document.cs_",idnum,"); } else\n",
+       "  if (document.getElementById) {var c_",idnum," = eval(\"document.getElementById('cs_",
+                                                            idnum,"').style\"); } else\n", 
+       "  if (document.all) { var c_",idnum," = eval(document.all.cs_",idnum,".style); };\n",
+       "  var x_",idnum," = parseInt(c_",idnum,".left);\n",
+       "  var y_",idnum," = parseInt(c_",idnum,".top);\n",
+       "  if ((x_",idnum,"+dx <= 0) && (x_",idnum,"+dx > ",width-content_width,"))\n",
+       "    { x_",idnum," += dx; }\n", 
+       "  if ((y_",idnum,"+dy <= 0) && (y_",idnum,"+dy > ",height-content_height,"))\n",
+       "    { y_",idnum," += dy; }\n",
+       "  c_",idnum,".left = x_",idnum,";\n",
+       "  c_",idnum,".top = y_",idnum,";\n",
+       "   }\n", 
+     "</script>\n",
+     "<table>",
+      "<tbody>",
+       "<tr>",
+         "<td align=left valign=top",
+            " width=",width,
+            " height=",height,
+            ">",
+            "<div id=\"ws_",idnum,"\" style=\"position:absolute; width:",width,"px; height:",height,"px;",
+                                       " clip:rect(0px ",width,"px ",height,"px 0px)\">",
+              "<div id=\"cs_",idnum,"\" style=\"position:absolute; left:0px; top:0px\">", 
+                 format_element(content), 
+              "</div>", 
+            "</div>",
+         "</td>",
+         "<td valign=bottom>",
+           "<table>",
+            "<tbody>",
+             "<tr><td><img alt=\"sroll up\" src=\"scrollup.gif\"   onmousedown=\"doscroll_", idnum,"(0,20);\"></td></tr>",
+             "<tr><td><img alt=\"scroll down\" src=\"scrolldown.gif\" onmousedown=\"doscroll_", idnum,"(0,-20);\"></td></tr>",
+            "</tbody>",
+           "</table>",
+         "</td>",
+       "</tr>",
+       (if content_width > width then 
+        [
+        "<tr>",
+          "<td align=right>",
+             "<table>",
+              "<tbody>",
+               "<tr>",
+                 "<td><img alt=\"scroll left\" src=\"scrollleft.gif\" onmousedown=\"doscroll_", idnum,"(20,0);\"></td>",
+                 "<td><img alt=\"scroll right\" src=\"scrollright.gif\" onmousedown=\"doscroll_", idnum,"(-20,0);\"></td>",
+               "</tr>",
+              "</tbody>",
+             "</table>",
+           "</td>",
+         "</tr>",
+        ] else [ ]), 
+      "</tbody>",
+     "</table>"
+   ]. 
+
+
+     
+     
+define Printable_tree
+  add_css_files
+  (
+    List(CSS_File)   l
+  ) =
+  if l is 
+  {
+    [ ]     then [ ], 
+    [h . t] then 
+      since h is css_file(file_name, media),
+       [ ["<link rel=\"stylesheet\" type=\"text/css\" href=\"" + file_name + "\" media=\""+to_String(media)+"\"/>\n" ]
+         . add_css_files(t)]
+  }.
+
+  
+define Printable_tree
+  add_css_styles
+  (
+    List(CSS_Style) css_styles
+  ) =
+  
+  if css_styles is
+  {
+    []      then [],
+    [_ . _] then [ "<style type=\"text/css\"><!--\n",
+                  format_css_styles(css_styles), 
+                 "  --></style>\n"
+               ]
+  }.
+  
+   
+   // The function below formats a datum of type 'HTML_Any($T)'. 
+   
+define Printable_tree
+  format
+  ( 
+    CommonInfo                 cinfo, 
+    Var(Int)                   ic_v, 
+    HTML_Any($T)               element,
+    $T -> Printable_tree       format_element,  // able to format a datum of type $T
+    Bool                       is_https,
+    Var(Int)                   action_count,
+    Var(List(HTML_Head_Tag))   head_tags
+  ) =
+  if cinfo is info(common_name,http_port,https_port,site_directory,secret) then 
+  if element is 
+  {
+    any_text(opts , t)            then 
+      if opts is
+      {
+        []      then [t],
+        [_ . _] then ["<span", format_attrs(opts), ">",t,"</span>"]
+      },
+    any_preformated(opts,s)       then 
+     ["<span", format_text_options(opts), "><pre>",s,"</pre></span>"], 
+     //["<pre>",s,"</pre>"], 
+    any_paragraph(opts,l)         then 
+     ["<p", format_text_options(opts), ">", flat(map(($T e) |-> format_element(e), l)),"</p>\n"], 
+    any_image(opts, url, _alt)                then 
+      with alt = if _alt = "" then "" else "alt=\""+_alt+"\"",
+     ["<img ",alt," src=\"",url,"\" ", format_attrs(opts)," />"],
+    any_image(opts, url, alt, w, h)            then 
+     ["<img alt=\"",alt,"\" src=\"",url,"\" width=\"",w,"\" height=\"",h,"\" ", format_attrs(opts)," />"],
+    any_table(opts,h_row, rows, f_row) then 
+     ["<table",format(reverse(opts),false),">",
+        format(h_row, format_element),
+        "<tbody>",format(rows,format_element),"</tbody>",
+        format(f_row, format_element),
+        "</table>\n"],
+    any_center(e)                 then 
+     ["<center>",format_element(e),"</center>"], 
+    any_mail_to(email,elem)       then
+     ["<a href=\"mailto:",email,"\">",format_element(elem),"</a>"], 
+    any_scroller(w,h,cw,ch,c)     then 
+     format_scroller(w,h,cw,ch,new_idnum(ic_v),c,format_element), 
+    any_fixed_size(w,h,c)         then 
+     with url = create_secondary_document(site_directory,secret,format_element,c,w), 
+     ["<object data=\"",url,"\" type=\"text/html\" width=\"",format(w),"\" height=\"",format(h),"\" >",
+         "secondary document",
+      "</object>"], 
+    any_fixed_size_2(w,h,fn)        then
+     with url = fn+"?zauth="+make_authorization(site_directory,secret,
+             fn),
+     ["<object data=\"",url,"\" type=\"text/html\" width=\"",format(w),"\" height=\"",format(h),"\" >",
+         "secondary document",
+      "</object>"],          
+    any_actioner(c,t,a,an,eo,ja,fn)  then 
+     format_actioner(cinfo,c,t,a,an,eo,ja,fn,is_https, action_count, ic_v, head_tags),
+     
+    any_foreign_link_new(target, aspect, url)    then
+     format_foreign_link(target, aspect, url, is_https, cinfo, action_count, ic_v, head_tags),
+     
+    any_foreign_link(options,url)    then
+     ["<a href=\"",url,"\" ", format_text_options(options), "></a>"],  // IE7 doesn't support the form <a href="..." />
+    any_foreign_link(options,url,name)    then
+     ["<a href=\"",url,"\"><span ", format_text_options(options), ">",name,"</span></a>"], 
+    any_private_download(url,name,extra_ext,action)  then 
+     format_private_download(cinfo,url,name,extra_ext,action),
+    any_div(options, l)                   then
+     [format_div_option(options), flat(map(($T e) |-> format_element(e), l)),"</div>\n"],
+    any_div_empty(options)                then
+     [format_div_option(options), "</div>\n"],
+    any_coreattrs(attributs)              then
+     [format_attrs(attributs)],
+    any_ol(opts, l)         then 
+     ["<ol", format_attrs(opts), ">", flat(map(($T e) |-> format_element(e), l)),"</ol>\n"], 
+    any_ul(opts, l)         then 
+     ["<ul", format_attrs(opts), ">", flat(map(($T e) |-> format_element(e), l)),"</ul>\n"],
+    any_li(opts, l)         then 
+     ["<li", format_attrs(opts), ">", flat(map(($T e) |-> format_element(e), l)),"</li>\n"],
+    any_button(options, l)  then
+     [["<button" + format_attrs(options) + ">"], flat(map(($T e) |-> format_element(e), l)),"</button>\n"],
+    any_i(opts,t)           then
+      if t = "" then
+        ["<i", format_attrs(opts), "></i>\n"]
+      else
+        ["<i", format_attrs(opts), ">",t,"</i>\n"],
+    any_span(opts , t)            then 
+       ["<span", format_attrs(opts), ">",t,"</span>"]
+    any_hr(opts)            then
+      ["<hr", format_attrs(opts),">"]
+    }
+.
+
+
+   
+  //    *** [5.8] Formating 'in form' elements. 
+
+
+//public define Printable_tree
+//  format
+//  (
+//    HTML_tooltip  tooltip
+//  )=
+//  if tooltip is
+//  {
+//    html_tooltip(title, keyword, width)                           then
+//      ["<a id=\"help_",keyword,"\" class=\"jTipu jTip_help\" name=\"",title,"\" href=\"/?a=ajax_show_tooltip&amp;tooltip_id=",keyword,(if width > 0 then ["&width=",width,"\""] else ["\""]), "></a>"],
+//
+//    html_tooltip_ext(title, extend_type, class_suffix, ext_args)  then
+//      with extra_args = format_extra_operands(ext_args),
+//      ["<a id=\"jTip\" class=\"jTipu jTip_",class_suffix,"\" name=\"",title,"\" href=\"/?a=ajax_show_tooltip&amp;tooltip_ext=",extend_type+extra_args,"\"></a>"]
+//  }.
+
+public define List(CoreAttrs)
+  extract_attributes
+  (
+    HTML_tooltip  tooltip
+  )=
+  if tooltip is
+  {
+    html_tooltip(title, keyword, width)                           then  //TODO
+      []
+      //["<a id=\"help_",keyword,"\" class=\"jTipu \" name=\"",title,"\" href=\"/?a=ajax_show_tooltip&tooltip_id=",keyword,(if width > 0 then ["&width=",width,"\""] else ["\""]), "><i class=\"fa fa-info\" aria-hidden=\"true\" style=\"color:#2e6da4\"></i></a>"],
+
+    html_tooltip_ext(title, extend_type, class_suffix, ext_args)  then  //TODO
+      //[]
+      with extra_args = format_extra_operands(ext_args),
+      [id("jTip"), class("jTipu jTip_"+class_suffix), data("name",title), data("href", "/?a=ajax_show_tooltip&tooltip_ext="+extend_type+extra_args)]
+      
+    html_tooltip_ext(title, extend_type, ext_args)  then  //TODO
+      with extra_args = format_extra_operands(ext_args),
+      [id("jTip"), class("jTipu"), data("name",title), data("href", "/?a=ajax_show_tooltip&tooltip_ext="+extend_type+extra_args)]
+//      []
+      //with extra_args = format_extra_operands(ext_args),
+      //["<a id=\"jTip\" class=\"jTipu \" name=\"",title,"\" href=\"/?a=ajax_show_tooltip&tooltip_ext=",extend_type+extra_args,"\"><i class=\"fa fa-info\" aria-hidden=\"true\" style=\"color:#2e6da4\"></i></a>"],
+
+    html_tooltip(title, web_action, extra_args)     then
+      [ id("jTip"), class("jTipu"), data("name", title), data("href", "/"+format_web_action_name(web_action, extra_args))
+      ]
+      
+      //["<a id=\"jTip\" class=\"jTipu \" name=\"",title,"\" href=\"/", format_web_action_name(web_action, extra_args) ,"\"><i class=\"fa fa-info\" aria-hidden=\"true\" style=\"color:#2e6da4\"></i></a>"],
+      
+  }
+.
+
+    literal_pt(["<span id=\"jTip\" class=\"jTipu\" data-name=\"",title,"\" data-href=\"/", format_web_action_name(web_action, extra_args) ,"\">"]),
+
+
+public define Printable_tree
+  format
+  (
+    HTML_tooltip  tooltip
+  )=
+  if tooltip is
+  {
+    html_tooltip(title, keyword, width)                           then
+      ["<a id=\"help_",keyword,"\" class=\"jTipu \" data-name=\"",title,"\" data-href=\"/?a=ajax_show_tooltip&tooltip_id=",keyword,(if width > 0 then ["&width=",width,"\""] else ["\""]), "><i class=\"fa fa-info\" aria-hidden=\"true\" style=\"color:#2e6da4\"></i></a>"],
+
+    html_tooltip_ext(title, extend_type, class_suffix, ext_args)  then
+      with extra_args = format_extra_operands(ext_args),
+      ["<a id=\"jTip\" class=\"jTipu jTip_",class_suffix,"\" data-name=\"",title,"\" data-href=\"/?a=ajax_show_tooltip&tooltip_ext=",extend_type+extra_args,"\"></a>"]
+      
+    html_tooltip_ext(title, extend_type, ext_args)  then
+      with extra_args = format_extra_operands(ext_args),
+      ["<a id=\"jTip\" class=\"jTipu \" data-name=\"",title,"\" data-href=\"/?a=ajax_show_tooltip&tooltip_ext=",extend_type+extra_args,"\"><i class=\"fa fa-info\" aria-hidden=\"true\" style=\"color:#2e6da4\"></i></a>"],
+    html_tooltip(title, web_action, extra_args)     then
+      ["<a id=\"jTip\" class=\"jTipu \" data-name=\"",title,"\" data-href=\"/", format_web_action_name(web_action, extra_args) ,"\"><i class=\"fa fa-info\" aria-hidden=\"true\" style=\"color:#2e6da4\"></i></a>"],
+      
+  }
+.
+  
+public define HTML_Off_Form
+  html_tooltip
+  (
+    String                title,
+    WEB_Action_Name       web_action,
+    List((String,String)) extra_args,
+    HTML_Off_Form         html_element,
+  )=
+  span([id("jTip"), class("jTipu"), data("name", title), data("href", "/"+format_web_action_name(web_action, extra_args))], html_element)
+.
+
+public define HTML_Off_Form
+  html_tooltip
+  (
+    String title,
+    String keyword,
+  ) =
+  literal_pt(format(html_tooltip(title, keyword, 0))).
+
+public define HTML_In_Form
+  html_tooltip
+  (
+    String title,
+    String keyword,
+  ) =
+  literal_pt(format(html_tooltip(title, keyword, 0))).
+
+public define HTML_Off_Form
+  html_tooltip
+  (
+    String  keyword,
+    Int     size,
+  ) =
+  literal_pt(format(html_tooltip("", keyword, size))).
+
+public define HTML_In_Form
+  html_tooltip
+  (
+    String  keyword,
+    Int     size,
+  ) =
+  literal_pt(format(html_tooltip("", keyword, size))).
+  
+public define Printable_tree
+  format_help
+  (
+    Printable_tree  label,  
+    HTML_Help       _help
+  ) =
+  if _help is
+  {
+    no_help                           then label,
+    tooltip(html_tooltip, position)   then 
+      if position is 
+      {
+        left  then pt_pt(format(html_tooltip),label),
+        right then pt_pt(label, format(html_tooltip))
+      }
+  }.
+  
+
+
+public define HTML_Label
+  label
+  (
+    String  text
+  )=
+  label(text, no_help).
+  
+   
+   
+   
+define Printable_tree
+  format
+  (
+     CommonInfo               cinfo, 
+     String                   fn,      // form_name
+     Var(Int)                 ic_v,    // idnum counter variable
+     HTML_In_Form             element,
+     Bool                     is_https,
+     Var(Int)                 action_count,
+     Var(List(HTML_Head_Tag))   head_tags
+  ) =
+   if cinfo is info(common_name,http_port,https_port,site_directory,secret) then 
+   with format_element = (HTML_In_Form e) |-> format(cinfo, fn, ic_v, e, is_https, action_count, head_tags), 
+   if element is 
+     {
+       empty                       then [],
+       literal_pt(t)               then t, 
+       literal(t)                  then [t], 
+       sequence(l)                 then flat(map(format_element,l))
+       text(opts,t)                then 
+         format(cinfo,ic_v,any_text(opts,t),format_element,is_https, action_count, head_tags), 
+       preformated(o,s)            then 
+         format(cinfo,ic_v,any_preformated(o,s),format_element,is_https, action_count, head_tags), 
+       paragraph(opts,t)           then 
+         format(cinfo,ic_v,any_paragraph(opts,t),format_element,is_https, action_count, head_tags), 
+       image(opts, url, alt)       then 
+         format(cinfo,ic_v,any_image(opts, url, alt),format_element,is_https, action_count, head_tags),
+       image(opts, url, alt, w, h) then 
+         format(cinfo,ic_v,any_image(opts, url, alt, w, h),format_element,is_https, action_count, head_tags),
+       table(opts,header_row,rows,footer_row)            then 
+         format(cinfo,ic_v,any_table(opts, header_row, rows, footer_row),format_element,is_https, action_count, head_tags),
+       center(e)                   then 
+         format(cinfo,ic_v,any_center(e),format_element,is_https, action_count, head_tags), 
+       mail_to(a,e)                then 
+         format(cinfo,ic_v,any_mail_to(a,e),format_element,is_https, action_count, head_tags), 
+       scroller(w,h,cw,ch,c)       then 
+         format(cinfo,ic_v,any_scroller(w,h,cw,ch,c),format_element,is_https, action_count, head_tags), 
+       actioner(c,t,a,an,eo,ja)    then 
+         format(cinfo,ic_v,any_actioner(c,t,a,an,eo,ja,success(fn)),format_element,is_https, action_count, head_tags),
+         
+       foreign_link_new(target, aspect, url)  then
+         format(cinfo,ic_v,any_foreign_link_new(target,aspect,url),format_element,is_https, action_count, head_tags),
+ 
+       foreign_link(options,url)  then
+         format(cinfo,ic_v,any_foreign_link(options,url),format_element,is_https, action_count, head_tags), 
+       foreign_link(options,url,name)  then
+         format(cinfo,ic_v,any_foreign_link(options,url,name),format_element,is_https, action_count, head_tags), 
+       private_download(url,name,extra,action)    then 
+         format(cinfo,ic_v,any_private_download(url,name,extra,action),format_element,is_https, action_count, head_tags),    
+       text_input(options, label_text, id, name, init, w)           then 
+         [ format_label(label_text, id), 
+           "<input type=\"text\" name=\"",name,"\" id=\"",id,"\" size=\"",w,"\" value=\"",encode_HTML_entities(init.value),"\"",format_attrs([class("in") . options])," />"],
+       text_input_ro(options, label_text, id, name, init, w)           then 
+         [ format_label(label_text, id), 
+           "<input readonly=\"readonly\" type=\"text\" name=\"",name,"\" id=\"",id,"\" size=\"",w,"\" value=\"",encode_HTML_entities(init.value),"\"",format_attrs([class("in") . options])," />"],
+       password_input(options, label_text, id, name, init, w)         then 
+         [ format_label(label_text, id), 
+           "<input type=\"password\" name=\"",name,"\" id=\"",id,"\" size=\"",w,"\" value=\"",encode_HTML_entities(init.value),"\"",format_attrs([class("in") . options])," />"],
+       text_area(options,label_text, id, n, init, w, h)          then
+         [ format_label(label_text, id), "<textarea ",format(options)," id=\"",id,"\" name=\"",n,"\" cols=\"",w,"\" rows=\"",h,"\">",encode_HTML_entities(init.value),"</textarea>"],
+       file_upload(options, label, id, n, w)            then 
+         [ format_label(label, id), 
+           "<input type=\"file\" id=\"",id,"\" size=\"",w,"\" name=\"",n,"\"",format_attrs([class("in") . options])," />"],
+       selector(options, label, id, n,s,cs)            then 
+         [ format_label(label, id), 
+          "<select id=\"",id,"\" name=\"",n,"\" size=\"",s,"\" ",format_attrs([class("in") . options]),">",format_choices(cs),"</select>"],
+       selector(options, label, id, n,s,cs,sd)         then 
+         [ format_label(label, id), 
+          "<select id=\"",id,"\" name=\"",n,"\" size=\"",s,"\" ",format_attrs([class("in") . options]),">",format_choices(cs,sd),"</select>"],
+       selector_c(options, label, id, n,s,cs)            then 
+         [ format_label(label, id), 
+          "<select id=\"",id,"\" name=\"",n,"\" size=\"",s,"\" ",format_attrs([class("in") . options]),">",format_choices(cs),"</select>"],
+       selector_c(options, label, id, n,s,cs,sd)         then 
+         [ format_label(label, id), 
+          "<select id=\"",id,"\" name=\"",n,"\" size=\"",s,"\" ",format_attrs([class("in") . options]),">",format_choices(cs,sd),"</select>"],
+   
+       radio_button(options, label, id, n, value, c)         then  
+         [ format_label(label, id), 
+           "<input type=\"radio\" name=\"",n,"\" id=\"",id,"\" value=\"",value,"\"",(if c then " checked=\"checked\"" else ""),format_attrs([class("in") . options])," />"],
+       radio_button_r(options, label, id, n, value, c)         then  
+         [ "<input type=\"radio\" name=\"",n,"\" id=\"",id,"\" value=\"",value,"\"",(if c then " checked=\"checked\"" else ""),format_attrs([class("in") . options])," />",
+           format_label(label, id)],
+       check_box(options, label, id, n, c)              then 
+         [ format_label(label, id), 
+           "<input type=\"hidden\" name=\"~",n,"\" value=\"~true\" /><input type=\"checkbox\" name=\"",n,"\" id=\"",id,"\" value=\"true\"",(if c then " checked=\"checked\" " else ""),format_attrs([class("in") . options])," />"]
+       check_box_r(options, label, id, n, c)              then 
+         [ "<input type=\"hidden\" name=\"~",n,"\" value=\"~true\" /><input type=\"checkbox\" name=\"",n,"\" id=\"",id,"\" value=\"true\"",(if c then " checked=\"checked\" " else ""),format_attrs([class("in") . options])," />",
+           format_label(label, id)]
+       div(options, e)                  then
+        format(cinfo,ic_v,any_div(options, e),format_element,is_https, action_count, head_tags),    
+       div_empty(options)               then
+        format(cinfo,ic_v,any_div_empty(options),format_element,is_https, action_count, head_tags),
+      hidden(_id, name, init)          then
+        since _id is html_Id(id),
+         ["<input type=\"hidden\"",(if id = "" then "" else " id=\""+id+"\"")," name=\"",name,"\" value=\"",encode_HTML_entities(init.value),"\" />"],
+       partial(p_content)               then
+        if p_content is partial_content(tags, html_elements) then
+          head_tags <- *head_tags + tags;
+
+          format(cinfo, ic_v, html_elements, is_https, action_count, head_tags),
+       br                               then ["<br>"],
+       progress(options, value, max)    then ["<progress max=\"",value,"\" value=\"",max,"\"",format_attrs(options),"></progress>"],
+       ol(opts, t)            then 
+         format(cinfo,ic_v,any_ol(opts,t),format_element,is_https, action_count, head_tags), 
+       ul(opts, t)            then 
+         format(cinfo,ic_v,any_ul(opts,t),format_element,is_https, action_count, head_tags), 
+       li(opts, t)            then 
+         format(cinfo,ic_v,any_li(opts,t),format_element,is_https, action_count, head_tags),
+       button(options, e)     then
+        format(cinfo,ic_v,any_button(options, e),format_element,is_https, action_count, head_tags),
+       i(opts, t)             then 
+         format(cinfo,ic_v,any_i(opts,t),format_element,is_https, action_count, head_tags),
+       span(opts,t)           then 
+         format(cinfo,ic_v,any_span(opts,t),format_element,is_https, action_count, head_tags)
+       hr(opts)           then 
+         format(cinfo,ic_v,any_hr(opts),format_element,is_https, action_count, head_tags)         
+     }. 
+
+   
+   
+   
+   
+   
+      *** [5.9] Formating 'off form' elements. 
+
+   The encryption type 'multipart/form-data' is required for a form containing an upload. 
+   
+   
+define Bool
+  contains_an_upload
+  (
+    HTML_In_Form form_content
+  ).   
+   
+define Bool
+  contains_an_upload
+  (
+    HTML_Row(HTML_In_Form) row
+  ) =
+  if row is
+  {
+    empty         then false,
+    row(_, cells) then
+      mapor(contains_an_upload,
+         map(content, cells))
+  }
+. 
+   
+define Bool
+  contains_an_upload
+  (
+    HTML_Footer_Row(HTML_In_Form) row
+  )=
+  if row is
+  {
+    empty                 then false,
+    footer_row(_, cells)  then 
+      mapor(contains_an_upload,
+            map(content,cells))
+  }.
+   
+define Bool
+   contains_an_upload
+    (
+      HTML_In_Form form_content
+    ) =
+   if form_content is
+     {
+   empty                      then false,
+   literal_pt(t)              then false,
+   literal(t)                 then false,
+   sequence(l)                then mapor(contains_an_upload,l),
+   text(o,t)                  then false,  
+   preformated(o,s)           then false, 
+   paragraph(o,l)             then mapor(contains_an_upload,l),  
+   image(o,u,a)               then false, 
+   image(o,u,a,w,h)           then false, 
+   table(o,_,rows,f_row)      then if mapor(contains_an_upload,rows) then true 
+                                                                     else contains_an_upload(f_row),
+   center(e)                  then contains_an_upload(e), 
+   mail_to(m,e)               then false, // 'e' may but should not contain an upload 
+   scroller(w,h,cw,ch,e)      then contains_an_upload(e), 
+   actioner(c,t,a,an,eo,ja)   then false, 
+   foreign_link_new(_,_,_)    then false,
+   foreign_link(o,u)          then false,
+   foreign_link(o,u,n)        then false,
+   private_download(p,n,e,a)  then false, 
+   text_input(o,lt,l,n,i,w)     then false,
+   text_input_ro(o,lt,l,n,i,w)  then false,
+   password_input(o,lt,l,n,i,w) then false,
+   text_area(o,lt,id,n,i,w,h)   then false, 
+   file_upload(o,l,i,n,w)     then true, 
+   selector(o,l,i,n,s,c)      then false, 
+   selector(o,l,i,n,s,c,p)    then false,  
+   selector_c(o,l,i,n,s,c)    then false, 
+   selector_c(o,l,i,n,s,c,p)  then false,  
+   radio_button(o,_,_,n,v,c)  then false,
+   radio_button_r(o,_,_,n,v,c)  then false,
+   check_box(o,_,_,n,c)       then false,
+   check_box_r(o,_,_,n,c)     then false,
+   div(o,l)                   then mapor(contains_an_upload,l), //contains_an_upload(c),
+   div_empty(o)               then false,
+   hidden(_,_,_)              then false,
+   partial(_)                 then false,
+   br                         then false,
+   progress(_,_,_)            then false,
+   ol(_,l)                    then mapor(contains_an_upload,l),
+   ul(_,l)                    then mapor(contains_an_upload,l),
+   li(_,l)                    then mapor(contains_an_upload,l),
+   button(_,_)                then false,
+   i(_,_)                     then false,
+   span(_,_)                  then false,
+   hr(_)                      then false
+  }
+.
+   
+define String
+  enctype
+  (
+      List(HTML_In_Form) form_contents
+  )=
+  if mapor(contains_an_upload, form_contents) then 
+    " enctype=\"multipart/form-data\""
+  else 
+    ""
+.
+ 
+define Printable_tree
+  format_href
+  (
+    A_href _href
+  )=
+  if _href is
+  {
+    href(str)           then if str = "" then [] else [" href=\"", str, "\""],
+    href(action, extra) then [" href=\"",format_web_action_name(action, extra), "\""]
+  }
+.
+
+define Printable_tree
+  format_target
+  (
+    A_target  _target
+  )=
+  [" target=\"",
+    if _target is
+    {
+      _blank  then  "_blank",
+      _self   then  "_self",
+      _parent then  "_parent",
+      _top    then  "_top",
+      framename(name) then  name
+    },
+  "\""]
+.
+
+define Printable_tree
+  format
+  (
+    CommonInfo               cinfo, 
+    Var(Int)                 ic_v,             // 'idnum' counter variable
+    List(HTML_Off_Form)      elements,
+    Bool                     is_https,
+    Var(Int)                 action_count,
+    Var(List(HTML_Head_Tag)) head_tags
+  ).
+
+define Printable_tree
+  format
+  (
+    CommonInfo               cinfo, 
+    Var(Int)                 ic_v,             // 'idnum' counter variable
+    HTML_Off_Form            element,
+    Bool                     is_https,
+    Var(Int)                 action_count,
+    Var(List(HTML_Head_Tag)) head_tags
+  ) =
+   if cinfo is info(common_name,http_port,https_port,site_directory,secret) then 
+   with format_element = (HTML_Off_Form e) |-> format(cinfo, ic_v, e, is_https, action_count, head_tags), 
+  if element is 
+  {
+    a(opts, _href, _target, l)      then ["<a ", format_attrs(opts), format_href(_href), format_target(_target), ">",flat(map(format_element,l)),"</a>\n"],
+    empty                           then [],
+       literal_pt(t)                then t, 
+       literal(t)                   then [t], 
+       sequence(l)                  then flat(map(format_element,l)),
+       text(opts,t)                 then 
+         format(cinfo,ic_v,any_text(opts,t),format_element,is_https, action_count, head_tags), 
+//       table(opts,header_row, rows, footer_row) then 
+//         format(cinfo,ic_v,any_table(opts,header_row, rows, footer_row),format_element,is_https, action_count, head_tags), 
+       actioner(c,t,a,an,eo,ja)     then 
+         format(cinfo,ic_v,any_actioner(c,t,a,an,eo,ja,failure),format_element,is_https, action_count, head_tags), 
+       actioner(c,t,a,an,eo,ja,fn)  then 
+         format(cinfo,ic_v,any_actioner(c,t,a,an,eo,ja,success(fn)),format_element,is_https, action_count, head_tags), 
+       foreign_link_new(target, aspect, url)  then
+         format(cinfo,ic_v,any_foreign_link_new(target,aspect,url),format_element,is_https, action_count, head_tags),
+//       foreign_link(options,url)       then
+//         format(cinfo,ic_v,any_foreign_link(options,url),format_element,is_https, action_count, head_tags), 
+       foreign_link(options,url,name)       then
+         format(cinfo,ic_v,any_foreign_link(options,url,name),format_element,is_https, action_count, head_tags), 
+       private_download(url,name,extra,action)     then 
+         format(cinfo,ic_v,any_private_download(url,name,extra,action),format_element,is_https, action_count, head_tags),    
+//       form(fn, attributs, l)        then
+//         [
+//           "<form id=\"",fn,"\"",
+//           format(cinfo,ic_v,any_coreattrs(attributs),format_element,is_https, action_count, head_tags),
+//           " method=\"post\"",
+//              enctype(l),
+//              " action=\"http",(
+//                         if is_https then "s" else "",
+//                         "://",common_name,":",to_decimal(http_port),"/\">",      
+//                                      // action is set dynamically by
+//                                      // the actioner using JavaScript
+//              if fn is html_Id(id) then
+//              flat(map((HTML_In_Form e) |-> format(cinfo,id,ic_v,e,is_https, action_count, head_tags), l)),               
+//           "</form>"
+//         ]
+//       form(fn,attributs, action, extra_ops, l)        then
+//         with url = make_actioner_url(cinfo, same, same,
+//                                      action, extra_ops, is_https), 
+//         [
+//           "<form id=\"",fn,"\"",
+//           format(cinfo,ic_v, any_coreattrs(attributs),format_element,is_https, action_count, head_tags),
+//           " method=\"post\"",
+//              enctype(l),
+//              " action=\"" + url + "\">",
+////              " action=\"http",
+////                         if is_https then "s" else "",
+////                         "://",common_name,":",http_port,"/\">",      
+//                                      // action is set dynamically by
+//                                      // the actioner using JavaScript
+//              if fn is html_Id(id) then
+//              flat(map((HTML_In_Form e) |-> format(cinfo,id,ic_v,e,is_https, action_count, head_tags),l)),               
+//           "</form>"
+//         ],
+//       in_form(fn, content)             then                
+//          if fn is html_Id(id) then
+//            format(cinfo,id,ic_v, content,is_https, action_count, head_tags), 
+       div(options, p_content)      then
+        with html_elements = map((HTML_Partial_Content pc) |-> since pc is partial_content(tags, html_elem), head_tags <- *head_tags +tags; html_elem, p_content),
+            
+          format(cinfo, ic_v, any_div(options, html_elements), format_element, is_https, action_count, head_tags),    
+       iframe(options, css_styles, css_files, js_files, body) then
+          println("formating iframe");
+          if body is body(body_options,elem) then
+          [ "<iframe", format_attrs(options), " srcdoc=\"\n",
+          
+            encode_HTML_quote(to_String([
+            "<html style=\"margin: 0pt; padding: 0pt;\">\n",
+            "<head>\n",
+            add_css_styles(css_styles),
+            add_css_files(css_files),
+            add_js_files(js_files),
+            "</head>\n",
+            "<body ", format_attrs(body_options), ">\n",                       // format body options
+            format(cinfo,ic_v, elem ,is_https, action_count, head_tags), 
+            "</body>\n",
+            "</html>\n",])),
+            
+            "\"></iframe>\n",
+          ],
+       partial(p_content)           then
+        if p_content is partial_content(tags, html_elements) then
+          head_tags <- *head_tags + tags;          
+          format(cinfo, ic_v, html_elements, is_https, action_count, head_tags),
+//       i(opts, t)             then 
+//         format(cinfo,ic_v,any_i(opts,t),format_element,is_https, action_count, head_tags),
+       html_tag(tag_name, opts, l)    then ["<",tag_name, format_attrs(opts), ">", flat(map(format_element,l)), "</",tag_name,">\n"],
+       html_void_tag(tag_name, opts)  then ["<",tag_name, format_attrs(opts), ">"],       
+     }.
+
+define Printable_tree
+  format
+  (
+    CommonInfo               cinfo, 
+    Var(Int)                 ic_v,             // 'idnum' counter variable
+    List(HTML_Off_Form)      elements,
+    Bool                     is_https,
+    Var(Int)                 action_count,
+    Var(List(HTML_Head_Tag)) head_tags
+  ) =
+   if cinfo is info(common_name,http_port,https_port,site_directory,secret) then 
+   flat(map((HTML_Off_Form element) |->
+    format(cinfo, ic_v, element, is_https, action_count, head_tags),
+    elements))
+.   
+
+      *** [5.10] Formating meta-tags. 
+   
+define Printable_tree
+   format_keywords
+     (
+       List(String) l
+     ) =
+   if l is 
+     {
+       []      then [ ], 
+       [h . t] then if t is []
+         then [h]
+         else [h , ", " . format_keywords(t)]
+     }. 
+   
+   
+define Printable_tree
+  format
+  (
+    CommonInfo        cinfo,
+    HTML_Meta         m,
+    Bool              is_https
+  ) =
+  if m is 
+  {
+    keywords(l)        then ["<meta name=\"keywords\" content=\"",format_keywords(l),"\" />\n"],
+    refresh(co,ta,an,delay)  then 
+                               ["<meta http-equiv=\"Refresh\" content=\"",delay,"; URL=",
+                                    make_actioner_url(cinfo,co,ta,an,[],is_https),"\" />\n"], 
+    refresh(url,delay) then 
+                               ["<meta http-equiv=\"Refresh\" content=\"",delay,"; URL=",url,"\" />\n"], 
+     meta(n,c)          then ["<meta name=\"",n,"\" content=\"",c,"\" />\n"], 
+     http_equiv(n,c)    then ["<meta http-equiv=\"",n,"\" content=\"",c,"\" />\n"],
+     generic_meta(l)    then ["<meta ",
+                                  flat(map(((String,String) p) |-> if p is (n,v) then [n,"=\"",v,"\" "],
+                                      l)),
+                                 " />\n"],
+     literal(s)         then [s]
+  }
+.
+     
+define Printable_tree // c'est le nôtre et c'est meilleur
+   format
+     (
+       HTML_Meta         m,
+     ) =
+   if m is 
+     {
+       keywords(l)        then ["<meta name=\"keywords\" content=\"",format_keywords(l),"\" />\n"],
+       refresh(co,ta,an,delay)  then 
+                               ["<!-- TODO refresh(co,ta,an,delay) --> "], // TODO
+       refresh(url,delay) then 
+                               ["<meta http-equiv=\"Refresh\" content=\"",delay,"; URL=",url,"\" />\n"], 
+       meta(n,c)          then ["<meta name=\"",n,"\" content=\"",c,"\" />\n"], 
+       http_equiv(n,c)    then ["<meta http-equiv=\"",n,"\" content=\"",c,"\" />\n"],
+       generic_meta(l)    then ["<meta ",
+                                  flat(map(((String,String) p) |-> if p is (n,v) then [n,"=\"",v,"\" "],
+                                      l)),
+                                 " />\n"],
+       literal(s)         then [s]
+     }.
+   
+   
+define Printable_tree
+   format
+     (
+       CommonInfo         cinfo,
+       List(HTML_Meta)    metas,
+       Bool               is_https,
+       String             charset
+     ) =
+   if metas is 
+     {
+       []      then [format(cinfo,http_equiv("content-type",
+                                                        "text/html; charset="+charset),is_https)],
+       [h . t] then [format(cinfo,h,is_https) 
+                     . format(cinfo,t,is_https,charset)]
+     }.
+
+ define List(HTML_Head_Tag)
+  rebuild_html_head_tags
+  (
+    List(HTML_Head_Tag) lwf,
+    List(HTML_Head_Tag) so_far
+  ) =
+  if lwf is
+  {
+    [] then so_far,
+    [h . t] then
+      rebuild_html_head_tags(t, append_once(so_far, h))
+  }.
+  
+define Printable_tree
+  _format_html_head
+  (
+    List(HTML_Head_Tag)         lwf,
+    Printable_tree              so_far,
+    Dictionary(String, Word32)  js_dict
+  )
+  =
+    //with lwf_ = rebuild_html_head_tags(lwf, []),
+    if lwf is
+    {
+      []        then reverse(so_far),
+      [ h . t]  then
+        if h is
+        {
+          meta(meta)        then
+            [format(meta) . _format_html_head(t, so_far, js_dict)],
+          title(title)      then
+            ["<title>"+title+"</title>\n" . _format_html_head(t, so_far, js_dict)],
+          js(jsf)           then
+            since jsf is js_file(filename, _),
+            if js_dict.get(filename) is
+            {
+              failure then
+                forget(js_dict.insert(filename, 0));
+                [add_js_files([jsf]) . _format_html_head(t, so_far, js_dict)],
+
+              success(_) then
+                _format_html_head(t, so_far, js_dict),
+            }
+          js_inline(jsi)    then
+            if jsi is
+            {
+                script(type, _) then
+                  ["<script type=\"" + type + "\">"+content(jsi)+"</script>\n" . _format_html_head(t, so_far, js_dict)],
+            }
+          css(cssf)         then
+            since cssf is css_file(file_name, media),          
+            ["<link rel=\"stylesheet\" type=\"text/css\" href=\""+file_name+"\" media=\""+to_String(media)+"\" />\n" . _format_html_head(t, so_far, js_dict)],
+
+          css_inline(cssi)  then
+            ["<style>"+cssi+"</style>\n" . _format_html_head(t, so_far, js_dict)]
+            
+          link(link_attrs)  then
+            ["<link " + to_String(link_attrs) + " />\n" . _format_html_head(t, so_far, js_dict)]
+        }
+    }
+.
+
+public define Printable_tree
+  format_html_head
+  (
+    List(HTML_Head_Tag) lwf,
+    String              charset
+  )
+  =
+  _format_html_head((List(HTML_Head_Tag))[ meta(http_equiv("content-type", "text/html; charset="+charset)) . lwf], [], make_dictionary((Word32)0, dictionaryComparerString)).
+
+public define Printable_tree
+  format_html_head
+  (
+    List(HTML_Head_Tag) lwf
+  )
+  =
+  _format_html_head(lwf, [], make_dictionary((Word32)0, dictionaryComparerString)).
+
+  
+public type HTML_ajax_content:
+  html_ajax_content( String html_body, String script, List(String) js_file, List(String) css_file).
+  
+public define HTML_ajax_content
+  sort_head_tag
+  (
+    List(HTML_Head_Tag) lwf,
+    String              script,
+    List(String)        js_file,
+    List(String)        css_file
+  )=
+  if lwf is
+  {
+    []        then  html_ajax_content("", script, reverse(js_file), reverse(css_file)),
+    [ h . t ] then
+        if h is
+        {
+          meta(meta)        then sort_head_tag(t, script, js_file, css_file),
+          title(title)      then sort_head_tag(t, script, js_file, css_file),
+          js(jsf)           then /*println("sort_head_tag jsf["+jsf.file_name+"]");*/sort_head_tag(t, script, [file_name(jsf) . js_file], css_file),
+          js_inline(jsi)    then /*println("sort_head_tag jsi["+jsi.content+"]");*/sort_head_tag(t, script + content(jsi), js_file, css_file),
+          css(cssf)         then sort_head_tag(t, script, js_file, [file_name(cssf) . css_file]),
+          css_inline(cssi)  then sort_head_tag(t, script, js_file, css_file),
+          link(_)           then sort_head_tag(t, script, js_file, css_file),
+        }  
+  }.
+  
+public define HTML_ajax_content
+  to_html_ajax_content
+  (
+    HTML_Off_Form content_HTML,
+    CommonInfo    cinfo
+  )=
+  //println("to_html_ajax_content(content_HTML, cinfo)");  
+  with p_content_head_tags = var((List(HTML_Head_Tag))[]),
+  with content = format(cinfo, var((Int)0), content_HTML, false, var(0), p_content_head_tags),
+  if sort_head_tag(*p_content_head_tags, "", [], []) is html_ajax_content(_, script, js_file, css_file) then
+    html_ajax_content(to_String(content), script, js_file, css_file).
+
+public define String
+  to_String
+  (
+    HTML_Off_Form content_HTML,
+    CommonInfo    cinfo
+  )=
+  //println("to_html_ajax_content(content_HTML, cinfo)");  
+  with p_content_head_tags = var((List(HTML_Head_Tag))[]),
+  with content = format(cinfo, var((Int)0), content_HTML, false, var(0), p_content_head_tags),
+  to_String(content)
+.
+
+
+public define JsonValue
+  to_html_ajax_content
+  (
+    HTML_Partial_Content  content_HTML,
+    CommonInfo            cinfo,
+    String                additional_script
+  )= 
+  //println("to_html_ajax_content(content_HTML, cinfo, additional_script)");
+  //println("additional_script"+additional_script);
+  since to_html_ajax_content(partial(content_HTML), cinfo) is html_ajax_content(html, script, js_files, css_files),
+  json_object([
+    json_member("html",      json_string(html)),
+    json_member("js_files",  to_json_array(js_files)),
+    json_member("css_files", to_json_array(css_files)),
+    json_member("script",    json_string(additional_script+script)),
+  ])
+.
+
+public define JsonValue
+  to_html_ajax_content
+  (
+    HTML_Partial_Content  content_HTML,
+    CommonInfo            cinfo
+  )= to_html_ajax_content(content_HTML, cinfo, "").
+  
+public define JsonValue
+  to_html_ajax_content
+  (
+    Printable_tree  content_HTML,
+    String          additional_script
+  )= 
+  //since to_html_ajax_content(partial(content_HTML), cinfo) is html_ajax_content(html, script, js_files, css_files),
+  json_object([
+    json_member("html",      json_string(to_String(content_HTML))),
+    json_member("js_files",  to_json_array([])),
+    json_member("css_files", to_json_array([])),
+    json_member("script",    json_string(additional_script)),
+  ])
+.
+
+public define AWP_Handler_Answer //Printable_tree
+  format
+  (
+    CommonInfo               cinfo,  
+    List(HTTP_header)        additional_headers,
+    HTTP_Answer              page,
+    Bool                     is_https,
+    String                   charset
+  )=
+  if cinfo is info(common_name,http_port,https_port,site_directory,secret) then 
+    with ic_v = var((Int)0), 
+      p_content_head_tags = var((List(HTML_Head_Tag))[]), //list of heat_tags extracted from partial_content during format of body content
+    if page is 
+    {
+       html_page(status, head_tags, body) then
+         if body is body(options,element) then
+         if format(status) is (status_string, status_headers) then
+          with
+           answer_body_body = (Printable_tree)
+           [  "<body ", format_attrs(options), ">",                       // format body options
+              format(cinfo,ic_v,element,is_https, var(0), p_content_head_tags), 
+              "</body>\n",
+              
+              "</html>"],
+           answer_body_header = 
+            [doctype_w3c_header,
+             // html_header,
+              
+              "<head>\n", format_html_head(head_tags + *p_content_head_tags, charset),"</head>\n",
+            ],
+          printable_tree([ 
+            "HTTP/1.1 " + status_string, crlf,
+            format_headers(standard_headers),
+             format_headers(standard_headers_for("text/html", length(answer_body_header) + length(answer_body_body), success(charset))),
+             format_headers(status_headers),
+             format_headers(additional_headers),
+             crlf,
+             answer_body_header .
+             answer_body_body
+           ]),
+         
+       html_page(status, title, head_tags, css_styles, css_files, js_files, script, body) then 
+         if body is body(options,element) then
+         if format(status) is (status_string, status_headers) then
+          with
+            answer_body_body = (Printable_tree)
+            [  "<body ", format_attrs(options), ">",                       // format body options
+              format(cinfo,ic_v,element,is_https, var(0), p_content_head_tags), 
+              "</body>\n",
+              "</html>"
+            ],
+            answer_body_header = 
+            [ doctype_w3c_header,
+              //html_header,
+              "<head>\n",
+              add_css_styles(css_styles),
+              add_css_files(css_files),
+              add_js_files(js_files),
+              add_script(script),
+              "<link rel=\"shortcut icon\" href=\"favicon.ico\" />\n", 
+              "<script type = \"text/javascript\" language=\"JavaScript\">",
+              "  function show_local_popup(divname,stvname) {",
+              "  if (document.layers) { var d = eval(document.divname); } else\n",
+              "  if (document.getElementById) { var d = eval(\"document.getElementById(divname)\"); } else\n",
+              "  if (document.all) { var d = eval(document.all.divname.style)};\n",
+              // " alert(typeof(eval(stvname))); ", 
+              " var s = eval(stvname); ", 
+              "  if (s[0]==0) ",
+              "   { s[0]=1; d.style.visibility = 'visible'; d.zIndex = 100; } else\n",
+              "   { s[0]=0; d.style.visibility = 'hidden'; }; }", 
+              "</script>\n",
+              "<title>",title,"</title>\n",              // put title
+              //format(cinfo,metas,is_https,charset),      // format the metas
+              format_html_head(head_tags + *p_content_head_tags, charset),
+              "</head>\n"
+           ],
+        printable_tree([
+          "HTTP/1.1 " + status_string, crlf,
+          format_headers(standard_headers),
+          format_headers(standard_headers_for("text/html", length(answer_body_header) + length(answer_body_body), success(charset))),
+          format_headers(status_headers),
+          format_headers(additional_headers),
+          crlf,
+             answer_body_header .
+             answer_body_body
+        ]),
+       
+       plain_text (HTTP_Status status, String text) then
+          if format(status) is (status_string, status_headers) then
+        printable_tree([
+           "HTTP/1.1 " + status_string, crlf,
+            format_headers(standard_headers),
+            format_headers(standard_headers_for("text/plain", length(text), success(charset))),
+            format_headers(status_headers),
+            format_headers(additional_headers),
+            crlf,
+            text . (Printable_tree)[]
+        ]),
+           
+       custom_text(HTTP_Status status, mime_type, String content) then
+          if format(status) is (status_string, status_headers) then
+        printable_tree([ 
+          "HTTP/1.1 " + status_string, crlf,
+            format_headers(standard_headers),
+            format_headers(standard_headers_for(to_String(mime_type), length(content), success(charset))),
+            format_headers(status_headers),
+            format_headers(additional_headers),
+            crlf,
+            content . (Printable_tree)[]
+          ]),
+          
+       custom_binary(HTTP_Status status, mime_type, ByteArray content, List(HTTP_header) other_headers) then
+          if format(status) is (status_string, status_headers) then
+        printable_tree([          
+          "HTTP/1.1 " + status_string, crlf,
+            format_headers(status_headers),
+            format_headers(standard_headers_for(to_String(mime_type), length(content), failure)),
+            format_headers(status_headers),
+            format_headers(other_headers),
+            format_headers(additional_headers),
+            crlf,
+            content . (Printable_tree)[]
+        ]),
+       
+       custom_tree(HTTP_Status status, mime_type, Printable_tree content) then
+        if format(status) is (status_string, status_headers) then
+        printable_tree([ 
+          "HTTP/1.1 " + status_string, crlf,
+            format_headers(standard_headers),
+            format_headers(standard_headers_for(to_String(mime_type), length(content), success(charset))),
+            format_headers(status_headers),
+            format_headers(additional_headers),
+            crlf .
+            content
+        ]),
+        
+       json(HTTP_Status status, JsonValue json_content) then
+          //with          start = unow,
+          with content = (Printable_tree)format_json(json_content),
+          //println(show_duration_string("HTTP json format json object ", start));
+          if format(status) is (status_string, status_headers) then
+        printable_tree([ 
+          "HTTP/1.1 " + status_string, crlf,
+          format_headers(standard_headers),
+            format_headers(standard_headers_for(to_String(mime_application_json), length(content), success(charset))),
+            format_headers(status_headers),
+            format_headers(additional_headers),
+            crlf .
+            content
+        ])
+        ,
+       send_file(file_path, c_disposition) then
+        send_file(file_path, c_disposition),
+        
+       http_raw(Printable_tree content) then 
+        printable_tree(content),
+       
+       html_content(HTTP_Status status, HTML_Off_Form content_HTML) then
+          if format(status) is (status_string, status_headers) then
+          with content = format(cinfo, ic_v, content_HTML, is_https, var(0), p_content_head_tags),
+        printable_tree([
+           "HTTP/1.1 " + status_string, crlf,
+            format_headers(standard_headers),
+            format_headers(standard_headers_for("text/html", length(content), success(charset))),
+            format_headers(status_headers),
+            format_headers(additional_headers),
+            crlf .
+            content
+          ]),
+       //HMTL content with some header   
+      html_partial_content(HTTP_Status status, HTML_Partial_Content p_content) then
+       
+        since p_content      is partial_content(head_tags, html_content),
+        since format(status) is (status_string, status_headers),
+          with
+            answer_body = (Printable_tree)
+            [  
+              format(cinfo, ic_v, html_content, is_https, var(0), p_content_head_tags), 
+            ],
+            answer_header = (Printable_tree)
+            [
+             // html_header,
+             format_html_head(head_tags + *p_content_head_tags),
+            ],
+        printable_tree([
+          "HTTP/1.1 " + status_string, crlf,
+             format_headers(standard_headers),
+             format_headers(standard_headers_for("text/html", length(answer_header) + length(answer_body), success(charset))),
+             format_headers(status_headers),
+             format_headers(additional_headers),
+             crlf,
+             answer_header .
+             answer_body
+           ]),          
+     }.   
+   
@@ -150,19 +150,19 @@ define List(CoreAttrs)
       right  then [class(html_class), style("margin-left: auto;")]
     }.
-public define HTML_Off_Form hide_info_line_btn = div([event(onclick, "this.parentNode.style.display=&quot;none&quot;;"), style("width: 16px; height: 16px; background: transparent url(&quot;"+icn16_cross+"&quot;) no-repeat scroll center center; float: right; display: inline; cursor: pointer;")], literal("")).
+public define HTML hide_info_line_btn = div([event(onclick, "this.parentNode.style.display=&quot;none&quot;;"), style("width: 16px; height: 16px; background: transparent url(&quot;"+icn16_cross+"&quot;) no-repeat scroll center center; float: right; display: inline; cursor: pointer;")], literal("")).
-public define HTML_In_Form
-  display_info_line
-  (
-    String html_id,
-    String html_class,
-    String txt,
-    Alignment align
-  ) =
-  div(get_info_line_attrbs(html_class, align), [partial(partial_content(hide_info_line_btn)), partial(partial_content(literal(txt)))]).
+//public define HTML_In_Form
+//  display_info_line
+//  (
+//    String html_id,
+//    String html_class,
+//    String txt,
+//    Alignment align
+//  ) =
+//  div(get_info_line_attrbs(html_class, align), [partial(partial_content(hide_info_line_btn)), partial(partial_content(literal(txt)))]).
-public define HTML_Off_Form
+public define HTML
   display_info_line
   (
     String html_id,
@@ -170,9 +170,9 @@ public define HTML_Off_Form
     String txt,
     Alignment align
   ) =
-  div(get_info_line_attrbs(html_class, align), sequence([hide_info_line_btn, partial(partial_content(literal(txt)))])).
+  div(get_info_line_attrbs(html_class, align), sequence([hide_info_line_btn, text(txt)])).
-public define HTML_Off_Form
+public define HTML
   display_main_info_line
   (
     String html_class,
@@ -181,7 +181,7 @@ public define HTML_Off_Form
   ) =
   display_info_line("informations", html_class, txt, align).
-public define HTML_Off_Form
+public define HTML
   display_main_info_line
   (
     String html_class,
@@ -189,7 +189,7 @@ public define HTML_Off_Form
   ) =
   display_info_line("informations", html_class, txt, left).
-public define HTML_Off_Form
+public define HTML
   show_page_message
   (
     Page_Message page_message
@@ -23,7 +23,7 @@ public type WEB_Plugin:
     String  date,
     //version
     (SQLite3DataBase db, HK_Database hk_db, VTM _vtm, (LogLevel, String) -> One   logger) -> List(WEB_Controller) get_controller,
-    (SQLite3DataBase db, WEB_Session, String type) -> Maybe(HTML_Partial_Content) get_typed_content
+    (SQLite3DataBase db, WEB_Session, String type) -> Maybe(HTML) get_typed_content
 //    (One dummy) -> Plugin_Left_Menu                                     get_plugin_left_menu
 //    (One dummy) -> Message                                              get_API,
 //    (Message message) ->  Message                                       call_API
@@ -40,7 +40,7 @@ public type WEB_Controller_Result:
   ),
   ajax(
     Maybe(WEB_Session)    mb_session, //modified session if success else failure
-    HTML_Partial_Content  content,
+    HTML  content,
     String                additional_script
   ),
   ajax(
@@ -56,12 +56,12 @@ public type WEB_Controller_Result:
     Maybe(WEB_Session)    mb_session, //modified session if success else failure
     //String                title,
     //Left_Menu             left_menu,
-    HTML_Partial_Content  content
+    HTML  content
   )
   //redraw with the current renderer, the given content
 //  redraw(
 //    Maybe(WEB_Session)    mb_session, //modified session if success else failure
-//    HTML_Partial_Content  content
+//    HTML  content
 //  )
 .
@@ -310,38 +310,11 @@ public define JS_File   js_file(String file_name) = js_file(file_name, []).
 public define CSS_File  css_file(String file_name)= css_file(file_name, all).
 public type CoreAttrs:...
-public type HTML_Partial_Content:...
 public type HTML_Body:...
-public type HTML_Off_Form:...
+public type HTML:...
 public type HTML_tooltip:...
 public type HTTP_Answer:...
-
-
-public type Text_Option:
-   core_attrs(List(CoreAttrs)),
-   size(Int),            // size of character font to use
-   font(String),           // name of character font to use (such as "helvetica",...)
-   color(RGB),             // color to be used for characters
-   italic, 
-   oblique, 
-   small_capitals, 
-   bold, 
-   underlined, 
-   left_justified,
-   right_justified,
-   justified,              // justified on both sides
-   line_through,
-   nowrap,
-   class(String),         //CSS class 
-   id(String),
-   style(String),
-   title(String),
-   attr(String, String).
-
-public type CSS_Style:
-   text_options(List(Text_Option)). 
-
-// Following types are define to prohib any arguments order error
+public type HTML_Head_Tag:...
 /**
  * String value for 'id' attribut
@@ -392,27 +365,6 @@ public type HTML_Label:
   )
 .
-public type InputAttrs:
-  id        (String),
-  class     (String),
-  style     (String),
-  title     (String),
-  lang      (String), 
-  dir       (Reading_Way),
-  accesskey  (Word8),
-  tabindex  (Int),
-  attr      (String, String),
-  event      (HtmlEvents, String),
-  //HTML5
-  data      (String name, String value).
-
-public type TextAreaOption:
-   input_attrs(List(InputAttrs)),
-   disabled,
-   read_only, 
-   wrap_lines
-.
-
 public type Actioner_Local_Action:
    close_window. 
@@ -433,131 +385,16 @@ public type Actioner_Target:
    other(String window_name, List(Other_Window_Option)). 
 public type Actioner_Aspect:
-   link                (List(Text_Option), String text, Maybe(String) name),// hypertext link
+   link                (List(CoreAttrs), String text, Maybe(String) name),// hypertext link
    img_link            (List(CoreAttrs),String img_url, String alt_text),
    push_button         (List(CoreAttrs),String text),
    button              (String url_off, String url_on),                    // rollover button
    button              (String url_off, String url_on, Int w, Int h),  // idem with size
    submit              (List(CoreAttrs),String text),
    immediate_selector  (List(CoreAttrs),WebArgName name, Int size, List((List(CoreAttrs),WebArgValue,String)) choices, Maybe(InitialValue) selected, String onchange_fn),
-   html                (List(CoreAttrs), HTML_Off_Form).
-   
-public define Actioner_Aspect html(HTML_Off_Form content) = html([], content).
-
-public type BackgroundOption:
-   repeat,              // repeat the background in both directions
-   repeat_horizontal,   // repeat the background only horizontally
-   repeat_vertical,     // repeat the background only verticall
-   no_repeat,           // don't repeat the background
-   center.    
-   
-public type Cell_Option:
-   core_attrs(List(CoreAttrs)),
-   left,                    // put the content of the cell on the left
-   h_center,                // center the content of the cell horizontally
-   right,                   // put the content of the cell on the right
-   top,                     // put the content of the cell upwards
-   v_center,                // center the content of tye cell vertically, 
-   bottom,                  // put the content of the cell downwards
-   base_line,               // align the content vertically according to base lines
-   background_color(RGB), 
-   background_image(String url, BackgroundOption), 
-   width(Int),              // sets a minimal width for the cell
-   percentage_width(Int), 
-   height(Int),             // sets a minimal height for the cell
-   columns(Int),            // lets the cell span over several columns
-   rows(Int),               // lets the cell span over several rows
-   nowrap,                  // do not allow text wrapping within the cell
-   style(String),           // in case nothing above is suitable
-   class(String class_name).
-
-public type HTML_Cell($T):
-   cell(List(Cell_Option) options, $T content). 
-
-public type HTML_Footer_Row($T):
-   empty,
-   footer_row(List(Cell_Option) options, List(HTML_Cell($T)) cells). 
-
-public type HTML_Row($T):
-  empty,
-  row(List(Cell_Option) options, List(HTML_Cell($T)) cells).
-
-public type HTML_Header_Cell($T):
-   header_cell(List(Cell_Option) options, $T content). 
-   
-public type HTML_Header_Row($T):
-   empty,
-   header_row(List(Cell_Option) options, List(HTML_Header_Cell($T)) cells). 
-
-  
-public type Table_Option:
-   core_attrs(List(CoreAttrs)),
-   background_color(RGB),                    // applied to all cells in the table
-   background_image(String url), 
-   border(Int   width_of_outer_edge,       // if not present, all values are 0
-          Int   width_of_top_of_relief,
-          Int   width_of_inner_edge,
-          RGB     border_color),
-   width(Int),               // sets a minimal width for the table
-   percentage_width(Int),
-   attr(String name, String value),
-   class(String class_name).
-   
+   html                (List(CoreAttrs), HTML).
-public type HTML_In_Form:
-  empty,
-  literal_pt            (Printable_tree), 
-  literal               (String), 
-  sequence              (List(HTML_In_Form) items), 
-  text                  (List(CoreAttrs), String the_text), 
-  preformated           (List(Text_Option), String), 
-  paragraph             (List(Text_Option), List(HTML_In_Form) content), 
-  image                 (List(CoreAttrs), String url, String alternate), 
-  image                 (List(CoreAttrs), String url, String alternate, Int width, Int height), 
-  table                 (List(Table_Option), HTML_Header_Row(HTML_In_Form), List(HTML_Row(HTML_In_Form)), HTML_Footer_Row(HTML_In_Form)), 
-  center                (HTML_In_Form), 
-  mail_to               (String email, HTML_In_Form element), 
-  scroller              (Int width, Int height, 
-                          Int content_width, Int content_height,
-                          HTML_In_Form content), 
-  actioner              (Actioner_Connection, Actioner_Target, Actioner_Aspect, 
-                          WEB_Action_Name action_name, List((String,String)) extra_ops, 
-                          List(Actioner_Local_Action)),
-  foreign_link_new      (Actioner_Target, Actioner_Aspect, String url),
-  foreign_link          (List(Text_Option), String url), 
-  foreign_link          (List(Text_Option), String url, String name),
-  private_download      (String abs_path, String name, String extra_ext, 
-                            Maybe((String,List((String,String)))) action),    
-  text_input            (List(CoreAttrs),      HTML_Label label,  HTML_Id id, WebArgName name, InitialValue init, Int width), 
-  text_input_ro         (List(CoreAttrs),      HTML_Label label,  HTML_Id id, WebArgName name, InitialValue init, Int width), 
-  password_input        (List(CoreAttrs),      HTML_Label label,  HTML_Id id, WebArgName name, InitialValue init, Int width), 
-  text_area             (List(TextAreaOption), HTML_Label label,  HTML_Id id, WebArgName name, InitialValue init, Int width, Int height), 
-  file_upload           (List(CoreAttrs),      HTML_Label label,  HTML_Id id, WebArgName name, Int width), 
-  selector              (List(CoreAttrs),      HTML_Label label,  HTML_Id id, WebArgName name, Int size, List(String) choices), 
-  selector              (List(CoreAttrs),      HTML_Label label,  HTML_Id id, WebArgName name, Int size, List(String) choices, InitialValue selected), 
-   // List((String,String)) = List((code,name)) where : 
-   //    code is the web-arg value
-   //    name appears in selector
-  selector_c            (List(CoreAttrs), HTML_Label label,  HTML_Id id, WebArgName name, Int size, List((List(CoreAttrs),WebArgValue,String)) choices), 
-  selector_c            (List(CoreAttrs), HTML_Label label,  HTML_Id id, WebArgName name, Int size, List((List(CoreAttrs),WebArgValue,String)) choices, InitialValue selected),
-  radio_button          (List(CoreAttrs), HTML_Label label,  HTML_Id id, WebArgName name, WebArgValue value, Bool checked), 
-  radio_button_r        (List(CoreAttrs), HTML_Label label,  HTML_Id id, WebArgName name, WebArgValue value, Bool checked), 
-  check_box             (List(CoreAttrs), HTML_Label label,  HTML_Id id, WebArgName name, Bool checked),
-  check_box_r           (List(CoreAttrs), HTML_Label label,  HTML_Id id, WebArgName name, Bool checked),
-  div                   (List(CoreAttrs), List(HTML_In_Form) content),
-  div_empty             (List(CoreAttrs)),
-  hidden                (HTML_Id id, WebArgName name, WebArgValue value),
-  partial               (HTML_Partial_Content),
-  br,
-  progress              (List(CoreAttrs), Int value, Int max),
-  ol                    (List(CoreAttrs), List(HTML_In_Form) content),  
-  ul                    (List(CoreAttrs), List(HTML_In_Form) content),
-  li                    (List(CoreAttrs), List(HTML_In_Form) content),
-  button                (List(CoreAttrs), List(HTML_In_Form) content),
-  i                     (List(CoreAttrs), String text),
-  span                  (List(CoreAttrs), String text),
-  hr                    (List(CoreAttrs))
-.
+public define Actioner_Aspect html(HTML content) = html([], content).
 public type HTML_Size:
    absolute(Int),        // in pixels
@@ -586,16 +423,14 @@ public type A_target:
 .
-public type HTML_Off_Form:
-   a                     (List(CoreAttrs), A_href, A_target, List(HTML_Off_Form) content),
+public type HTML:
+   a                     (List(CoreAttrs), A_href, A_target, List(HTML) content),
    empty,
    literal_pt            (Printable_tree),
    literal               (String),
-   sequence              (List(HTML_Off_Form) items), 
+   sequence              (List(HTML) items), 
    text                  (List(CoreAttrs), String the_text), 
-   table                 (List(Table_Option), HTML_Header_Row(HTML_Off_Form), List(HTML_Row(HTML_Off_Form)), HTML_Footer_Row(HTML_Off_Form)), 
-
    actioner              (Actioner_Connection, Actioner_Target, Actioner_Aspect, 
                           WEB_Action_Name action_name, List((String,String)) extra_ops, 
                           List(Actioner_Local_Action)), 
@@ -603,29 +438,21 @@ public type HTML_Off_Form:
                           WEB_Action_Name action_name, List((String,String)) extra_ops, 
                           List(Actioner_Local_Action), String form_name), 
    foreign_link_new     (Actioner_Target, Actioner_Aspect, String url),
-   foreign_link         (List(Text_Option), String url), 
-   foreign_link         (List(Text_Option), String url, String name), 
+   //foreign_link         (List(Text_Option), String url), 
+   //foreign_link         (List(CoreAttrs), String url, String name), 
    private_download     (String abs_path, String name, String extra_ext,
                             Maybe((String,List((String,String)))) action),    
-   //label                (String name),
-   form                 (HTML_Id form_id, List(CoreAttrs), List(HTML_In_Form) content),
-   form                 (HTML_Id form_id, List(CoreAttrs), 
-                           WEB_Action_Name action, List((String,String)) extra_ops,
-                           List(HTML_In_Form) content),
-  in_form               (HTML_Id form_id, HTML_In_Form content),
-  div                   (List(CoreAttrs), List(HTML_Partial_Content) p_content),
-  iframe                (List(CoreAttrs),
-                           List(CSS_Style)  /*styles*/,
-                           List(CSS_File)   /*css_files*/,
-                           List(JS_File)    /*js_files*/,
-                           HTML_Body        /*body*/),
-  partial               (HTML_Partial_Content),
-  //progress              (List(CoreAttrs), Int value, Int max),
-  //i                     (List(CoreAttrs), String text),
-  html_tag              (String tag_name, List(CoreAttrs), List(HTML_Off_Form) content),
+  head_tags              (List(HTML_Head_Tag) heads, List(HTML) content),
+  html_tag              (String tag_name, List(CoreAttrs), List(HTML) content),
   html_void_tag         (String tag_name, List(CoreAttrs))
 .
+public define HTML head_tags(List(HTML_Head_Tag) heads, HTML content) = head_tags(heads, [content]).
+public define HTML head_tags(HTML_Head_Tag head, List(HTML) contents) = head_tags([head], contents).
+public define HTML head_tags(HTML_Head_Tag head, HTML content) = head_tags([head], [content]).
+public define HTML head_tags(List(HTML_Head_Tag) heads) = head_tags(heads, []).
+public define HTML head_tags(HTML_Head_Tag head) = head_tags([head], []).
+
 public type Rel_attr:
   alternate,
@@ -737,22 +564,22 @@ public type HTML_Head_Tag:
   link(List(Link_attr) link_attrs)
 .
-public type HTML_Partial_Content:
-  partial_content
-  (
-    List(HTML_Head_Tag),
-    HTML_Off_Form
-  )
-.
+//public type HTML:
+//  partial_content
+//  (
+//    List(HTML_Head_Tag),
+//    HTML
+//  )
+//.
 public type HTML_Body:  
-   body(List(CoreAttrs) attrs, List(HTML_Off_Form) content).
+   body(List(CoreAttrs) attrs, List(HTML) content).
 public define HTML_Body
   body
   (
     List(CoreAttrs) attrs,
-    HTML_Off_Form   content
+    HTML   content
   )=
   body(attrs, [content])
 .
@@ -761,7 +588,7 @@ public define HTML_Body
   body
   (
     CoreAttrs       attr,
-    HTML_Off_Form   content
+    HTML   content
   )=
   body([attr], [content])
 .
@@ -770,7 +597,7 @@ public define HTML_Body
   body
   (
     CoreAttrs             attr,
-    List(HTML_Off_Form)   content
+    List(HTML)   content
   )=
   body([attr], content)
 .
@@ -778,7 +605,7 @@ public define HTML_Body
 public define HTML_Body
   body
   (
-    HTML_Off_Form   content
+    HTML   content
   )=
   body([], [content])
 .
@@ -849,20 +676,15 @@ public type CoreAttrs:
 public define CoreAttrs colspan(Int value)    = attr("colspan", to_String(value)).
 public define CoreAttrs rowspan(Int value)    = attr("rowspan", to_String(value)).
+public define CoreAttrs headers(String header_id) = attr("headers", header_id).
 public define CoreAttrs width(Int value)      = attr("width",   to_String(value)).
 public define CoreAttrs height(Int value)     = attr("height",  to_String(value)).
 public define CoreAttrs width_px(Int value)   = attr("width",   to_String(value)+"px").
 public define CoreAttrs height_px(Int value)  = attr("height",  to_String(value)+"px").
 public define CoreAttrs alt(String value)     = attr("alt",     value).
 public define CoreAttrs size(Int value)       = attr("size",    to_String(value)).
-
-public define CoreAttrs
-  boolean
-  (
-    String name
-  )=
-  attr(name, name)
-.
+public define CoreAttrs aria(String key, String value) = attr("aria-"+key, value).
+public define CoreAttrs boolean(String name)  = attr(name, name).
 public type HTTP_Answer:
    html_page    (HTTP_Status      /*http_status*/,
@@ -871,7 +693,7 @@ public type HTTP_Answer:
    html_page    (HTTP_Status      /*http_status*/,
                  String           /*title*/,
                  List(HTML_Head_Tag)  /*meta_tags*/, 
-                 List(CSS_Style)  /*styles*/,
+                 //List(CSS_Style)  /*styles*/,
                  List(CSS_File)   /*css_files*/,
                  List(JS_File)    /*js_files*/,
                  List(Script)     /*script*/,
@@ -894,9 +716,7 @@ public type HTTP_Answer:
                   Content_Disposition c_disposition), 
    http_raw     (Printable_tree),
    html_content (HTTP_Status      /*http_status*/,
-                 HTML_Off_Form),
-   html_partial_content (HTTP_Status      /*http_status*/,
-                 HTML_Partial_Content)
+                 HTML)
 .
 public define HTTP_Answer
+/*
+ * Created by PyramIDE.
+ * User: フランスのトトロ aka (David RENÉ) 
+ * Date: 29/05/2019
+ * Time: 18:41
+ * © David RENÉ
+ */
+transmit xlib/web/types/web_action_name.anubis
+transmit xlib/web/common.anubis 
+
+transmit xlib/web/multihost_http_server.anubis
+transmit xlib/web/json.anubis
+transmit xlib/web/widgets/left_menu.anubis
+read web/mime.anubis
+read tools/printable_tree.anubis
+
+public type WEB_Action_Allowed_Protocol:
+  http,
+  https,
+  http_https
+.
+
+public type Web_Action($State):
+   http_action  (String                                     name,  // name of action
+                 ($State) -> Bool                           allow, // true if action allowed
+                 (HTTP_Info          http_info, 
+                  List(Web_arg)      web_args,      // actually only 'operands' web arguments
+                  $State             state) -> $State       do_it),    
+   https_action (String                                     name,  // name of action
+                 ($State) -> Bool                           allow, // true if action allowed
+                 (HTTP_Info          http_info, 
+                  List(Web_arg)      web_args,      // actually only 'operands' web arguments
+                  $State             state) -> $State       do_it),    
+   http_https_action (String                                name, 
+                 ($State) -> Bool                           allow,
+                 (HTTP_Info          http_info, 
+                  List(Web_arg)      web_args,    
+                  $State             state) -> $State       do_it)
+.
+
+  This indicate the way of reading text. 
+public type Reading_Way:
+  ltr,  //the text is readable from "Left To Right" like english
+  rtl  //the text is readable from "Right To Left" like arabic
+.
+
+public type CSS_File_Media:
+  screen,     //Intended for non-paged computer screens.
+  tty,        //Intended for media using a fixed-pitch character grid, such as teletypes, terminals, or portable devices with limited display capabilities.
+  tv,         //Intended for television-type devices (low resolution, color, limited scrollability).
+  projection, //Intended for projectors.
+  handheld,   //Intended for handheld devices (small screen, monochrome, bitmapped graphics, limited bandwidth).
+  print,      //Intended for paged, opaque material and for documents viewed on screen in print preview mode.
+  braille,    //Intended for braille tactile feedback devices.
+  aural,      //Intended for speech synthesizers.
+  all.        //Suitable for all devices.
+
+public type HtmlEvents:
+  // Window Event Attributes
+  onafterprint,   //HTML5 Script to be run after the document is printed
+  onbeforeprint,  //HTML5 Script to be run before the document is printed
+  onbeforeunload, //HTML5 Script to be run when the document is about to be unloaded
+  onerror,        //HTML5 Script to be run when an error occurs
+  onhashchange,   //HTML5 Script to be run when there has been changes to the anchor part of the a URL
+  onload,         //      Fires after the page is finished loading
+  onmessage,      //HTML5 Script to be run when the message is triggered
+  onoffline,      //HTML5 Script to be run when the browser starts to work offline
+  ononline,       //HTML5 Script to be run when the browser starts to work online
+  onpagehide,     //HTML5 Script to be run when a user navigates away from a page
+  onpageshow,     //HTML5 Script to be run when a user navigates to a page
+  onpopstate,     //HTML5 Script to be run when the window's history changes
+  onresize,       //HTML5 Fires when the browser window is resized
+  onstorage,      //HTML5 Script to be run when a Web Storage area is updated
+  onunload,       //      Fires once a page has unloaded (or the browser window has been closed)
+  // Form element events
+  onblur,         //      Fires the moment that the element loses focus
+  onchange,       //      Fires the moment when the value of the element is changed
+  oncontextmenu,  //HTML5 Script to be run when a context menu is triggered
+  onfocus,        //      Fires the moment when the element gets focus
+  oninput,        //HTML5 Script to be run when an element gets user input
+  oninvalid,      //HTML5 Script to be run when an element is invalid
+  onreset,        //      Fires when the Reset button in a form is clicked
+  onsearch,       //      Fires when the user writes something in a search field (for <input="search">)
+  onselect,       //      Fires after some text has been selected in an element
+  onsubmit,       //      Fires when a form is submitted
+  // Keyboard events (Not valid in base, bdo, br, frame, frameset, head, html, iframe, meta, param, script, style, and title elements.)
+  onkeydown,      //      Fires when a user is pressing a key
+  onkeypress,     //      Fires when a user presses a key
+  onkeyup,        //      Fires when a user releases a key
+  // Mouse events (Not valid in base, bdo, br, frame, frameset, head, html, iframe, meta, param, script, style, and title elements.)
+  onclick,        //      Fires on a mouse click on the element
+  ondblclick,     //      Fires on a mouse double-click on the element
+  onmousedown,    //      Fires when a mouse button is pressed down on an element
+  onmousemove,    //      Fires when the mouse pointer is moving while it is over an element
+  onmouseout,     //      Fires when the mouse pointer moves out of an element
+  onmouseover,    //      Fires when the mouse pointer moves over an element
+  onmouseup,      //      Fires when a mouse button is released over an element
+  onwheel,        //HTML5 Fires when the mouse wheel rolls up or down over an element
+  //Drag Events
+  ondrag,         //HMTL5 Script to be run when an element is dragged
+  ondragend,      //HTML5 Script to be run at the end of a drag operation
+  ondragenter,    //HTML5 Script to be run when an element has been dragged to a valid drop target
+  ondragleave,    //HTML5 Script to be run when an element leaves a valid drop target
+  ondragover,     //HTML5 Script to be run when an element is being dragged over a valid drop target
+  ondragstart,    //HTML5 Script to be run at the start of a drag operation
+  ondrop,         //HTML5 Script to be run when dragged element is being dropped
+  onscroll,       //HTML5 Script to be run when an element's scrollbar is being scrolled
+  //Clipboard Events
+  oncopy,         //HTML5 Fires when the user copies the content of an element
+  oncut,          //HTML5 Fires when the user cuts the content of an element
+  onpaste,        //HTML5 Fires when the user pastes some content in an element
+  //Media Events
+  onabort,          //HTML5 Script to be run on abort
+  oncanplay,        //HTML5 Script to be run when a file is ready to start playing (when it has buffered enough to begin)
+  oncanplaythrough, //HTML5 Script to be run when a file can be played all the way to the end without pausing for buffering
+  oncuechange,      //HTML5 Script to be run when the cue changes in a <track> element
+  ondurationchange, //HTML5 Script to be run when the length of the media changes
+  onemptied,        //HTML5 Script to be run when something bad happens and the file is suddenly unavailable (like unexpectedly disconnects)
+  onended,          //HTML5 Script to be run when the media has reach the end (a useful event for messages like "thanks for listening")
+  onerror,          //HTML5 Script to be run when an error occurs when the file is being loaded
+  onloadeddata,     //HTML5 Script to be run when media data is loaded
+  onloadedmetadata, //HTML5 Script to be run when meta data (like dimensions and duration) are loaded
+  onloadstart,    //HTML5 Script to be run just as the file begins to load before anything is actually loaded
+  onpause,        //HTML5 Script to be run when the media is paused either by the user or programmatically
+  onplay,         //HTML5 Script to be run when the media is ready to start playing
+  onplaying,      //HTML5 Script to be run when the media actually has started playing
+  onprogress,     //HTML5 Script to be run when the browser is in the process of getting the media data
+  onratechange,   //HTML5 Script to be run each time the playback rate changes (like when a user switches to a slow motion or fast forward mode)
+  onseeked,       //HTML5 Script to be run when the seeking attribute is set to false indicating that seeking has ended
+  onseeking,      //HTML5 Script to be run when the seeking attribute is set to true indicating that seeking is active
+  onstalled,      //HTML5 Script to be run when the browser is unable to fetch the media data for whatever reason
+  onsuspend,      //HTML5 Script to be run when fetching the media data is stopped before it is completely loaded for whatever reason
+  ontimeupdate,   //HTML5 Script to be run when the playing position has changed (like when the user fast forwards to a different point in the media)
+  onvolumechange, //HTML5 Script to be run each time the volume is changed which (includes setting the volume to "mute")
+  onwaiting,      //HTML5 Script to be run when the media has paused but is expected to resume (like when the media pauses to buffer more data)
+  //Misc Events
+  onshow,         //HTML5 Fires when a <menu> element is shown as a context menu
+  ontoggle.       //HTML5 Fires when the user opens or closes the <details> element
+
+public define String 
+  to_String
+  (
+    HtmlEvents e
+  ) =
+  if e is
+  {
+    onafterprint      then "onafterprint",   //HTML5 Script to be run after the document is printed
+    onbeforeprint     then "onbeforeprint",  //HTML5 Script to be run before the document is printed
+    onbeforeunload    then "onbeforeunload", //HTML5 Script to be run when the document is about to be unloaded
+    onerror           then "onerror",        //HTML5 Script to be run when an error occurs
+    onhashchange      then "onhashchange",   //HTML5 Script to be run when there has been changes to the anchor part of the a URL
+    onload            then "onload",         //      Fires after the page is finished loading
+    onmessage         then "onmessage",      //HTML5 Script to be run when the message is triggered
+    onoffline         then "onoffline",      //HTML5 Script to be run when the browser starts to work offline
+    ononline          then "ononline",       //HTML5 Script to be run when the browser starts to work online
+    onpagehide        then "onpagehide",     //HTML5 Script to be run when a user navigates away from a page
+    onpageshow        then "onpageshow",     //HTML5 Script to be run when a user navigates to a page
+    onpopstate        then "onpopstate",     //HTML5 Script to be run when the window's history changes
+    onresize          then "onresize",       //HTML5 Fires when the browser window is resized
+    onstorage         then "onstorage",      //HTML5 Script to be run when a Web Storage area is updated
+    onunload          then "onunload",       //      Fires once a page has unloaded (or the browser window has been closed)
+    // Form element events
+    onblur            then "onblur",         //      Fires the moment that the element loses focus
+    onchange          then "onchange",       //      Fires the moment when the value of the element is changed
+    oncontextmenu     then "oncontextmenu",  //HTML5 Script to be run when a context menu is triggered
+    onfocus           then "onfocus",        //      Fires the moment when the element gets focus
+    oninput           then "oninput",        //HTML5 Script to be run when an element gets user input
+    oninvalid         then "oninvalid",      //HTML5 Script to be run when an element is invalid
+    onreset           then "onreset",        //      Fires when the Reset button in a form is clicked
+    onsearch          then "onsearch",       //      Fires when the user writes something in a search field (for <input="search">)
+    onselect          then "onselect",       //      Fires after some text has been selected in an element
+    onsubmit          then "onsubmit",       //      Fires when a form is submitted
+    // Keyboard events (Not valid in base, bdo, br, frame, frameset, head, html, iframe, meta, param, script, style, and title elements.)
+    onkeydown         then "onkeydown",      //      Fires when a user is pressing a key
+    onkeypress        then "onkeypress",     //      Fires when a user presses a key
+    onkeyup           then "onkeyup",        //      Fires when a user releases a key
+    // Mouse events (Not valid in base, bdo, br, frame, frameset, head, html, iframe, meta, param, script, style, and title elements.)
+    onclick           then "onclick",        //      Fires on a mouse click on the element
+    ondblclick        then "ondblclick",     //      Fires on a mouse double-click on the element
+    onmousedown       then "onmousedown",    //      Fires when a mouse button is pressed down on an element
+    onmousemove       then "onmousemove",    //      Fires when the mouse pointer is moving while it is over an element
+    onmouseout        then "onmouseout",     //      Fires when the mouse pointer moves out of an element
+    onmouseover       then "onmouseover",    //      Fires when the mouse pointer moves over an element
+    onmouseup         then "onmouseup",      //      Fires when a mouse button is released over an element
+    onwheel           then "onwheel",        //HTML5 Fires when the mouse wheel rolls up or down over an element
+    //Drag Events
+    ondrag            then "ondrag",         //HMTL5 Script to be run when an element is dragged
+    ondragend         then "ondragend",      //HTML5 Script to be run at the end of a drag operation
+    ondragenter       then "ondragenter",    //HTML5 Script to be run when an element has been dragged to a valid drop target
+    ondragleave       then "ondragleave",    //HTML5 Script to be run when an element leaves a valid drop target
+    ondragover        then "ondragover",     //HTML5 Script to be run when an element is being dragged over a valid drop target
+    ondragstart       then "ondragstart",    //HTML5 Script to be run at the start of a drag operation
+    ondrop            then "ondrop",         //HTML5 Script to be run when dragged element is being dropped
+    onscroll          then "onscroll",       //HTML5 Script to be run when an element's scrollbar is being scrolled
+    //Clipboard Events
+    oncopy            then "oncopy",         //HTML5 Fires when the user copies the content of an element
+    oncut             then "oncut",          //HTML5 Fires when the user cuts the content of an element
+    onpaste           then "onpaste",        //HTML5 Fires when the user pastes some content in an element
+    //Media Events
+    onabort           then "onabort",        //HTML5 Script to be run on abort
+    oncanplay         then "oncanplay",      //HTML5 Script to be run when a file is ready to start playing (when it has buffered enough to begin)
+    oncanplaythrough  then "oncanplaythrough", //HTML5 Script to be run when a file can be played all the way to the end without pausing for buffering
+    oncuechange       then "oncuechange",    //HTML5 Script to be run when the cue changes in a <track> element
+    ondurationchange  then "ondurationchange", //HTML5 Script to be run when the length of the media changes
+    onemptied         then "onemptied",      //HTML5 Script to be run when something bad happens and the file is suddenly unavailable (like unexpectedly disconnects)
+    onended           then "onended",        //HTML5 Script to be run when the media has reach the end (a useful event for messages like "thanks for listening")
+    onerror           then "onerror",        //HTML5 Script to be run when an error occurs when the file is being loaded
+    onloadeddata      then "onloadeddata",   //HTML5 Script to be run when media data is loaded
+    onloadedmetadata  then "onloadedmetadata", //HTML5 Script to be run when meta data (like dimensions and duration) are loaded
+    onloadstart       then "onloadstart",    //HTML5 Script to be run just as the file begins to load before anything is actually loaded
+    onpause           then "onpause",        //HTML5 Script to be run when the media is paused either by the user or programmatically
+    onplay            then "onplay",         //HTML5 Script to be run when the media is ready to start playing
+    onplaying         then "onplaying",      //HTML5 Script to be run when the media actually has started playing
+    onprogress        then "onprogress",     //HTML5 Script to be run when the browser is in the process of getting the media data
+    onratechange      then "onratechange",   //HTML5 Script to be run each time the playback rate changes (like when a user switches to a slow motion or fast forward mode)
+    onseeked          then "onseeked",       //HTML5 Script to be run when the seeking attribute is set to false indicating that seeking has ended
+    onseeking         then "onseeking",      //HTML5 Script to be run when the seeking attribute is set to true indicating that seeking is active
+    onstalled         then "onstalled",      //HTML5 Script to be run when the browser is unable to fetch the media data for whatever reason
+    onsuspend         then "onsuspend",      //HTML5 Script to be run when fetching the media data is stopped before it is completely loaded for whatever reason
+    ontimeupdate      then "ontimeupdate",   //HTML5 Script to be run when the playing position has changed (like when the user fast forwards to a different point in the media)
+    onvolumechange    then "onvolumechange", //HTML5 Script to be run each time the volume is changed which (includes setting the volume to "mute")
+    onwaiting         then "onwaiting",      //HTML5 Script to be run when the media has paused but is expected to resume (like when the media pauses to buffer more data)
+    //Misc Events
+    onshow            then "onshow",         //HTML5 Fires when a <menu> element is shown as a context menu
+    ontoggle          then "ontoggle"
+  }.
+
+public type Cross_origin:
+  anonymous,
+  use_credentials
+.
+
+public define String
+  to_String
+  (
+    Cross_origin c_origin
+  )=
+  if c_origin is
+  {
+    anonymous         then  "anonymous",
+    use_credentials   then  "use-credentials"
+  }
+.
+
+public type Referrer_policy:
+  no_referrer,
+  no_referrer_when_downgrade,
+  origin,
+  origin_when_cross_origin,
+  unsafe_url
+.
+
+public define String
+  to_String
+  (
+    Referrer_policy r_policy
+  )=
+  if r_policy is
+  {
+    no_referrer                 then  "no-referrer",
+    no_referrer_when_downgrade  then  "no-referrer-when-downgrade",
+    origin                      then  "origin",
+    origin_when_cross_origin    then  "origin-when-cross-origin",
+    unsafe_url                  then  "unsafe-url"
+  }
+.
+
+public type CSS_File:
+   css_file(String file_name, CSS_File_Media).
+   
+public type JS_Attribute:
+  async,
+  crossorigin(Cross_origin),          //Specifies how the element handles cross-origin requests
+  defer,                              //Specifies the location of the linked document
+  integrity(String),
+  nomodule(Bool),  
+  referrerpolicy(Referrer_policy),    //Specifies which referrer to use when fetching the resource
+//  src(String),                        //Specifies on what device the linked document will be displayed
+  type(String),
+  attr(String, String).
+
+public define String
+  to_String
+  (
+    JS_Attribute attr
+  )=
+  if attr is
+  {
+    async                   then  "async",
+    crossorigin(c_org)      then  "crossorigin=\""+to_String(c_org)+"\"",   //Specifies how the element handles cross-origin requests
+    defer                   then  "defer",                                  //Specifies the location of the linked document
+    integrity(filehash)     then  "integrity=\""+filehash+"\"",
+    nomodule(value)         then  "nomodule=\""+if value then "True\"" else "False\"",  
+    referrerpolicy(r_pol)   then  "referrerpolicy=\""+ to_String(r_pol)+ "\"",    //Specifies which referrer to use when fetching the resource
+    //src(url)                then  "src=\""+url+"\"",                        //Specifies on what device the linked document will be displayed
+    type(_type)             then  "type=\""+_type+"\"",
+    attr(key, value)        then  key+"=\""+value+"\""
+  }
+.
+
+public type JS_File:
+  js_file(String              file_name,
+          List(JS_Attribute)  attributes).
+
+public type Script:
+  script( String script_type,
+          String content).
+
+public define JS_File   js_file(String file_name) = js_file(file_name, []).
+public define CSS_File  css_file(String file_name)= css_file(file_name, all).
+
+public type CoreAttrs:...
+public type HTML_Partial_Content:...
+public type HTML_Body:...
+public type HTML_Off_Form:...
+public type HTML_tooltip:...
+public type HTTP_Answer:...
+
+
+public type Text_Option:
+   core_attrs(List(CoreAttrs)),
+   size(Int),            // size of character font to use
+   font(String),           // name of character font to use (such as "helvetica",...)
+   color(RGB),             // color to be used for characters
+   italic, 
+   oblique, 
+   small_capitals, 
+   bold, 
+   underlined, 
+   left_justified,
+   right_justified,
+   justified,              // justified on both sides
+   line_through,
+   nowrap,
+   class(String),         //CSS class 
+   id(String),
+   style(String),
+   title(String),
+   attr(String, String).
+
+public type CSS_Style:
+   text_options(List(Text_Option)). 
+
+// Following types are define to prohib any arguments order error
+
+/**
+ * String value for 'id' attribut
+ */
+public type HTML_Id:
+  html_Id(String id).
+
+/**
+ * String value for 'class' attribut
+ */
+public type HtmlClass:
+  htmlClass(String class).
+
+/**
+ * Name used in arguments list when form is submitted.
+ */
+public type WebArgName:
+  wan(String name).
+
+/**
+ * Value passed to arguments list when form is submitted (for RadioButton and CheckBox).
+ */
+public type WebArgValue:
+  wav(String value).
+
+/**
+ * Initial value of an input field.
+ */
+public type InitialValue:
+  init(String value).
+
+public type HTML_Help_Position:
+  left,
+  right
+.
+  
+public type HTML_Help:
+  no_help,                  //no help text available
+  tooltip(HTML_tooltip,
+          HTML_Help_Position)
+.
+          
+public type HTML_Label:
+  no_label,
+  label(
+    String    text, //label to show
+    HTML_Help help  //HTML help (tooltip with ajax call or not)
+  )
+.
+
+public type InputAttrs:
+  id        (String),
+  class     (String),
+  style     (String),
+  title     (String),
+  lang      (String), 
+  dir       (Reading_Way),
+  accesskey  (Word8),
+  tabindex  (Int),
+  attr      (String, String),
+  event      (HtmlEvents, String),
+  //HTML5
+  data      (String name, String value).
+
+public type TextAreaOption:
+   input_attrs(List(InputAttrs)),
+   disabled,
+   read_only, 
+   wrap_lines
+.
+
+public type Actioner_Local_Action:
+   close_window. 
+
+public type Actioner_Connection:
+   same,                            // use same type of connection as current page
+   http,                            // use non secured connection
+   https.                           // use secured connection
+   
+public type Other_Window_Option:
+   resizable,                       // the new window may be resized by the client
+   scrollbars,                      // the new window has scrollbars
+   width(Int),                    // the new window has the specified width
+   height(Int).                   // the new window has the specified height
+   
+public type Actioner_Target:
+   same,
+   same (String label), 
+   other(String window_name, List(Other_Window_Option)). 
+
+public type Actioner_Aspect:
+   link                (List(Text_Option), String text, Maybe(String) name),// hypertext link
+   img_link            (List(CoreAttrs),String img_url, String alt_text),
+   push_button         (List(CoreAttrs),String text),
+   button              (String url_off, String url_on),                    // rollover button
+   button              (String url_off, String url_on, Int w, Int h),  // idem with size
+   submit              (List(CoreAttrs),String text),
+   immediate_selector  (List(CoreAttrs), String name, Int size, List((List(CoreAttrs),WebArgValue,String)) choices, Maybe(InitialValue) selected, String onchange_fn),
+   html                (List(CoreAttrs), HTML_Off_Form).
+   
+public define Actioner_Aspect html(HTML_Off_Form content) = html([], content).
+
+public type BackgroundOption:
+   repeat,              // repeat the background in both directions
+   repeat_horizontal,   // repeat the background only horizontally
+   repeat_vertical,     // repeat the background only verticall
+   no_repeat,           // don't repeat the background
+   center.    
+   
+public type Cell_Option:
+   core_attrs(List(CoreAttrs)),
+   left,                    // put the content of the cell on the left
+   h_center,                // center the content of the cell horizontally
+   right,                   // put the content of the cell on the right
+   top,                     // put the content of the cell upwards
+   v_center,                // center the content of tye cell vertically, 
+   bottom,                  // put the content of the cell downwards
+   base_line,               // align the content vertically according to base lines
+   background_color(RGB), 
+   background_image(String url, BackgroundOption), 
+   width(Int),              // sets a minimal width for the cell
+   percentage_width(Int), 
+   height(Int),             // sets a minimal height for the cell
+   columns(Int),            // lets the cell span over several columns
+   rows(Int),               // lets the cell span over several rows
+   nowrap,                  // do not allow text wrapping within the cell
+   style(String),           // in case nothing above is suitable
+   class(String class_name).
+
+public type HTML_Cell($T):
+   cell(List(Cell_Option) options, $T content). 
+
+public type HTML_Footer_Row($T):
+   empty,
+   footer_row(List(Cell_Option) options, List(HTML_Cell($T)) cells). 
+
+public type HTML_Row($T):
+  empty,
+  row(List(Cell_Option) options, List(HTML_Cell($T)) cells).
+
+public type HTML_Header_Cell($T):
+   header_cell(List(Cell_Option) options, $T content). 
+   
+public type HTML_Header_Row($T):
+   empty,
+   header_row(List(Cell_Option) options, List(HTML_Header_Cell($T)) cells). 
+
+  
+public type Table_Option:
+   core_attrs(List(CoreAttrs)),
+   background_color(RGB),                    // applied to all cells in the table
+   background_image(String url), 
+   border(Int   width_of_outer_edge,       // if not present, all values are 0
+          Int   width_of_top_of_relief,
+          Int   width_of_inner_edge,
+          RGB     border_color),
+   width(Int),               // sets a minimal width for the table
+   percentage_width(Int),
+   attr(String name, String value),
+   class(String class_name).
+   
+   
+public type HTML_In_Form:
+  empty,
+  literal_pt            (Printable_tree), 
+  literal               (String), 
+  sequence              (List(HTML_In_Form) items), 
+  text                  (List(CoreAttrs), String the_text), 
+  preformated           (List(Text_Option), String), 
+  paragraph             (List(Text_Option), List(HTML_In_Form) content), 
+  image                 (List(CoreAttrs), String url, String alternate), 
+  image                 (List(CoreAttrs), String url, String alternate, Int width, Int height), 
+  table                 (List(Table_Option), HTML_Header_Row(HTML_In_Form), List(HTML_Row(HTML_In_Form)), HTML_Footer_Row(HTML_In_Form)), 
+  center                (HTML_In_Form), 
+  mail_to               (String email, HTML_In_Form element), 
+  scroller              (Int width, Int height, 
+                          Int content_width, Int content_height,
+                          HTML_In_Form content), 
+  actioner              (Actioner_Connection, Actioner_Target, Actioner_Aspect, 
+                          WEB_Action_Name action_name, List((String,String)) extra_ops, 
+                          List(Actioner_Local_Action)),
+  foreign_link_new      (Actioner_Target, Actioner_Aspect, String url),
+  foreign_link          (List(Text_Option), String url), 
+  foreign_link          (List(Text_Option), String url, String name),
+  private_download      (String abs_path, String name, String extra_ext, 
+                            Maybe((String,List((String,String)))) action),    
+  text_input            (List(CoreAttrs),      HTML_Label label,  HTML_Id id, WebArgName name, InitialValue init, Int width), 
+  text_input_ro         (List(CoreAttrs),      HTML_Label label,  HTML_Id id, WebArgName name, InitialValue init, Int width), 
+  password_input        (List(CoreAttrs),      HTML_Label label,  HTML_Id id, WebArgName name, InitialValue init, Int width), 
+  text_area             (List(TextAreaOption), HTML_Label label,  HTML_Id id, WebArgName name, InitialValue init, Int width, Int height), 
+  file_upload           (List(CoreAttrs),      HTML_Label label,  HTML_Id id, WebArgName name, Int width), 
+  selector              (List(CoreAttrs),      HTML_Label label,  HTML_Id id, WebArgName name, Int size, List(String) choices), 
+  selector              (List(CoreAttrs),      HTML_Label label,  HTML_Id id, WebArgName name, Int size, List(String) choices, InitialValue selected), 
+   // List((String,String)) = List((code,name)) where : 
+   //    code is the web-arg value
+   //    name appears in selector
+  selector_c            (List(CoreAttrs), HTML_Label label,  HTML_Id id, WebArgName name, Int size, List((List(CoreAttrs),WebArgValue,String)) choices), 
+  selector_c            (List(CoreAttrs), HTML_Label label,  HTML_Id id, WebArgName name, Int size, List((List(CoreAttrs),WebArgValue,String)) choices, InitialValue selected),
+  radio_button          (List(CoreAttrs), HTML_Label label,  HTML_Id id, WebArgName name, WebArgValue value, Bool checked), 
+  radio_button_r        (List(CoreAttrs), HTML_Label label,  HTML_Id id, WebArgName name, WebArgValue value, Bool checked), 
+  check_box             (List(CoreAttrs), HTML_Label label,  HTML_Id id, WebArgName name, Bool checked),
+  check_box_r           (List(CoreAttrs), HTML_Label label,  HTML_Id id, WebArgName name, Bool checked),
+  div                   (List(CoreAttrs), List(HTML_In_Form) content),
+  div_empty             (List(CoreAttrs)),
+  hidden                (HTML_Id id, WebArgName name, WebArgValue value),
+  partial               (HTML_Partial_Content),
+  br,
+  progress              (List(CoreAttrs), Int value, Int max),
+  ol                    (List(CoreAttrs), List(HTML_In_Form) content),  
+  ul                    (List(CoreAttrs), List(HTML_In_Form) content),
+  li                    (List(CoreAttrs), List(HTML_In_Form) content),
+  button                (List(CoreAttrs), List(HTML_In_Form) content),
+  i                     (List(CoreAttrs), String text),
+  span                  (List(CoreAttrs), String text),
+  hr                    (List(CoreAttrs))
+.
+
+public type HTML_Size:
+   absolute(Int),        // in pixels
+   percentage(Int).
+
+public type A_href:
+  href(String href),
+  href(WEB_Action_Name action, List((String,String)) extra_ops)
+.
+
+public define A_href
+  href
+  (
+    WEB_Action_Name action,
+    (String,String) extra_ops
+  )=
+  href(action, [extra_ops])
+.
+
+public type A_target:
+  _blank,
+  _self,
+  _parent,
+  _top,
+  framename(String name)
+.
+
+
+public type HTML_Off_Form:
+   a                     (List(CoreAttrs), A_href, A_target, List(HTML_Off_Form) content),
+   empty,
+   literal_pt            (Printable_tree),
+   literal               (String),
+   sequence              (List(HTML_Off_Form) items), 
+   text                  (List(CoreAttrs), String the_text), 
+
+   //table                 (List(Table_Option), HTML_Header_Row(HTML_Off_Form), List(HTML_Row(HTML_Off_Form)), HTML_Footer_Row(HTML_Off_Form)), 
+
+   actioner              (Actioner_Connection, Actioner_Target, Actioner_Aspect, 
+                          WEB_Action_Name action_name, List((String,String)) extra_ops, 
+                          List(Actioner_Local_Action)), 
+   actioner              (Actioner_Connection, Actioner_Target, Actioner_Aspect, 
+                          WEB_Action_Name action_name, List((String,String)) extra_ops, 
+                          List(Actioner_Local_Action), String form_name), 
+   foreign_link_new     (Actioner_Target, Actioner_Aspect, String url),
+   //foreign_link         (List(Text_Option), String url), 
+   foreign_link         (List(Text_Option), String url, String name), 
+   private_download     (String abs_path, String name, String extra_ext,
+                            Maybe((String,List((String,String)))) action),    
+   //label                (String name),
+   //form                 (HTML_Id form_id, List(CoreAttrs), List(HTML_In_Form) content),
+//   form                 (HTML_Id form_id, List(CoreAttrs), 
+//                           WEB_Action_Name action, List((String,String)) extra_ops,
+//                           List(HTML_In_Form) content),
+  //in_form               (HTML_Id form_id, HTML_In_Form content),
+  div                   (List(CoreAttrs), List(HTML_Partial_Content) p_content),
+  iframe                (List(CoreAttrs),
+                           List(CSS_Style)  /*styles*/,
+                           List(CSS_File)   /*css_files*/,
+                           List(JS_File)    /*js_files*/,
+                           HTML_Body        /*body*/),
+  partial               (HTML_Partial_Content),
+  //progress              (List(CoreAttrs), Int value, Int max),
+  //i                     (List(CoreAttrs), String text),
+  html_tag              (String tag_name, List(CoreAttrs), List(HTML_Off_Form) content),
+  html_void_tag         (String tag_name, List(CoreAttrs))
+.
+
+
+public type Rel_attr:
+  alternate,
+  author,
+  dns_prefetch,
+  help,
+  icon,
+  license,
+  next,
+  pingback,
+  preconnect,
+  prefetch,
+  preload,
+  prerender,
+  prev,
+  search,
+  stylesheet
+.
+
+public define String
+  to_String
+  (
+    Rel_attr r_attr
+  )=
+  if r_attr is
+  {
+    alternate     then "alternate",
+    author        then "author",
+    dns_prefetch  then "dns_prefetch",
+    help          then "help",
+    icon          then "icon",
+    license       then "license",
+    next          then "next",
+    pingback      then "pingback",
+    preconnect    then "preconnect",
+    prefetch      then "prefetch",
+    preload       then "preload",
+    prerender     then "prerender",
+    prev          then "prev",
+    search        then "search",
+    stylesheet    then "stylesheet"
+  }
+.
+
+public type Link_attr:
+  crossorigin(Cross_origin),          //Specifies how the element handles cross-origin requests
+  href(String),                       //Specifies the location of the linked document
+  media(String),                      //Specifies on what device the linked document will be displayed
+  referrerpolicy(Referrer_policy),    //Specifies which referrer to use when fetching the resource
+  rel(Rel_attr),
+  sizes(String),
+  type(String),
+  as(String),
+  integrity(String),
+  event(HtmlEvents, String)
+.
+
+public define String 
+  to_String
+  (
+    Link_attr attr
+  )=
+  if attr is
+  {
+    crossorigin(c_origin) then  "crossorigin=\""+to_String(c_origin)+"\"",
+    href(url)             then  "href=\""+url+"\"",
+    media(media)          then  "media=\""+media+"\"",
+    referrerpolicy(r_policy)  then  "referrerpolicy=\""+to_String(r_policy)+"\"",
+    rel(rel_attr)         then  "rel=\""+to_String(rel_attr)+"\"",
+    sizes(_sizes)         then  "sizes=\""+_sizes+"\"",
+    type(_type)           then  "type=\""+_type+"\"",
+    as(_as)               then  "as=\""+_as+"\"",
+    integrity(_integrity) then  "integrity=\""+_integrity+"\"",
+    event(_event, code)   then  to_String(_event)+"=\""+code+"\"",
+  }
+.
+
+public define String
+  to_String
+  (
+    List(Link_attr) attrs
+  )=
+  join(" ", map((Link_attr attr) |->
+    to_String(attr),
+    attrs))
+.
+
+
+
+public type HTML_Meta:
+   keywords      (List(String)), 
+   refresh       (Actioner_Connection connection, 
+                  Actioner_Target     target,
+                  WEB_Action_Name     action, 
+                  Int delay), // in seconds
+   refresh       (String url, Int delay), // in seconds
+   meta          (String name, String content),
+   http_equiv    (String name, String content),
+   generic_meta  (List((String,String))),
+   literal       (String).
+   
+public type HTML_Head_Tag:
+  meta(HTML_Meta),
+  title(String),
+  js(JS_File),
+  js_inline(Script),
+  css(CSS_File),
+  css_inline(String css_styles), /* Note: <style> and </style> tags are not necessaries */
+  link(List(Link_attr) link_attrs)
+.
+
+public type HTML_Partial_Content:
+  partial_content
+  (
+    List(HTML_Head_Tag),
+    HTML_Off_Form
+  )
+.
+
+public type HTML_Body:  
+   body(List(CoreAttrs) attrs, List(HTML_Off_Form) content).
+
+public define HTML_Body
+  body
+  (
+    List(CoreAttrs) attrs,
+    HTML_Off_Form   content
+  )=
+  body(attrs, [content])
+.
+
+public define HTML_Body
+  body
+  (
+    CoreAttrs       attr,
+    HTML_Off_Form   content
+  )=
+  body([attr], [content])
+.
+
+public define HTML_Body
+  body
+  (
+    CoreAttrs             attr,
+    List(HTML_Off_Form)   content
+  )=
+  body([attr], content)
+.
+
+public define HTML_Body
+  body
+  (
+    HTML_Off_Form   content
+  )=
+  body([], [content])
+.
+
+ 
+public type HTML_tooltip:
+  html_tooltip
+  (
+    String  title,
+    String  keyword,
+    Int     width,
+  ),
+  html_tooltip_ext
+  (
+    String  title,
+    String  extend_type,
+    String  class_suffix,
+    List((String, String)) ext_args
+  ),
+  html_tooltip_ext  //same without class suffix. This means we use awesome font
+  (
+    String  title,
+    String  extend_type,
+    List((String, String)) ext_args
+  ),
+  html_tooltip
+  (
+    String                  title,
+    WEB_Action_Name         wan,
+    List((String, String))  ext_args
+  ).
+
+
+
+public type CoreAttrs:
+  empty,
+  id        (String),                   //A unique identifier for the element.
+                                        //There must not be multiple elements in a document that have the same id value.
+  class     (String),                   //A name of a classification, or list of names of classifications, to which the element belongs
+  style     (String),                   //Specifies zero or more CSS declarations that apply to the element [CSS].
+  title     (String),                   //Advisory information associated with the element.
+  lang      (String),                   //Specifies the primary language for the contents of the element and for any of the element’s attributes that contain text.
+  dir       (Reading_Way),              //Specifies the element’s text directionality. 
+  accesskey  (Word8),                   //A key label or list of key labels with which to associate the element; each key label represents 
+                                        //a keyboard shortcut which UAs can use to activate the element or give focus to the element.
+  tabindex  (Int),                      //Specifies whether the element represents an element that is is focusable (that is, an element which is part of the
+                                        //sequence of focusable elements in the document), and the relative order of the element in the sequence of focusable
+                                        //elements in the document.
+  //Anubis specific
+  attr      (String, String),           //intended to provide unknown attritute
+  bool_attr (Bool, String),             //like checked in checkbox the attribute 'checked' is here if true else nothing
+  event     (HtmlEvents, String),
+  tooltip   (HTML_tooltip),
+  
+  //HTML5
+  data      (String name, String value),
+  contenteditable(Bool),                //Specifies whether the contents of the element are editable
+  contextmenu(String),                  //Identifies a menu with which to associate the element as a context menu.
+  draggable(Bool),                      //Specifies whether the element is draggable.
+  enterkeyhint(String),                 //Specifies the text of the enter-key on a virtual keyboard
+  hidden(Bool),                         //Specifies that the element represents an element that is not yet, or is no longer, relevant.
+  inert,                                //Specifies that the browser should ignore this section
+  inputmode(String),                    //Specifies the mode of a virtual keyboard
+  popover,                              //Specifies a popover element
+  spellcheck(Bool),                     //Specifies whether the element represents an element whose contents are subject to spell checking and grammar checking.
+  translate(Bool)                       //Specifies whether the content of an element should be translated or not
+.
+
+public define CoreAttrs colspan(Int value)    = attr("colspan", to_String(value)).
+public define CoreAttrs rowspan(Int value)    = attr("rowspan", to_String(value)).
+public define CoreAttrs headers(String header_id) = attr("headers", header_id).
+public define CoreAttrs width(Int value)      = attr("width",   to_String(value)).
+public define CoreAttrs height(Int value)     = attr("height",  to_String(value)).
+public define CoreAttrs width_px(Int value)   = attr("width",   to_String(value)+"px").
+public define CoreAttrs height_px(Int value)  = attr("height",  to_String(value)+"px").
+public define CoreAttrs alt(String value)     = attr("alt",     value).
+public define CoreAttrs size(Int value)       = attr("size",    to_String(value)).
+
+public define CoreAttrs boolean(String name)  = attr(name, name).
+
+public type HTTP_Answer:
+   html_page    (HTTP_Status      /*http_status*/,
+                 List(HTML_Head_Tag)  /*html <head> tags*/, 
+                 HTML_Body        /*body*/),
+   html_page    (HTTP_Status      /*http_status*/,
+                 String           /*title*/,
+                 List(HTML_Head_Tag)  /*meta_tags*/, 
+                 List(CSS_Style)  /*styles*/,
+                 List(CSS_File)   /*css_files*/,
+                 List(JS_File)    /*js_files*/,
+                 List(Script)     /*script*/,
+                 HTML_Body        /*body*/),
+   plain_text   (HTTP_Status      /*http_status*/,
+                 String           /*text*/),
+   custom_text  (HTTP_Status      /*http_status*/,
+                 MIME             /*mime_type*/,
+                 String           /*content*/),
+   custom_binary(HTTP_Status      /*http_status*/,
+                 MIME             /*mime_type*/,
+                 ByteArray        /*content*/,
+                 List(HTTP_header)/*other headers*/), 
+   custom_tree  (HTTP_Status      /*http_status*/,
+                 MIME             /*mime_type*/,
+                 Printable_tree   /*content*/),
+   json         (HTTP_Status,     /*http_status*/
+                 JsonValue),       /*json value*/
+   send_file    ( String file_path, //file to send to client. //TODO add call back for before, during, after send
+                  Content_Disposition c_disposition), 
+   http_raw     (Printable_tree),
+   html_content (HTTP_Status      /*http_status*/,
+                 HTML_Off_Form),
+   html_partial_content (HTTP_Status      /*http_status*/,
+                 HTML_Partial_Content)
+.
+
+public define HTTP_Answer
+  no_content
+  =
+  plain_text(http_no_content, "")
+.
+
+
@@ -71,8 +71,8 @@ public type WEB_Step:
     String          thread,       //thread name like general, VoIP, etc. 
     List(WEB_Step)  childs,       
     (WEB_Step_Session stp_session)  ->  WEB_Step_Status       status,     //return the step status
-    (WEB_Step_Session stp_session, (String)->String  _T)  ->  HTML_Partial_Content  view,       //return the view according to WEB_Step_Session
-    (WEB_Step_Session stp_session, (String)->String  _T)  ->  HTML_Partial_Content  buttons,    
+    (WEB_Step_Session stp_session, (String)->String  _T)  ->  HTML  view,       //return the view according to WEB_Step_Session
+    (WEB_Step_Session stp_session, (String)->String  _T)  ->  HTML  buttons,    
     (WEB_Step_Session stp_session, WEB_Session web_session)  ->  WEB_Step_Session      submit,
   )
 .
@@ -85,7 +85,7 @@ public define Maybe(WEB_Step)
   }
 .
-public define HTML_Partial_Content
+public define HTML
   web_stepper_button
   (
     WEB_Step          _step,
@@ -97,7 +97,7 @@ public define HTML_Partial_Content
       _step.buttons(stp_session, _T)))
 .
-public define HTML_Partial_Content
+public define HTML
   web_stepper_main_view
   (
     WEB_Step          _step,
@@ -109,7 +109,7 @@ public define HTML_Partial_Content
       _step.view(stp_session, _T)))
 .
-public define HTML_Partial_Content
+public define HTML
   web_stepper_message
   (
     WEB_Step_Session  stp_session,
@@ -125,7 +125,7 @@ public define HTML_Partial_Content
         show_page_message(page_msg)))
 .
-public define HTML_Partial_Content
+public define HTML
   web_stepper_full_description
   (
     WEB_Step          current_step,
@@ -157,7 +157,7 @@ public define Bool
   step.index < current_step.index
 .
-public define HTML_Partial_Content
+public define HTML
   web_stepper_crumble
   (
     WEB_Stepper _stepper,
@@ -196,7 +196,7 @@ public define HTML_Partial_Content
   )
 .
-public define HTML_Partial_Content
+public define HTML
   web_stepper_view
   (
     WEB_Stepper       _stepper,
@@ -227,7 +227,7 @@ public define HTML_Partial_Content
 .
-public define HTML_Partial_Content
+public define HTML
   web_stepper_view
   (
     WEB_Stepper       stepper,
@@ -316,7 +316,7 @@ public define WEB_Controller_Result
   }
 .
-public define HTML_Partial_Content
+public define HTML
   stepper_submit_button
   (
     String                  label,
@@ -328,7 +328,7 @@ public define HTML_Partial_Content
   jquery_button(jquery_img_button(icn16_check, label, "", jQuery_actioner(same, jqscript("stepper_submit("+url+");")), left))
 .
-public define HTML_Partial_Content
+public define HTML
   stepper_submit_button
   (
     String                  label,
@@ -11,7 +11,7 @@ read tools/basis.anubis
 read xlib/web/making_a_web_site.anubis
-public define HTML_In_Form
+public define HTML
   ip_input
   (
     HTML_Id      the_id,
@@ -36,7 +36,7 @@ public define HTML_In_Form
 // ---------------------------------------------------------------------------
-public define HTML_In_Form
+public define HTML
   partial_ip_input
   (
     HTML_Id        the_id,
@@ -18,7 +18,7 @@ read tools/printable_tree.anubis
-public define HTML_Partial_Content
+public define HTML
   img_button_flink
   (
     String          img_path,
@@ -26,9 +26,9 @@ public define HTML_Partial_Content
     Actioner_Target target,
     String          url
   )=
-  partial_content(foreign_link_new(target, img_link(core_attrs, img_path, ""), url)).
+  foreign_link_new(target, img_link(core_attrs, img_path, ""), url).
-public define HTML_Partial_Content
+public define HTML
   img_button_flink
   (
     String          img_path,
@@ -37,7 +37,7 @@ public define HTML_Partial_Content
   )=
   img_button_flink(img_path, [], target, url).
-public define HTML_Partial_Content
+public define HTML
   img_button_flink
   (
     String          img_path, 
@@ -45,7 +45,7 @@ public define HTML_Partial_Content
   )=
   img_button_flink(img_path, [], same, url).
-public define HTML_Partial_Content
+public define HTML
   img_button
   (
     String                  img_path,
@@ -54,10 +54,10 @@ public define HTML_Partial_Content
     WEB_Action_Name         url,
     List((String, String))  extra_ops
   )=
-  partial_content(actioner(same, target, img_link(core_attrs+[style("cursor: pointer")], img_path, ""), url, extra_ops)).
+  actioner(same, target, img_link(core_attrs+[style("cursor: pointer")], img_path, ""), url, extra_ops).
-public define HTML_Partial_Content
+public define HTML
   img_button
   (
     String                  img_path,
@@ -66,9 +66,9 @@ public define HTML_Partial_Content
     String                  url,
     List((String, String))  extra_ops
   )=
-  partial_content(actioner(same, target, img_link(core_attrs+[style("cursor: pointer")], img_path, ""), action_name(url), extra_ops)).
+  actioner(same, target, img_link(core_attrs+[style("cursor: pointer")], img_path, ""), action_name(url), extra_ops).
-public define HTML_Partial_Content
+public define HTML
   img_button
   (
     String                  img_path,
@@ -76,7 +76,7 @@ public define HTML_Partial_Content
   )=
   img_button(img_path, [], same, url, []).
-public define HTML_Partial_Content
+public define HTML
   img_button_ajax
   (
     String                  img_path,
@@ -85,10 +85,10 @@ public define HTML_Partial_Content
   )=
   with event_click = (CoreAttrs)event(onclick, "Xlib.jq_query("+format_web_action_name_to_js(web_action, extra_ops)+")"),
-  partial_content(img([event_click, style("cursor: pointer")], img_path))
+  img([event_click, style("cursor: pointer")], img_path)
 .
-public define HTML_Partial_Content
+public define HTML
   img_button_load_page
   (
     String                  img_path,
@@ -96,13 +96,13 @@ public define HTML_Partial_Content
     WEB_Action_Name         web_action,
     List((String, String))  extra_args
   )=
-  partial_content(
+  
     img([ event(onclick, load_page(web_action, extra_args)), 
           style("cursor: pointer") . core_attrs
-        ], img_path))
+        ], img_path)
 .
-public define HTML_Partial_Content
+public define HTML
   img_button_load_page
   (
     String                  img_path,
@@ -112,7 +112,7 @@ public define HTML_Partial_Content
   img_button_load_page(img_path, [], web_action, extra_args)
 .
-public define HTML_Partial_Content
+public define HTML
   img_button_load_page
   (
     String                  img_path,
@@ -122,7 +122,7 @@ public define HTML_Partial_Content
   img_button_load_page(img_path, core_attrs, web_action, [])
 .
-public define HTML_Partial_Content
+public define HTML
   img_button_load_page
   (
     String                  img_path,
@@ -132,7 +132,7 @@ public define HTML_Partial_Content
 .
-public define HTML_Partial_Content
+public define HTML
   img_button
   (
     String                  img_path,
@@ -143,13 +143,12 @@ public define HTML_Partial_Content
     Bool                    replace,
     Bool                    overlay
   )=
-  partial_content(
     img([ event(onclick, load_content(target, web_action, extra_args, replace, overlay)), 
           style("cursor: pointer") . core_attrs
-        ], img_path))
+        ], img_path)
 .
-public define HTML_Partial_Content
+public define HTML
   img_button
   (
     String                  img_path,
@@ -161,7 +160,7 @@ public define HTML_Partial_Content
   img_button(img_path, [], web_action, extra_args, target, replace, true)
 .
-public define HTML_Partial_Content
+public define HTML
   img_button
   (
     String                  img_path,
@@ -172,7 +171,7 @@ public define HTML_Partial_Content
   img_button(img_path, [], web_action, extra_args, target, false, true)
 .
-public define HTML_Partial_Content
+public define HTML
   img_button
   (
     String                  img_path,
@@ -181,7 +180,7 @@ public define HTML_Partial_Content
   )=
   img_button(img_path, [], same, web_action, extra_ops).
-public define HTML_Partial_Content
+public define HTML
   img_button
   (
     String                  img_path,
@@ -189,7 +188,7 @@ public define HTML_Partial_Content
   )=
   img_button(img_path, [], same, web_action, []).
-public define HTML_Partial_Content
+public define HTML
   img_button
   (
     String                  img_path,
@@ -198,7 +197,7 @@ public define HTML_Partial_Content
   )=
   img_button(img_path, [], same, url, extra_ops).
-public define HTML_Partial_Content
+public define HTML
   img_button
   (
     String                  img_path,
@@ -208,7 +207,7 @@ public define HTML_Partial_Content
   )=
   img_button(img_path, core_attrs, same, url, extra_ops).
-public define HTML_Partial_Content
+public define HTML
   img_button_load_dialog
   (
     String          img_path,
@@ -264,7 +263,7 @@ define List(CoreAttrs)
   core_attrs + [id(uid), style("cursor: pointer"), event(onclick, "Xlib.make_confirm_dialog(this, "+ ok_action +");")].
-public define HTML_Partial_Content
+public define HTML
   img_button_confirm
   (
     String                  img_path,
@@ -277,10 +276,10 @@ public define HTML_Partial_Content
   )=
   with uid = generate_random_string(20),
-  partial_content([js(js_file("xlib/js/xlib.js")), js_inline(jquery_ready(img_button_confirm_js(uid, dlg_title, dlg_text, dlg_ok, dlg_cancel)))],
+  head_tags([js(js_file("xlib/js/xlib.js")), js_inline(jquery_ready(img_button_confirm_js(uid, dlg_title, dlg_text, dlg_ok, dlg_cancel)))],
               img(img_button_confirm_image_attrs(core_attrs, uid, actioner), img_path)).
-public define HTML_Partial_Content
+public define HTML
   img_button_confirm
   (
     String                  img_path,
@@ -293,7 +292,7 @@ public define HTML_Partial_Content
   img_button_confirm(img_path, [], dlg_title, dlg_text, dlg_ok, dlg_cancel, actioner).
 public define String
-  img_button_confirm
+  img_button_confirm_string
   (
     String                  img_path,
     List(CoreAttrs)         core_attrs,
@@ -309,7 +308,7 @@ public define String
   "<img " + format_attrs(img_button_confirm_image_attrs(core_attrs, uid, actioner)) + " src=\"" + img_path + "\"></img>".
 public define String
-  img_button_confirm
+  img_button_confirm_string
   (
     String img_path,
     String inline_img_attrb,
@@ -324,7 +323,7 @@ public define String
    "};});</script><img " + inline_img_attrb + " id=\"" + uid + "\" style=\"cursor:pointer\" onclick=\"Xlib.make_confirm_dialog(this," + dlg_ok_js_script + ");\"  src=\"" + img_path + "\"></img>".
 public define String
-  img_button_confirm
+  img_button_confirm_string
   (
     String                  img_path,
     String                  dlg_title,
@@ -333,10 +332,10 @@ public define String
     String                  dlg_cancel,
     JQuery_Actioner         actioner
   )=
-  img_button_confirm(img_path, [], dlg_title, dlg_text, dlg_ok, dlg_cancel, actioner).
+  img_button_confirm_string(img_path, [], dlg_title, dlg_text, dlg_ok, dlg_cancel, actioner).
-public define HTML_Partial_Content
+public define HTML
   img_button_confirm
   (
     String                  img_path,
@@ -353,11 +352,11 @@ public define HTML_Partial_Content
   with uid = generate_random_string(20),
   //with event_click = (CoreAttrs)event(onclick, "Xlib.jq_query("+format_web_action_name_to_js(web_action, extra_ops)+")"),
-  partial_content([js(js_file("xlib/js/xlib.js")), js_inline(jquery_ready(img_button_confirm_js(uid, dlg_title, dlg_text, dlg_ok, dlg_cancel)))],
+  head_tags([js(js_file("xlib/js/xlib.js")), js_inline(jquery_ready(img_button_confirm_js(uid, dlg_title, dlg_text, dlg_ok, dlg_cancel)))],
     img(img_button_confirm_image_attrs(core_attrs, uid, web_action, extra_ops, load_content_target, call_back), img_path))
 .
-public define HTML_Partial_Content
+public define HTML
   img_button_confirm
   (
     String                  img_path,
@@ -13,132 +13,75 @@ read xlib/web/making_a_web_site.anubis
  /**** WAVE BOX ****/
-public define HTML_Partial_Content 
+public define HTML 
   html_wave_box
   (
-    List(CoreAttrs)             attrs,
-    String                      legend,
-    List(HTML_Partial_Content)  content
+    List(CoreAttrs)   attrs,
+    String            legend,
+    List(HTML)        content
   )=
-  partial_content(
+  
   div(attrs, [
-      text([class("frame_wave")], legend),   //legend
-      div([class("frame_blk")],   content)
-  ]))
-.
-
-public define HTML_Partial_Content 
-  html_wave_box
-  (
-    List(CoreAttrs)     attrs,
-    String              legend,
-    List(HTML_Off_Form) content
-  )=
-  partial_content(
-  div(attrs,
-    [
-      text([class("frame_wave")], legend),   //legend
+      text(class("frame_wave"), legend),   //legend
       div([class("frame_blk")], content)
-    ]))
-.
-    
-public define HTML_Off_Form 
-  html_wave_box
-  (
-    List(CoreAttrs)     attrs,
-    String              legend,
-    List(HTML_Off_Form) content
-  )=
-  div(attrs,
-    [
-      text([class("frame_wave")], legend),   //legend
-      div([class("frame_blk")],   content)
-    ])
+  ])
 .
-public define HTML_Off_Form 
+public define HTML 
   html_wave_box
   (
     List(CoreAttrs)     attrs,
     String              legend,
-    HTML_Off_Form       content
+    HTML                content
   )=
   html_wave_box(attrs, legend, [content])
 .
-public define HTML_Off_Form 
+public define HTML 
   html_wave_box
   (
-    String        legend,
-    HTML_Off_Form content
+    String  legend,
+    HTML    content
   )=
   html_wave_box([class("frame")], legend, content)
 .
-
-public define HTML_Partial_Content 
-  html_wave_box
-  (
-    String                legend,
-    HTML_Partial_Content  content
-  )=
-  html_wave_box([class("frame")], legend, [content])
-.
-
-public define HTML_Partial_Content 
-  html_wave_box
-  (
-    List(CoreAttrs)       attrs,
-    String                legend,
-    HTML_Partial_Content  content
-  )=
-  html_wave_box([class("frame") . attrs] , legend, [content])
-.
-public define HTML_Partial_Content 
-  html_wave_box
-  (
-    String         legend,
-    HTML_Off_Form  content
-  )=
-  html_wave_box([class("frame")], legend, [content])
-.
-  
-public define HTML_Off_Form 
+public define HTML 
   html_wave_box_custom_size
   (
-    Int                 size,
-    String              legend,
-    List(HTML_Off_Form) content,
+    Int         size,
+    String      legend,
+    List(HTML)  content,
   )=
-  div([style("width: "+abs_to_decimal(size)+"px")],
+  div(style("width: "+abs_to_decimal(size)+"px"),
     [
-      text([class("frame_wave")], legend),   //legend
-      div([class("frame_blk")],   content)
+      text(class("frame_wave"), legend),   //legend
+      div(class("frame_blk"),   content)
     ]).
-public define HTML_Off_Form 
+public define HTML 
   html_wave_box_wide
   (
-    String        legend,
-    HTML_Off_Form content
+    String    legend,
+    HTML      content
   )=
   html_wave_box([class("frame wide")], legend, [content]).
-public define HTML_Partial_Content 
+public define HTML 
   html_wave_box_wide
   (
-    String                legend,
-    HTML_Partial_Content  content
+    String      legend,
+    List(HTML)  content
   )=
-  html_wave_box([class("frame wide")], legend, content, ).
+  html_wave_box([class("frame wide")], legend, content).
   /**** CHANGELIST ****/
 public type ChangeListItem:
   change_list_item(
     String icon,
     String label,
-    HTML_Off_Form value).
+    HTML value).
 public define ChangeListItem
   change_list_item
@@ -178,11 +121,11 @@ public define ChangeListItem
   change_list_item
   (
     String         label,
-    HTML_Off_Form  value
+    HTML  value
   )=
   change_list_item("", label, value).
-define HTML_Off_Form
+define HTML
   make_tr
   (
     ChangeListItem  item,
@@ -203,11 +146,11 @@ define HTML_Off_Form
      )
   .
-define List(HTML_Off_Form)
+define List(HTML)
   make_changelist_rows
   (
     List(ChangeListItem)  items,
-    List(HTML_Off_Form)   so_far,
+    List(HTML)   so_far,
     Int                   odd
   )=
   if items is
@@ -217,17 +160,17 @@ define List(HTML_Off_Form)
       make_changelist_rows(t, [ make_tr(h, odd) . so_far], 1 - odd)
   }.
-public define HTML_Partial_Content
+public define HTML
   changelist_table
   (
     List(ChangeListItem) items
   )=
-  partial_content([css(css_file("xlib/css/changelists.css"))],
+  head_tags([css(css_file("xlib/css/changelists.css"))],
   div(class("changelist"),
     table([/*class("module"), */ attr("cellspacing","0")], make_changelist_rows(items, [], 1))))
   .
- public define HTML_Off_Form
+ public define HTML
   html_tooltip
   (
     String title,
@@ -237,32 +180,8 @@ public define HTML_Partial_Content
   actioner(same,same, link([id("help_" + keyword), class("jTip jTip_help"), attr("target", "_blank")], " ", success(title)), "ajax_show_tooltip", [("tooltip_id", keyword)], []).
- public define HTML_Off_Form
-  html_tooltip
-  (
-    String title,
-    String keyword,
-    Int  width
-  ) =
-  a([id("help_"+keyword), class("jTipu jTip_help"), data("name",title)], data("href",format_web_action_name(action_name("ajax_show_tooltip"), [("tooltip_id",keyword),("width",to_String(width))]))).
-  
-//  literal("<a id=\"help_"+keyword+"\" class=\"jTipu jTip_help\" name=\""+title+"\" href=\"/?a=ajax_show_tooltip&amp;tooltip_id="+keyword+"&width="+width+"\"></a>").
-
-  actioner(same,same, link([id("help_" + keyword), class("jTip jTip_help"), attr("target", "_blank")], " ", success(title)), "ajax_show_tooltip", [("tooltip_id", keyword), ("width", to_decimal(width))], []).
-
- public define HTML_In_Form
-  html_tooltip
-  (
-    String title,
-    String keyword,
-  ) =
-  a([id("help_"+keyword), class("jTipu jTip_help"), attr("name",title)], href(action_name("ajax_show_tooltip"), [("tooltip_id",keyword)])).
-
-  literal("<a id=\"help_"+keyword+"\" class=\"jTipu jTip_help\" name=\""+title+"\" href=\"/?a=ajax_show_tooltip&amp;tooltip_id="+keyword+"\"></a>").
-
-  actioner(same,same, link([id("help_" + keyword), class("jTip jTip_help"), attr("target", "_blank")], " ", success(title)), "ajax_show_tooltip", [("tooltip_id", keyword)], []).
-public define HTML_In_Form
+public define HTML
   html_tooltip
   (
     String title,
@@ -273,7 +192,7 @@ public define HTML_In_Form
   actioner(same,same, link([id("help_" + keyword), class("jTip jTip_help"), attr("target", "_blank")], " ", success(title)), "ajax_show_tooltip", [("tooltip_id", keyword), ("width", to_decimal(width))], []).
- public define HTML_Off_Form
+ public define HTML
   html_tooltip_ext
   (
     String  title,
@@ -282,7 +201,7 @@ public define HTML_In_Form
   ) =
   actioner(same,same, link([id("help_" + keyword), class("jTip jTip_"+class_suffix), attr("target", "_blank")], " ", success(title)), "ajax_show_tooltip", [("tooltip_ext", keyword)], []).
-public define HTML_Off_Form
+public define HTML
   html_tooltip_ext
   (
     String  title,
@@ -304,18 +223,7 @@ public define HTML_Off_Form
   ) =
   actioner(same,same, link([id("help_" + keyword), class("jTipu jTip_"+class_suffix), attr("target", "_blank")], " ", success(title)), "ajax_show_tooltip", [("tooltip_ext", keyword)], []).
-public define HTML_In_Form
-  html_tooltip_ext
-  (
-    String  title,
-    String  keyword,
-    String  class_suffix,
-    List((String, String)) ext_args
-  ) =
-  with extra_args = format_extra_operands(ext_args),
-  literal("<a id=\"help_"+keyword+"\" class=\"jTipu jTip_"+class_suffix+"\" data-name=\""+title+"\" data-href=\"/?a=ajax_show_tooltip&tooltip_ext="+keyword+extra_args+"\"></a>").
-  
   href=\"/?a=ajax_show_tooltip&amp;tooltip_id="+keyword+"\" id=\"help_"+keyword+HELP_HMS_MODE" class="jTip jTip_help" target="_blank" name="Aide sur la fonctionnalité 'No Limit'"> </a>").
@@ -17,41 +17,45 @@ public type Dashboard_content:
   none,
   content(List(ChangeListItem) content, String title).
-public define HTML_Off_Form
+public define HTML
   dash_board
   (
     Dashboard_content left,
     Dashboard_content right
   )=
-  table([class("container")],
-      [ row(  [ cell([class("module_col left_col")],
-                      if left is
-                      {
-                        none                  then literal(""),
-                        content(list, title)  then partial(html_wave_box_wide(title, changelist_table(list)))
-                      }
-                    ),
-                cell([class("module_col right_col")],
-                      if right is
-                      {
-                        none                  then literal(""),
-                        content(list, title)  then partial(html_wave_box_wide(title, changelist_table(list)))
-                      }
-                    )
-                ])
-       ]).
+  table(class("container"),
+        tr([ 
+          td(class("module_col left_col"),
+            if left is
+            {
+              none                  then empty,
+              content(list, title)  then html_wave_box_wide(title, changelist_table(list))
+            }
+          ),
+          td(class("module_col right_col"),
+            if right is
+            {
+              none                  then empty,
+              content(list, title)  then html_wave_box_wide(title, changelist_table(list))
+            }
+          )
+        ]) // </tr>
+  )
+.
-public define HTML_Off_Form
+public define HTML
   dash_board
   (
     Dashboard_content content
   )=
-  table([class("container")],
-      [ row(  [ cell([class("module_col")],
-                      if content is
-                      {
-                        none                  then literal(""),
-                        content(list, title)  then partial(html_wave_box_wide(title, changelist_table(list)))
-                      }
-                    )])]).
+  table(class("container"),
+    tr( 
+      td(class("module_col"),
+        if content is
+        {
+          none                  then empty,
+          content(list, title)  then html_wave_box_wide(title, changelist_table(list))
+        }
+  )))
+.
@@ -20,19 +20,19 @@ public type FisheyeEntry:
     String  help_text       //Help text to show
     ).
-define List(HTML_Off_Form)
+define List(HTML)
   make_fisheye_menu 
   (
     (String) -> String  _T,               //translator function
     List(FisheyeEntry)  entries,
-    List(HTML_Off_Form) so_far,
+    List(HTML) so_far,
     String              selected_space  //id of the selected space
   )=
   if entries is 
   {
     []      then reverse(so_far),  //reverse to be in the right direction
     [h . t] then
-      with entry = (HTML_Off_Form)img(
+      with entry = (HTML)img(
                           [
                             id(h.id),
                             class("menu_item"+if h.id = selected_space then " menu_selected" else ""),
@@ -46,7 +46,7 @@ define List(HTML_Off_Form)
       make_fisheye_menu(_T, t, [ entry . so_far], selected_space)
   }.
-public define HTML_Partial_Content
+public define HTML
   make_fisheye_menu 
   (
     (String) -> String  _T,               //translator function
@@ -28,7 +28,7 @@ public type Icon:
   )
 .
-public define HTML_Off_Form
+public define HTML
   to_HTML
   (
     Icon  icon
@@ -67,4 +67,4 @@ public define String icn64_mime(String mimetype)  = &quot;icons/64x64/mimetypes/&quot;+mim
 public define String icn64_mime(MIME mimetype)    = "icons/64x64/mimetypes/"+mimetype.type+"-"+mimetype.subtype+".png".
 public define String        to_Icon     (Bool value)  = if value then icn16_true else icn16_false.
-public define HTML_Off_Form bool_to_img (Bool value)  = img(to_Icon(value)).
+public define HTML bool_to_img (Bool value)  = img(to_Icon(value)).
@@ -11,13 +11,13 @@ read xlib/web/making_a_web_site.anubis
 read xlib/web/web_action.anubis
 read xlib/web/load_content.anubis
-define List(HTML_Off_Form)
+define List(HTML)
   make_left_menu 
   (
     (String) -> String    _T,         //translator function 
     List(Left_Menu_Entry) entries,
     String                selected,
-    List(HTML_Off_Form)   so_far
+    List(HTML)   so_far
   )=
   if entries is 
   {
@@ -48,7 +48,7 @@ define List(HTML_Off_Form)
       make_left_menu(_T, t, selected, [ entry . so_far])
   }.
-public define HTML_Partial_Content
+public define HTML
   make_left_menu
   (
     (String) -> String    _T,         //translator function 
@@ -56,10 +56,10 @@ public define HTML_Partial_Content
   )=
   if l_menu is 
   {
-    no_left_menu                  then partial_empty,
+    no_left_menu                  then empty,
     left_menu(entries, selected)  then
-      partial_content([css(css_file("/css/left_menu.css"))],
-        sequence(make_left_menu(_T, entries, selected, [])))
+      head_tags([css(css_file("/css/left_menu.css"))],
+        make_left_menu(_T, entries, selected, []))
   }.
@@ -30,7 +30,7 @@ public type Menu_Item:
 //    List(String)  classes     //additional classes if need (change background color, font size, etc.)
 //  ),
   menu_item_content(
-    HTML_Partial_Content content
+    HTML content
   ),
   menu_separator
 .
@@ -130,12 +130,12 @@ public define Menu_Item
 //  )=
 //  menu_title(text, title_ids, []).
-define List(HTML_Off_Form)
+define List(HTML)
   generate_menu 
   (
     (String) -> String    _T,         //translator function 
     List(Menu_Item)       items,
-    List(HTML_Off_Form)   so_far,
+    List(HTML)   so_far,
     Int                   level
   )=
   if items is 
@@ -150,9 +150,9 @@ define List(HTML_Off_Form)
           with classes = join(" ",[(if level = 0 then "maintab" else ""),
                                    (if is_empty(_sub_menu) then "" else "has_submenu") .
                                    _classes]),
-          with current_li = (HTML_Off_Form)li( [class(classes)],
+          with current_li = li(class(classes),
             //if _icon = "" then [] else [class(_icon+"_icon")], 
-              sequence([actioner(same, _target, 
+              [actioner(same, _target, 
                           html(if level = 0 then [class("title")] else [],
                             sequence([
                               //format the icon if need
@@ -168,17 +168,17 @@ define List(HTML_Off_Form)
                         if is_empty(_sub_menu) then
                           empty
                         else
-                          (HTML_Off_Form)ul([class("submenu")], generate_menu(_T, _sub_menu, [], level+1))
-                       ])),
+                          (HTML)ul([class("submenu")], generate_menu(_T, _sub_menu, [], level+1))
+                       ]),
           generate_menu(_T, t, [current_li . so_far], level),
 //        menu_title(text, _ids, _classes)        then
         menu_item_content(_content)             then
-//          with current_li = (HTML_Off_Form)li([class("item "+_class+"_icon")],actioner(same,same, link(_T(_text)),_action,_extra)),
-          with current_li = (HTML_Off_Form)li([],partial(_content)),
+//          with current_li = (HTML)li([class("item "+_class+"_icon")],actioner(same,same, link(_T(_text)),_action,_extra)),
+          with current_li = li(_content),
           generate_menu(_T, t, [current_li . so_far], level),
         menu_separator                          then
-          with current_li = (HTML_Off_Form)li([class("cxm_menu_sep")],text("--- SEPARATOR ---")),
+          with current_li = li(class("cxm_menu_sep"), text("--- SEPARATOR ---")),
           generate_menu(_T, t, [current_li . so_far], level)
       }
@@ -188,18 +188,18 @@ define List(HTML_Off_Form)
 //        
 //        hk_menu_list(_class, _action, _text, _extra, _entries)  then
 //          with current_li = 
-//              (HTML_Off_Form)li([class(_class+"_icon")],
+//              (HTML)li([class(_class+"_icon")],
 //                              sequence([
 ////                                actioner(same,same, link(_T(_text)),_action,_extra),
 //                                actioner(same,same, link(help_string(_text, _T)),_action,_extra),
 //                                text([class(if level = 0 then "dropBottom" else "dropRight")], ""),
-//                                (HTML_Off_Form)ul([], sequence(generate_hk_menu(_T, _entries, [], level+1)))])),             
+//                                (HTML)ul([], sequence(generate_hk_menu(_T, _entries, [], level+1)))])),             
 //          generate_hk_menu(_T, t, [current_li . so_far], level)
 //
 //        }
 //  }.
-define HTML_Off_Form
+define HTML
   make_menu
   (
     (String) -> String  _T,         //translator function 
@@ -212,7 +212,7 @@ define HTML_Off_Form
     ])
 .
-public define HTML_Partial_Content
+public define HTML
   make_menu
   (
     (String) -> String  _T,         //translator function 
@@ -221,9 +221,9 @@ public define HTML_Partial_Content
   )=
   if _menu is 
   {
-    no_menu     then partial_content(empty),
+    no_menu     then empty,
     menu(items) then
-      partial_content([css(css_file("xlib/css/menu.css"))],
+      head_tags([css(css_file("xlib/css/menu.css"))],
       //partial_content([css(css_file("/css/admin_theme.css"))],
         make_menu(_T, items, _direction))
   }
@@ -9,7 +9,7 @@
 read xlib/web/making_a_web_site.anubis
 read xlib/web/web_session.anubis
-public define HTML_Partial_Content
+public define HTML
   control_panel_pager
   (
     String  pager_id,
@@ -20,7 +20,7 @@ public define HTML_Partial_Content
     String  next
   )
   =
-  partial_content([js(js_file("xlib/js/pager.js"))],
+  head_tags([js(js_file("xlib/js/pager.js"))],
   div(id(pager_id), [
     text(class("o_pager_current_page"), current_page),
     text("/"),
@@ -34,7 +34,7 @@ public define HTML_Partial_Content
   ]))
 .
-public define HTML_Partial_Content
+public define HTML
   control_panel_pager
   (
     String  pager_id,
@@ -29,7 +29,7 @@ public define String
   }
 .
-public define HTML_Off_Form
+public define HTML
   phone_icon
   (
     List(CoreAttrs) attrs,
@@ -66,7 +66,7 @@ public define HTML_Off_Form
   ])
 .
-public define HTML_Off_Form
+public define HTML
   phone_icon
   (
     List(CoreAttrs) attrs,
@@ -74,7 +74,7 @@ public define HTML_Off_Form
     Bool            click_to_dial
   )= phone_icon(attrs, phone_number, generic, true, click_to_dial).
-public define HTML_Off_Form
+public define HTML
   phone_icon
   (
     String          phone_number,
@@ -83,7 +83,7 @@ public define HTML_Off_Form
   phone_icon([], phone_number, generic, true, click_to_dial)
 .
-public define HTML_Off_Form
+public define HTML
   phone_icon
   (
     String      phone_number,
@@ -94,7 +94,7 @@ public define HTML_Off_Form
   phone_icon([], phone_number, phone_type, show_number, click_to_dial)
 .
-public define HTML_Off_Form
+public define HTML
   phone_icon
   (
     String      phone_number,
@@ -105,7 +105,7 @@ public define HTML_Off_Form
 .
-public define HTML_Off_Form
+public define HTML
   email_icon
   (
     List(CoreAttrs) attrs,
@@ -124,7 +124,7 @@ public define HTML_Off_Form
   ])
 .
-public define HTML_Off_Form
+public define HTML
   email_icon
   (
     String  email_address,
@@ -133,7 +133,7 @@ public define HTML_Off_Form
   email_icon([], email_address, show_text)
 .
-public define HTML_Off_Form
+public define HTML
   email_icon
   (
     String  email_address
@@ -141,7 +141,7 @@ public define HTML_Off_Form
   email_icon([], email_address, true)
 .
-public define HTML_Off_Form
+public define HTML
   url_icon
   (
     List(CoreAttrs) attrs,
@@ -160,7 +160,7 @@ public define HTML_Off_Form
   ])
 .
-public define HTML_Off_Form
+public define HTML
   url_icon
   (
     String  url_string, //url to open
@@ -169,7 +169,7 @@ public define HTML_Off_Form
   url_icon([], url_string, show_text)
 .
-public define HTML_Off_Form
+public define HTML
   url_icon
   (
     String  url_string
@@ -153,7 +153,7 @@ public define List((List(CoreAttrs),WebArgValue, String))
   )
 .
-define HTML_Off_Form
+define HTML
   language_line
   (
     String language_code,
@@ -163,7 +163,7 @@ define HTML_Off_Form
       event(onclick, "language_changed('"+language_code+"');")], text(language))
 .
-define HTML_Off_Form
+define HTML
   language_line
   (
     String language_code,
@@ -176,7 +176,7 @@ define HTML_Off_Form
   ])
 .
-public define HTML_Partial_Content 
+public define HTML 
   flags_menu
   (
     String                      dictionary_collection_name,
@@ -190,32 +190,31 @@ public define HTML_Partial_Content
                       empty
                     else
                       language_line(lang_code, self_name(lang_info)),
-  partial_content([
+
+    head_tags([
       css(css_file("/xlib/css/flags_menu.css")),
       js(js_file("/xlib/js/xlib.js"))
-    ],
-    [
+      ], 
       dl([
       //literal("<dt style=\"background-image: url(../flags/"+lang+".png);\" onmouseover=\"javascript:montre('drapo1');\" onmouseout=\"javascript:montre();\">&nbsp;</dt>\n"),
       //literal("<img src=\"/xlib/flags/24x24/"+lang+".png\" onmouseover=\"javascript:montre('drapo1');\" onmouseout=\"javascript:montre();\">"),
       img([event(onmouseover, "showObject('l3-flag');"), event(onmouseout, "hideObject('l3-flag');")], "/xlib/flags/lang/24/"+lang+".png" ),
       dd([style("display: none"),id("l3-flag"), event(onmouseover, "showObject('l3-flag');"), event(onmouseout, "hideObject('l3-flag');")],
-      ul(
-        map(make_line, l3_get_all_dicos(dictionary_collection_name))+
-        [
+        ul(
+          map(make_line, l3_get_all_dicos(dictionary_collection_name))+
+          [
           if show_symbolic then
             language_line("symb", "symbolic")
           else
             empty
-        ]
-      )),
+          ]
+        )),
       ])  //!dl
-    ]
-  )
+    )
 .
-public define HTML_Partial_Content 
+public define HTML 
   flags_menu
   (
     WEB_Session                 _session,
@@ -229,7 +228,7 @@ public define HTML_Partial_Content
 .
-public define HTML_Partial_Content
+public define HTML
   choose_lang_dialog
   (
     String            dictionary_collection_name,
@@ -246,7 +245,7 @@ public define HTML_Partial_Content
                     else
                       language_line(lang_code, self_name(lang_info), action),
-   partial_content([
+   head_tags([
       css(css_file("/xlib/css/flags_menu.css")),
       js(js_file("/xlib/js/xlib.js"))
     ],
@@ -268,7 +267,7 @@ public define HTML_Partial_Content
   )
 .
-public define HTML_Partial_Content 
+public define HTML 
   choose_lang_dialog
   (
     WEB_Session       _session,
@@ -281,7 +280,7 @@ public define HTML_Partial_Content
   choose_lang_dialog(app_dictionnary, action, show_symbolic, [])
 .
-public define HTML_Partial_Content 
+public define HTML 
   choose_lang_dialog
   (
     WEB_Session       _session,
@@ -294,7 +293,7 @@ public define HTML_Partial_Content
   choose_lang_dialog(app_dictionnary, action, false, exclude_lang)
 .
-public define HTML_Partial_Content 
+public define HTML 
   choose_lang_dialog
   (
     WEB_Session       _session,
@@ -308,7 +307,7 @@ public define HTML_Partial_Content
  /* DROPDOWN part */
-define HTML_Off_Form
+define HTML
   dd_language_line
   (
     String language_code,
@@ -321,7 +320,7 @@ define HTML_Off_Form
   ])
 .
-public define HTML_Partial_Content
+public define HTML
   choose_lang_dropdown
   (
     String            dictionary_collection_name,
@@ -341,7 +340,7 @@ public define HTML_Partial_Content
                     else
                       dd_language_line(lang_code, self_name(lang_info), action),
-   partial_content([
+   head_tags([
       css(css_file("/xlib/css/flags_menu.css")),
       js(js_file("/xlib/js/xlib.js"))
     ],
@@ -360,7 +359,7 @@ public define HTML_Partial_Content
   )
 .
-public define HTML_Partial_Content 
+public define HTML 
   choose_lang_dropdown
   (
     WEB_Session           _session,
@@ -375,7 +374,7 @@ public define HTML_Partial_Content
   choose_lang_dropdown(app_dictionnary, action, image, on_click, show_symbolic, [])
 .
-public define HTML_Partial_Content 
+public define HTML 
   choose_lang_dropdown
   (
     WEB_Session           _session,
@@ -390,7 +389,7 @@ public define HTML_Partial_Content
   choose_lang_dropdown(app_dictionnary, action, image, on_click, false, exclude_lang)
 .
-public define HTML_Partial_Content 
+public define HTML 
   choose_lang_dropdown
   (
     WEB_Session       _session, //