/*
 * Created by PyramIDE.
 * User: Steve Marechal
 * Date: 11/06/2008
 * Time: 09:54
 * 
 */

read tools/basis.anubis
read tools/base64.anubis
read locale/L3LanguageInfo.anubis
read system/string.anubis

read calexium_lib/web/CXM_common.anubis
read calexium_lib/web/CXM_making_a_web_site.anubis
read calexium_lib/web/CXM_multihost_http_server.anubis
read calexium_lib/net_services_protocols/logger_service.anubis

read mailfountain_constants.anubis
read mailfountain_types.anubis
read common/language_management.anubis

read tools/mf_loggers.anubis
read system/logger.anubis

public type Dojo_Grid_Data :
  grid_data(String).

public type Position_Direction:
 	brup,
 	brleft, 
 	blup, 
 	blright, 
 	trdown, 
 	trleft, 
 	tldown, 
 	tlright.

define String
  pos_dir_to_str
  (
    Position_Direction pos
  )=
  if pos is
  {
    brup    then "br-up",
 	  brleft  then "br-left", 
 	  blup    then "bl-up", 
 	  blright then "bl-right", 
 	  trdown  then "tr-down", 
 	  trleft  then "tr-left", 
 	  tldown  then "tl-down", 
 	  tlright then "tl-right"
  }.



public define HTML_Off_Form
  dojo_button
  	(
  	  String name,
  	  String execute,
  	  String id,
  	)
	=
	literal("
  <button dojoType=\"dijit.form.Button\" id=\""+id+"\" onclick=\""+execute+"\">"+name+"</button>")
.

public define HTML_Off_Form
  dojo_dialog
  	(
  	  String name,
  	  String dialog_id,
  	  String execute,
  	  Bool   file
  	)
	=
	sequence[
  	dojo_button(name,"dijit.byId('"+dialog_id+"').show()", dialog_id + "_button"),
  	div([attr("dojoType", "dijit.Dialog"), id(dialog_id), title(name), attr("execute", execute)],
  	  table([], 
  	        empty, 
  	        [
  	          row([], [cell([], literal("<input dojoType=dijit.form.TextBox " + 
  	                              (if file then 
  	                                "type=\"file\"" 
  	                              else
  	                                "type=\"text\"")
  	                            + " name=\"name\" id=\"name_"+dialog_id+"\" />")
  	         
  	          )]),
  	          row([], [cell([columns(2), h_center], literal("<button dojoType=dijit.form.Button type=\"submit\">OK</button>"))]),
  	        ],
  	        empty)),
  	literal("<br/>"),
  ]
.

public type DojoGridEditor:
  inputEditor,
  boolEditor,
  selectEditor(List(String) options),
  alwaysOnEditor.
 
public type DojoGridDefaultColumn:
  dojo_grid_default_column( 
                    String                styles,
                    Maybe(String)         width,
                    Maybe(DojoGridEditor) editor).

public type DojoGridColumn:
  dojo_grid_column( String        label,
                    String        field_name,
                    Maybe(String) width,
                    Maybe(DojoGridEditor) editor).

public type  DojoGridView:
  dojo_grid_view(
      Maybe(DojoGridDefaultColumn)  default_column,
      List(DojoGridColumn)          columns).

public type  DojoGridLayout:
  dojo_grid_layout(
      Maybe(String)       selectable_row_header_width,
      List(DojoGridView)  views).

define String to_String(DojoGridEditor editor) =
  "editor: " + 
    if editor is
    {
      inputEditor           then "dojox.grid.editors.Input",
      boolEditor            then "dojox.grid.editors.Bool",
      selectEditor(options) then "dojox.grid.editors.Select, options: [" + join(",", map((String o) |-> "\"" + o + "\"", options)) + "]",
      alwaysOnEditor        then "dojox.grid.editors.AlwaysOn"
    }.

