Added new version of progress bar

Cédric RICARD
1 parent baaacc62
Showing 1 changed file with 19 additions and 0 deletions Show diff stats
calexium_lib/web/CXM_dojo.anubis
@@ -730,6 +730,25 @@ public define HTML_Off_Form
      div([id(html_id.id), class("progress_bar"), attr("indeterminate", "true"), attr("dojoType", "dijit.ProgressBar") . attributes], literal(""))
    ]).
+public define HTML_Off_Form
+  dojo_progressBar
+  (
+    List(CoreAttrs)            attributes,
+    List(Text_Option)          attributes_text,
+    HtmlId                     html_id,
+    String                     label,
+    Int                        progress,
+    Int                        maximum
+  )=
+   sequence([
+     text([id("text_" + html_id.id), class("progress_bar") . attributes_text], label),
+     div([id(html_id.id), 
+          class("progress_bar"), 
+          attr("maximum", abs_to_decimal(maximum)), 
+          attr("progress", abs_to_decimal(progress)), 
+          attr("dojoType", "dijit.ProgressBar") . attributes], literal(""))
+   ]).
+
 define Maybe(Int)
   string_to_month
   (