From 617423df108b71e776b0443bf433e9847fabc235 Mon Sep 17 00:00:00 2001
From: Cedric RICARD <cedric.ricard@calexium.com>
Date: Thu, 26 Mar 2009 23:42:55 +0000
Subject: [PATCH] Added new version of progress bar

---
 calexium_lib/web/CXM_dojo.anubis | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+), 0 deletions(-)

diff --git a/calexium_lib/web/CXM_dojo.anubis b/calexium_lib/web/CXM_dojo.anubis
index 81db2f3..c79979e 100644
--- a/calexium_lib/web/CXM_dojo.anubis
+++ b/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
   (
--
libgit2 0.21.4