dojo checkbox added

Steve MARECHAL
1 parent b423bdc9
Showing 2 changed files with 15 additions and 0 deletions Show diff stats
calexium_lib/web/CXM_dojo.anubis
calexium_lib/web/CXM_mime.anubis
@@ -20,6 +20,7 @@ read mailfountain_constants.anubis
 read mailfountain_types.anubis
 read common/language_management.anubis
  
+read common/generic_page.anubis
 read tools/mf_loggers.anubis
 read system/logger.anubis
  
@@ -407,3 +408,16 @@ public define HTML_In_Form
       success(tip) then 
         "<span dojoType=\"dijit.Tooltip\" connectId=\"" + html_id.id + "\">" + tip + "</span>"
     }).
+
+public define MF_FormField
+  dojo_checkbox
+  (
+    List(InputAttrs)  attributes,
+    WebArgName    name,
+    HtmlId        id,
+    String        label,
+    WebArgValue   val,
+    Bool          checked,
+    Mandatory     mandatory,
+  )=
+    checkboxr([attr("dojoType", "dijit.form.CheckBox") . attributes] , label, id, name, val, checked, mandatory).
@@ -65,3 +65,4 @@ public define String
   )=
   with text2 = "=?"+charset+"?B?"+to_string(base64_encode(to_byte_array(text)))+"?=",
   find_and_replace(text2, implode([13,10]), implode([13,10,32])).
+