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.70.2.13 -r1.70.2.14
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	3 Feb 2020 11:33:53 -0000	1.70.2.13
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	3 Feb 2020 22:18:42 -0000	1.70.2.14
@@ -784,7 +784,8 @@
   }
 
   TABLE::Field instproc render {} {
-    html::th [concat [list class list] [:html]] {
+    set CSSclass [list "list" ${:CSSclass}]
+    html::th [concat [list class $CSSclass] ${:html}] {
       if {${:orderby} eq ""} {
         html::t [:_ label]
       } else {
@@ -838,8 +839,8 @@
         if {[$line exists ${:name}.href]
             && [set href [$line set ${:name}.href]] ne ""
           } {
-          # use the CSS class rather from the Field than not the line
-          :instvar CSSclass
+          # Use the CSS class from the Field and not from the Line
+          if {[info exists :CSSclass]} {set CSSclass ${:CSSclass}}
           $line instvar [list ${:name}.title title]
           html::a [:get_local_attributes href title {CSSclass class}] {
             return [next]
@@ -878,7 +879,7 @@
         }
       }
 
-  Class create TABLE::BulkAction -superclass ::xo::Drawable
+  Class create TABLE::BulkAction -superclass ::xo::Drawable -parameter {{CSSclass ""}}
   TABLE::BulkAction instproc render {} {
     set name ${:name}
     #:msg [:serialize]