Index: openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	9 Mar 2007 11:02:56 -0000	1.11
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	3 Apr 2007 19:17:17 -0000	1.12
@@ -144,9 +144,11 @@
   #
   # define an abstract table
   #
-
   Class Table -superclass OrderedComposite \
-      -parameter {{no_data  "No Data"} {renderer TABLE2}}
+      -parameter [expr {[apm_version_names_compare [ad_acs_version] 5.3.0] == 1 ? 
+			{{no_data  "No Data"} {renderer TABLE3}} :
+			{{no_data  "No Data"} {renderer TABLE2}} 
+		      }]
   
   Table instproc destroy {} {
     #my log "-- "
@@ -495,7 +497,7 @@
       -superclass TABLE2 \
       -instproc init_renderer {} {
         next 
-        my set css.table-class list-tiny
+        my set css.table-class list-table
         my set css.tr.even-class even
         my set css.tr.odd-class odd
       }
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 -r1.39 -r1.40
--- openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	30 Mar 2007 14:13:40 -0000	1.39
+++ openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	3 Apr 2007 19:17:17 -0000	1.40
@@ -144,10 +144,14 @@
     set link [expr {[string match "*:*" $name] ? 
                     "<a href='[$package_id pretty_link $name]'>$title</a>" : 
                     $title}]
-    return "<div class='$class'><div class='portlet-title'>\
-        <span>$link</span></div>\
-        <div $id class='portlet'>$html</div></div>"
-  }
+    return [subst [[self class] set template]]
+  } -set template [expr {[apm_version_names_compare [ad_acs_version] 5.3.0] == 1 ? 
+       {<div class='$class'><div class='portlet-wrapper'><div class='portlet-header'>
+	 <div class='portlet-title-no-controls'>$link</div></div>
+	 <div $id class='portlet'>$html</div></div></div>
+       } : {<div class='$class'><div class='portlet-title'><span>$link</span></div>
+        <div $id class='portlet'>[next]</div></div>}
+       }]
   Class ::xowiki::portlet::decoration=plain -instproc render {} {
     set class [namespace tail [my info class]]
     set id [expr {[my exists id] ? "id='[my id]'" : ""}]