Index: openacs-4/packages/xowiki/tcl/tree-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/tree-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/xowiki/tcl/tree-procs.tcl	15 Nov 2009 11:06:59 -0000	1.4
+++ openacs-4/packages/xowiki/tcl/tree-procs.tcl	28 Nov 2009 13:48:52 -0000	1.5
@@ -145,6 +145,7 @@
 
   Class create TreeRenderer -superclass Class \
       -parameter {
+	{subtree_wrapper_class}
 	{li_expanded_atts ""}
 	{highlight_atts {"style = 'font-weight:bold;'"}}
       }
@@ -222,7 +223,14 @@
 	set entry [my label]
       }
     }
-    if {$cat_content ne ""} {set content "\n<ul $u_atts>\n$cat_content</ul>"} else {set content ""}
+    if {$cat_content ne ""} {
+      set content "\n<ul $u_atts>\n$cat_content</ul>"
+      if {[$cl exists subtree_wrapper_class]} {
+        set content "\n<div class='[$cl subtree_wrapper_class]'>$content</div>\n"
+      }
+    } else {
+      set content ""
+    }
     return "<li $o_atts><span $h_atts>[my prefix] $entry</span>$content"
   }
   
@@ -241,7 +249,21 @@
     return "<ul class='mktree' id='[$tree id]'>[next]</ul>"
   }
 
+  #
+  # List-specific renderer based for some menus
+  #
+  TreeRenderer create TreeRenderer=samplemenu \
+      -superclass TreeRenderer=list \
+      -li_expanded_atts [list "class='menu-open'" "class='menu-closed'"] \
+      -subtree_wrapper_class "submenu"
 
+  TreeRenderer=samplemenu proc include_head_entries {args} {
+    # add your CSS here...
+  }
+  TreeRenderer=samplemenu proc render {tree} {
+    return "<ul class='menu' id='[$tree id]'>[next]</ul>"
+  }
+
   #
   # List-specific renderer based on yuitree
   #