Index: openacs-4/packages/xowiki/tcl/yui-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/yui-procs.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/xowiki/tcl/yui-procs.tcl	15 Apr 2014 07:15:09 -0000	1.1.2.2
+++ openacs-4/packages/xowiki/tcl/yui-procs.tcl	2 Sep 2014 13:12:47 -0000	1.1.2.3
@@ -36,7 +36,7 @@
         header
         footer
         shadow
-	{autorender false}
+        {autorender false}
         {configuration {{}}}
       }
 
@@ -60,9 +60,9 @@
     foreach e $list {
       set gn [$e group]
       if {$gn ne $group_name} {
-	lappend result $group_list
-	set group_name $gn
-	set group_list [list]
+        lappend result $group_list
+        set group_name $gn
+        set group_list [list]
       }
       lappend group_list $e
     }
@@ -90,11 +90,11 @@
       # Body
       html::t \n
       html::div -class "bd" {
-	foreach group [my split_menu_groups [my children]] {
-	  html::ul {
-	    foreach menuitemlist $group {$menuitemlist render}
-	  }
-	}
+        foreach group [my split_menu_groups [my children]] {
+          html::ul {
+            foreach menuitemlist $group {$menuitemlist render}
+          }
+        }
       }
       # Footer
       if {[my exists footer]} {
@@ -127,7 +127,7 @@
   ::xo::tdom::Class create YUIMenuItem \
       -superclass MenuItem \
       -parameter {
-	{href "#"}
+        {href "#"}
         helptext
       }
 
@@ -217,9 +217,9 @@
     my append CSSclass " yuimenu"
     html::div [my get_attributes id {CSSclass class}] {
       html::div -class "bd" {
-	html::ul {
-	  foreach li [my children] {$li render}
-	}
+        html::ul {
+          foreach li [my children] {$li render}
+        }
       }
       html::script -type "text/javascript" {
         html::t "var [my js_name] = new YAHOO.widget.ContextMenu('[my id]', { trigger: '[my set trigger]' } );"
@@ -253,8 +253,8 @@
               if {[string match {[a-z]*} $item_att]} continue
               set text [my get_prop $item text]
               set url [my get_prop $item url]
-	      set group [my get_prop $item group]
-	      #my msg "ia=$item_att group '$group' // t=$text item=$item"
+              set group [my get_prop $item group]
+              #my msg "ia=$item_att group '$group' // t=$text item=$item"
               ::xowiki::YUIMenuItem -text $text -href $url -group $group {}
             }
           }