From 59451adff7bc3794399cb5583a13ab6a03b6440d Mon Sep 17 00:00:00 2001
From: Steve MARECHAL <steve.marechal@calexium.com>
Date: Mon, 1 Dec 2008 17:28:32 +0000
Subject: [PATCH] combo in dialog

---
 calexium_lib/web/CXM_dojo.anubis | 42 ++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 40 insertions(+), 2 deletions(-)

diff --git a/calexium_lib/web/CXM_dojo.anubis b/calexium_lib/web/CXM_dojo.anubis
index 12c5e2e..ab18dac 100644
--- a/calexium_lib/web/CXM_dojo.anubis
+++ b/calexium_lib/web/CXM_dojo.anubis
@@ -74,7 +74,42 @@ public type Input_Type:
 
 public type InputDial:
   input_dial(String id, Input_Type input_type, String label),
-  input_date(String id, String label).
+  input_date(String id, String label),
+  input_combo(String label, HtmlId id, WebArgName name, List((WebArgValue,String)) list_data).
+
+
+define List(HTML_Off_Form)
+  format_list_data 
+  (
+    List((WebArgValue,String))  list_data,
+    List(HTML_Off_Form)         result_list
+  )=
+  if list_data is
+  {
+    [] then result_list,
+    [h . t] then
+      if h is (wa, label) then
+      format_list_data(t, [literal("<option value=\"" + wa.value + "\">" + label + "</option>") . result_list])
+  }.
+
+public define HTML_Off_Form
+  dojo_combobox
+  (
+    WebArgName                  the_name,
+    HtmlId                      the_id,
+    String                      label,
+    List((WebArgValue,String))  list_data,
+  )=
+  sequence([
+    literal("<label for=\"" + the_id.id + "\">" + label + "</label>
+		<select id=\""+the_id.id+"\"
+				name=\"" + the_name.name + "\"
+				dojoType=\"dijit.form.ComboBox\"
+				autoComplete=\"false\"
+				pageSize=\"30\">"),
+		sequence((format_list_data(list_data, []))),
+    literal("</select>")
+    ]).
 
 define HTML_Row(HTML_Off_Form)
   input_in_dialog
@@ -102,7 +137,10 @@ define HTML_Row(HTML_Off_Form)
   					   dojoType=\"dijit.form.DateTextBox\">
   				</div>"
   				)
-  				]))])
+  				]))]),
+  	input_combo(label, id, name, list_data) then
+  	  row([], [cell([], sequence([
+  	  dojo_combobox(name, id, label, list_data)]))])
   }
 .
 
--
libgit2 0.21.4