dojo combobox added

Steve MARECHAL
1 parent 0f3fad3e
Showing 2 changed files with 34 additions and 0 deletions Show diff stats
calexium_lib/web/CXM_common.anubis
calexium_lib/web/CXM_dojo.anubis
@@ -125,6 +125,27 @@ public define Maybe((String,String))
              else file_upload_value(t,name)
          }
      }.
+
+public define List((String,String))
+   file_upload_value
+     (
+       List(Web_arg)          l,
+       String                 name,
+       List((String,String))  new_list
+     ) =
+   if l is 
+     {
+       [ ] then new_list, 
+       [h . t] then if h is 
+         {
+           web_arg(_,_) then file_upload_value(t,name, new_list), 
+           upload(n,v,tfn) then 
+             if n = name
+             then file_upload_value(t,name, [(v,tfn) . new_list])
+             else file_upload_value(t,name, new_list)
+         }
+     }.     
+
 public type Redirection:
    redirect(String required_uri,        // URI required by the client
@@ -421,3 +421,16 @@ public define MF_FormField
     Mandatory     mandatory,
   )=
     checkboxr([attr("dojoType", "dijit.form.CheckBox") . attributes] , label, id, name, val, checked, mandatory).
+
+public define MF_FormField
+  dojo_combobox
+  (
+    List(InputAttrs)            attributes,
+    WebArgName                  name,
+    HtmlId                      id,
+    String                      label,
+    List((WebArgValue,String))  list_data,
+    Maybe(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, non_mandatory).