X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcontent_pres%2Fbox.ml;h=7c50692621d99ff3fcff497209ce81c64193924d;hb=771ee8b9d122fa963881c876e86f90531bb7434f;hp=8b992e0416194867eebbb8f7984e38fd91e34cfb;hpb=aa0d60227b785da3355b31519ba11cb4fbd2c925;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) =