diff --git a/calexium_lib/web/CXM_dojo.anubis b/calexium_lib/web/CXM_dojo.anubis index 277f6f9..2854535 100644 --- a/calexium_lib/web/CXM_dojo.anubis +++ b/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 -- libgit2 0.21.4