progress_bar added

Steve MARECHAL
1 parent 46449b0b
Showing 1 changed file with 52 additions and 16 deletions Show diff stats
calexium_lib/web/CXM_dojo.anubis
@@ -429,13 +429,24 @@ public define HTML_Off_Form
   dojo_button
   	(
   	  HtmlId        html_id,
+  	  Maybe(String) class,
   	  String        name,
-  	  String        iconclass,
+  	  Maybe(String) iconclass,
   	  Maybe(String) tip_msg,
   	  String        execute,
   	)=
 	literal("
-  <button dojoType=\"dijit.form.Button\" id=\"" + html_id.id + "\" iconClass=\"" + iconclass + "\" >" 
+  <button dojoType=\"dijit.form.Button\" id=\"" + html_id.id + "\"" +
+  if class is
+  {
+    failure then "",
+    success(class_name) then " class=\"" + class_name + "\""
+  } +
+  if iconclass is
+  {
+    failure then "",
+    success(iconclass_name) then " iconClass=\"" + iconclass_name + "\""
+  } + ">"
   + name
   + "<script type=\"dojo/method\" event=\"onClick\">"
   + execute
@@ -452,24 +463,35 @@ public define HTML_In_Form
   dojo_button 
   	(
   	  HtmlId        html_id,
+  	  Maybe(String) class,
   	  String        name,
-  	  String        iconclass,
+  	  Maybe(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>"
-  }).
+	  literal("
+    <button dojoType=\"dijit.form.Button\" id=\"" + html_id.id + "\"" +
+    if class is
+    {
+      failure then "",
+      success(class_name) then " class=\"" + class_name + "\""
+    } +
+    if iconclass is
+    {
+      failure then "",
+      success(iconclass_name) then " iconClass=\"" + iconclass_name + "\""
+    } + ">"
+    + 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
@@ -576,3 +598,17 @@ public define HTML_Off_Form
       . attributes ]),
       literal("")).
+public define HTML_Off_Form
+  dojo_progressBar
+  (
+    List(CoreAttrs)            attributes,
+    List(Text_Option)          attributes_text,
+    HtmlId                     html_id,
+    String                     label
+  )=
+   sequence([
+     text([id("text_" + html_id.id), class("progress_bar") . attributes_text], label),
+     div([id(html_id.id), class("progress_bar"), attr("indeterminate", "true"), attr("dojoType", "dijit.ProgressBar") . attributes], literal(""))
+   ]).
+
+