added HTML_In_form variations for webmail

Steve MARECHAL
1 parent 53943d6a
Showing 1 changed file with 22 additions and 1 deletions Show diff stats
calexium_lib/web/CXM_dojo.anubis
@@ -324,7 +324,28 @@ public define HTML_Off_Form
                             success(t) then [title(t) . the_attributes]
                           },
   div(total_attributes, content).
-    
+
+public define HTML_In_Form
+  dojo_BorderContainer
+  (
+      List(CoreAttrs)       attributes,
+      Maybe(String)         the_title,
+      BorderContainerDesign design,
+      Bool                  live_splitter,
+      Bool                  persist,
+      Bool                  closable,
+      String                container,
+      HTML_In_Form         content
+  )  =
+  with the_attributes = (List(CoreAttrs)) [attr("dojoType", "dijit.layout.BorderContainer"), attr("dojoAttachPoint", container),
+                         attr("design", to_String(design)), attr("liveSplitters", live_splitter), attr("persist", persist), 
+                         attr("closable",closable) . attributes ],
+       total_attributes = if the_title is
+                          {
+                            failure then the_attributes,
+                            success(t) then [title(t) . the_attributes]
+                          },
+  div(total_attributes, content).    
  
 public define HTML_Off_Form
   dojo_tree