X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcontent_pres%2Fbox.ml;h=7c50692621d99ff3fcff497209ce81c64193924d;hb=2b2b90087f836c2f32291935216549e9370e68c3;hp=c11558a2796040a01b633a892f481d646bd310b8;hpb=9a0e4f3be9f70662f18d2d3b6dd60ae79fba565b;p=helm.git

diff --git a/helm/ocaml/content_pres/box.ml b/helm/ocaml/content_pres/box.ml
index c11558a27..7c5069262 100644
--- a/helm/ocaml/content_pres/box.ml
+++ b/helm/ocaml/content_pres/box.ml
@@ -32,6 +32,8 @@
 (*                                                                       *)
 (*************************************************************************)
 
+(* $Id$ *)
+
 type 
   'expr box =
     Text of attr * string
@@ -118,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) =