Adding checkbox to DojoDialog

Cédric RICARD
1 parent 42149afb
Showing 1 changed file with 48 additions and 13 deletions Show diff stats
calexium_lib/web/CXM_dojo.anubis
@@ -73,9 +73,10 @@ public type Input_Type:
   password.
 public type InputDial:
-  input_dial(String id, Input_Type input_type, String label, Maybe(String) class),
-  input_date(String id, String label),
-  input_combo(String label, HtmlId id, WebArgName name, List((WebArgValue,String)) list_data).
+  input_dial(HtmlId id, Input_Type input_type, String label, Maybe(String) class),
+  input_date(HtmlId id, String label),
+  input_combo(HtmlId id, String label, List((WebArgValue,String)) list_data),
+  input_check(HtmlId id, String label, Bool checked).
 define List(HTML_Off_Form)
@@ -111,20 +112,45 @@ public define HTML_Off_Form
     ]).
 define HTML_Off_Form
+  _maybe_label
+  (
+    String    label_text,
+    HtmlId    html_id
+  ) =
+  if length(label_text) > 0 then literal("<label for=\"" + html_id.id + "\">" + label_text + "</label>") 
+                            else literal("").
+   
+public define HTML_Off_Form
+  dojo_checkbox
+  (
+    WebArgName    the_name,
+    HtmlId        the_id,
+    String        label,
+    WebArgValue   val,
+    Bool          checked,
+  )=
+  sequence([
+    _maybe_label(label, the_id),
+    literal("<input type=\"checkbox\" name=\"" + the_name.name + "\" id=\"" + the_id.id + "\" value=\"" + val.value + "\"" 
+            + (if checked then " checked=\"checked\" " else "") + " dojoType=\"dijit.form.CheckBox\" />"),
+  ]).
+
+
+define HTML_Off_Form
   input_in_dialog
   (
     InputDial input_data
   )=
   if input_data is 
   {
-    input_dial(id, input, label, class) then
+    input_dial(html_id, input, label, class) then
       sequence([ 
-        literal("<div id=\"" + id +"_block\"" +
+        literal("<div id=\"" + html_id.id +"_block\"" +
         if class is
         {
           failure then "",
           success(class_name) then " class=\"block_"+ class_name +"\""
-        }+"><label for=\"" + id + "\" id=\"label_" + id + "\"" +
+        }+"><label for=\"" + html_id.id + "\" id=\"label_" + html_id.id + "\"" +
         if class is
         {
           failure then "",
@@ -137,22 +163,31 @@ define HTML_Off_Form
           text then "type=\"text\"",
           password then "type=\"password\""
         } +
-        " name=\""+id+"\" id=\""+id+"\" /></div>")
+        " name=\""+html_id.id+"\" id=\""+html_id.id+"\" /></div>")
       ]),
-    input_date(id, label) then 
+      
+    input_date(html_id, label) then 
       sequence([
-        literal("<div id=\"" + id +"_block\"><label for=\"" + id + "\"> " + label + "</label>"), 
-        literal("<div id=\""+id+"\" type=\"text\" name=\"date1\"
+        literal("<div id=\"" + html_id.id +"_block\"><label for=\"" + html_id.id + "\"> " + label + "</label>"), 
+        literal("<div id=\""+html_id.id+"\" type=\"text\" name=\"date1\"
     					   dojoType=\"dijit.form.DateTextBox\">
     				</div></div>"
     				)
     	]),
-  	input_combo(label, the_id, name, list_data) then
+    	
+  	input_combo(the_id, label, list_data) then
   	  sequence([
     	  literal("<div id=\"" + the_id.id +"_block\">"), 
-    	  dojo_combobox(name, the_id, label, list_data),
+    	  dojo_combobox(wan(the_id.id), the_id, label, list_data),
     	  literal("</div>")
-  	  ]) 
+  	  ]),
+  	
+  	input_check(the_id, label, checked) then
+      sequence([
+    	  literal("<div id=\"" + the_id.id +"_block\">"), 
+    	  dojo_checkbox(wan(the_id.id), the_id, label, wav("1"), checked),
+    	  literal("</div>"),
+      ]),
   }
 .