define String to_String(DojoGridView view) =
  "{ " + (if view.default_column is success(col) then 
            (if col is dojo_grid_default_column(styles, mb_width, mb_editor) then
            "defaultCell: {"
                   + "styles: \"" + styles + "\""
                   + (if mb_width is success(w) then ", width=\"" + w + "\"" else "")
                   + (if mb_editor is success(e) then ", " + to_String(e) else "")
                   + "}, ")
          else "")
       + "cells: [[" + join(",", map((DojoGridColumn col) |->
                                     if col is dojo_grid_column(label, field, mb_width, mb_editor) then
                                     "{"
                                           + "name: \"" + label + "\""
                                           + "field: \"" + field + "\""
                                           + (if mb_width is success(w) then ", width=\"" + w + "\"" else "")
                                           + (if mb_editor is success(e) then ", " + to_String(e) else "")
                                   + "}",
                                 view.columns)) + "]]"
  +"}".
  

public define String
  dojo_make_grid_script
    (
  	  HtmlId                html_id,
  	  DojoGridLayout        layout,
  	  String                layout_name,
  	  String                store_name,
      Bool                  can_edit
   )
  =
"<script type=\"text/javascript\">
  " + layout_name + " = [" 
      + (if layout.selectable_row_header_width is success(w) then "{ type: 'dojox.GridRowView', width: '" + w + "'}, " else "")
      + join(", ", map(to_String, layout.views))
    + "];
</script>".

public define HTML_Off_Form
  dojo_make_grid_script
    (
  	  HtmlId          html_id,
  	  List(String)    columns,
      Bool            can_edit
   )
  =
  literal(
"<script type=\"text/javascript\">
  var cols = ["+join(",", map((String col) |-> "\"" + col + "\"", columns)) + "];
 	dojo.addOnLoad(function(){
	  init_dojo_grid(\""+html_id.id+"\", cols, "+ (if can_edit then "1" else "0")+");
 	});
</script>").

public define HTML_Off_Form
  dojo_grid
    (
  	  HtmlId                html_id,
      Int                   rowsPerPage,
      List(Table_Option)    attributes,
    )=
    table([attr("dojoType", "dojox.grid.DataGrid"), attr("id", html_id.id), attr("jsId", html_id.id), 
         attr("class", "soria"), attr("singleClickEdit", "true"), attr("rowsPerPage", to_decimal(rowsPerPage)) . attributes],
         empty, [], empty).


public define HTML_Off_Form
  dojo_grid
    (
  	  HtmlId            html_id,
      List(CoreAttrs)   attributes,
//  	  List(GridColumn)  columns,
      String colum1,
      String colum2,
      String colum3,
      String colum4,
      Bool              can_edit
   )
  =
  sequence([
    literal(

"<script type=\"text/javascript\">
 	dojo.addOnLoad(function(){
	  init_dojo_grid(\""+html_id.id+"\", \""+colum1+"\",\""+colum2+"\", \""+colum3+"\", \""+colum4+"\", "+ (if can_edit then "1" else "0")+");
 	});
</script>"),
    div_empty([id(html_id.id) . attributes /*attr("dojoType", "dojox.Grid"), */]),
  ]).
//<div id=\"gridContainer\"></div>").


public define HTML_Off_Form
  dojo_message_box
  	(
  	  HTML_Off_Form name1,
  	  HTML_Off_Form name2,
  	)
	=
	sequence([
  	literal("<br/>"),
    div([class("message_box")],
      sequence([
			  div([id("node3"), class("box nopad hidden")], name1),
			  div([id("node4"), class("box two nopad")], name2),
			])),
  	literal("<br/>"),
	]).



public define HTML_Off_Form
  dojo_tooltip
  (
    String title,
    String keyword,
  ) =
  actioner(same,same, link([id("dojo_tip_" + keyword),class("dojoToolTip")],title, success(title)), "show_address_mailing", [("address_mailing", keyword)], []).
  //actioner(same, same, push_button([id("dojo_tip_" + keyword), class("in"), event(onclick,"new_search(this)")], keyword), "", [], []).
  

public type BorderContainerRegion:
  center, 
  top,
  bottom,
  leading,
  trailing,
  left,
  right.

define String 
  to_String
  (
    BorderContainerRegion region
  )=
  if region is
  {
    center    then "center", 
    top       then "top",
    bottom    then "bottom",
    leading   then "leading",
    trailing  then "trailing",
    left      then "left",
    right     then "right"
  }.
  
public type BorderContainerDesign:
  headline,
  sidebar.

define String 
  to_String
  (
    BorderContainerDesign design
  )=
  if design is
  {
    headline   then "headline",
    sidebar    then "sidebar" 
  }.
  
  
public define HTML_Off_Form
  dojo_ContentPane
  (
      List(CoreAttrs)       attributes,
      BorderContainerRegion region,
      Bool                  splitter,
      HTML_Off_Form         content
  )  =
  div([ attr("dojoType", "dijit.layout.ContentPane"), 
        attr("region", to_String(region)), 
        attr("splitter", if splitter then "true" else "false") . attributes ],
      content).

public define HTML_In_Form
  dojo_ContentPane
  (
      List(CoreAttrs)       attributes,
      BorderContainerRegion region,
      Bool                  splitter,
      HTML_In_Form         content
  )  =
  div([ attr("dojoType", "dijit.layout.ContentPane"), 
        attr("region", to_String(region)), 
        attr("splitter", if splitter then "true" else "false") . attributes ],
      content).
      
public define HTML_Off_Form
  dojo_TabContainer
  (
      List(CoreAttrs) attributes,
      HTML_Off_Form   content
  )  =
  div([attr("dojoType", "dijit.layout.TabContainer") . attributes ],
      content).


public define HTML_Off_Form
  dojo_BorderContainer
  (
      List(CoreAttrs)       attributes,
      Maybe(String)         the_title,
      BorderContainerDesign design,
      Bool                  live_splitter,
      Bool                  persist,
      Bool                  closable,
      String                container,
      HTML_Off_Form         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), 
                         attr("closable",closable) . attributes ],
       total_attributes = if the_title is
                          {
                            failure then the_attributes,
                            success(t) then [title(t) . the_attributes]
                          },
  div(total_attributes, content).

public define HTML_In_Form
  dojo_BorderContainer
  (
      List(CoreAttrs)       attributes,
      Maybe(String)         the_title,
      BorderContainerDesign design,
      Bool                  live_splitter,
      Bool                  persist,
      Bool                  closable,
      String                container,
      HTML_In_Form         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), 
                         attr("closable",closable) . attributes ],
       total_attributes = if the_title is
                          {
                            failure then the_attributes,
                            success(t) then [title(t) . the_attributes]
                          },
  div(total_attributes, content).    

public define HTML_Off_Form
  dojo_tree
  (
      List(CoreAttrs) attributes,
  )=
  div_empty(attributes).



public define HTML_Off_Form
  dojo_Toolbar
  (
    List(CoreAttrs) attributes,
    HTML_Off_Form         content
  )=
  div([attr("dojoType", "dijit.Toolbar") . attributes ],
      content).

  
  
public define HTML_Off_Form
  dojo_button
  	(
  	  HtmlId        html_id,
  	  String        name,
  	  String        iconclass,
  	  Maybe(String) tip_msg,
  	  String        execute,
  	)=
	literal("
  <button dojoType=\"dijit.form.Button\" id=\"" + html_id.id + "\" iconClass=\"" + iconclass + "\" >" 
  + name
  + "<script type=\"dojo/method\" event=\"onClick\">"
  + execute
  + "</script>"
  + "</button>" +
  if tip_msg is 
  {
    failure then "",
    success(tip) then 
      "<span dojoType=\"dijit.Tooltip\" connectId=\"" + html_id.id + "\">" + tip + "</span>"
  }).

public define HTML_In_Form
  dojo_button 
  	(
  	  HtmlId        html_id,
  	  String        name,
  	  String        iconclass,
  	  Maybe(String) tip_msg,
  	  String        execute,
  	)=
	literal("
  <button dojoType=\"dijit.form.Button\" id=\"" + html_id.id + "\" iconClass=\"" + iconclass + "\" >" 
  + name
  + "<script type=\"dojo/method\" event=\"onClick\">"
  + execute
  + "</script>"
  + "</button>" +
  if tip_msg is 
  {
    failure then "",
    success(tip) then 
      "<span dojoType=\"dijit.Tooltip\" connectId=\"" + html_id.id + "\">" + tip + "</span>"
  }).


public define HTML_Off_Form
  dojo_declaration
  	(
      String          name,
      List(CoreAttrs) attributes,
      HTML_Off_Form   content
    )=
  div([attr("dojoType", "dijit.Declaration"), attr("widgetClass", name) . attributes ],
      content).
 

public define HTML_In_Form
  dojo_declaration
  	(
      String          name,
      List(CoreAttrs) attributes,
      HTML_In_Form    content
    )=
  div([attr("dojoType", "dijit.Declaration"), attr("widgetClass", name) . attributes ],
      content).

public define HTML_In_Form
  dojo_editor
  	(
      List(CoreAttrs)  attributes,
      HtmlId           html_id,
      WebArgName       input_name,
      HTML_In_Form     text,
    )=/*
   text_area([input_attrs([
     attr("dojoType", "dijit.Editor"), attr("style", "overflow:auto") .
	   [attr("extraPlugins" , "['createLink','insertImage',{name:'dijit._editor.plugins.FontChoice', command: 'fontName', generic: true},'fontSize']")]])
	    . attributes], "", id, name, init(text), 0, 0).*/
//	    literal("<div   dojoType=\"dijit.Editor\"  region=\"center\" id=\"${id}_edit\" name=\"${id}_edit\" >
//blablablablabal</div>").
  div([id(html_id.id), attr("name", input_name.name), attr("dojoType", "dijit.Editor")
  //, attr("style", "overflow:auto"), attr("extraPlugins" , "['createLink','insertImage',{name:'dijit._editor.plugins.FontChoice', command: 'fontName', generic: true},'fontSize']")
	    . attributes], text).
 
  public define HTML_In_Form
  dojo_button
  	(
  	  HtmlId        html_id,
  	  String        name,
  	  String        iconclass,
  	  Maybe(String) tip_msg,
  	  String        execute,
  	)=
	literal("<input id=\"realSubmitButton"+ html_id.id + "\" type=\"submit\" style=\"display:none\">
    <button dojoType=\"dijit.form.Button\" id=\"" + html_id.id + "\" iconClass=\"" + iconclass + "\" onclick=\"dojo.byId('realSubmitButton" + html_id.id + "').click();" + execute + "\">" + name + "</button>" +
    if tip_msg is 
    {
      failure then "",
      success(tip) then 
        "<span dojoType=\"dijit.Tooltip\" connectId=\"" + html_id.id + "\">" + tip + "</span>"
    }).

public define HTML_In_Form
  dojo_checkbox
  (
    List(InputAttrs)  attributes,
    WebArgName    name,
    HtmlId        id,
    String        label,
    WebArgValue   val,
    Bool          checked,
  )=
    check_box_r([attr("dojoType", "dijit.form.CheckBox") . attributes] , label, id, name, val, checked).

public define HTML_In_Form
  dojo_combobox
  (
    List(InputAttrs)            attributes,
    WebArgName                  name,
    HtmlId                      id,
    String                      label,
    List((WebArgValue,String))  list_data,
    InitialValue                selected,
  )=
   // selector_c([attr("dojoType", "dijit.form.ComboBox") . attributes], label, id, name, 1, list_data, selected, non_mandatory).
  selector_c([], label, id, name, 1, list_data, selected).

public define HTML_Off_Form
  dojo_toaster
  (
    List(CoreAttrs)            attributes,
    HtmlId                     html_id,
    String                     message_topic,
    Position_Direction         position_direction,
    Bool                       separator,
    Maybe(Int)                 duration
  )=
  div(append(append(if separator then [attr("separator","&lt;hr&gt;")]
             else [],
             if duration is
             {
              failure then [],
              success(dur) then [attr("duration", abs_to_decimal(dur))]
             }),
             [attr("dojoType", "dojox.widget.Toaster"), attr("messageTopic", message_topic),
      attr("positionDirection", pos_dir_to_str(position_direction)), id(html_id.id) 
      . attributes ]),
      literal("")).