Index: openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/Attic/xowiki-portlet-procs.tcl,v
diff -u -N -r1.25 -r1.26
--- openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	12 Mar 2007 08:03:38 -0000	1.25
+++ openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	13 Mar 2007 10:27:31 -0000	1.26
@@ -88,6 +88,12 @@
     set id [expr {[my exists id] ? "id='[my id]'" : ""}]
     return "<div $id class='$class'>[next]</div>"
   }
+
+  Class ::xowiki::portlet::decoration=rightbox -instproc render {} {
+    set class [namespace tail [my info class]]
+    set id [expr {[my exists id] ? "id='[my id]'" : ""}]
+    return "<div class='rightbox'><div $id class='$class'>[next]</div></div>"
+  }
 }
 
 namespace eval ::xowiki::portlet {
@@ -193,8 +199,6 @@
         $cattree($plevel) add $c
         set category($cid) $c
         lappend categories $cid
-        #set itemobj [Object new -set name en:index -set title MyTitle -set prefix "" -set suffix ""]
-        #$cattree(0) add_to_category -category $c -itemobj $itemobj -orderby title
       }
       
       set sql "category_object_map c, cr_items ci, cr_revisions r, xowiki_page p \
@@ -503,7 +507,7 @@
   #
   Class create presence \
       -superclass ::xowiki::Portlet \
-      -parameter {{__decoration plain}}
+      -parameter {{__decoration rightbox}}
 
   # TODO make display style -decoration