removed no longer used METAs

[helm.git] / helm / ocaml / content_pres / box.ml

diff --git a/helm/ocaml/content_pres/box.ml b/helm/ocaml/content_pres/box.ml
index c11558a2796040a01b633a892f481d646bd310b8..7c50692621d99ff3fcff497209ce81c64193924d 100644 (file)
--- 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) =