X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Focaml%2Fcontent_pres%2Fbox.ml;fp=helm%2Focaml%2Fcontent_pres%2Fbox.ml;h=7c50692621d99ff3fcff497209ce81c64193924d;hb=546b8519396c265560a7d1e72d5c716648000987;hp=8b992e0416194867eebbb8f7984e38fd91e34cfb;hpb=e45ea683103aa0eb333e318a54ece2e61a1e35ca;p=helm.git

diff --git a/helm/ocaml/content_pres/box.ml b/helm/ocaml/content_pres/box.ml
index 8b992e041..7c5069262 100644
--- a/helm/ocaml/content_pres/box.ml
+++ b/helm/ocaml/content_pres/box.ml
@@ -120,6 +120,7 @@ let b_object b = Object ([],b)
 let b_indent = indent
 let b_space = Space [None, "width", "0.5em"]
 let b_kw = b_text (RenderingAttrs.object_keyword_attributes `BoxML)
+let b_toggle items = Action ([ None, "type", "toggle"], items)
 
 let pp_attr attr =
   let pp (ns, n, v) =