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.12 -r1.70.2.13 --- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl 2 Feb 2020 15:19:38 -0000 1.70.2.12 +++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl 3 Feb 2020 11:33:53 -0000 1.70.2.13 @@ -528,7 +528,16 @@ Class create ::xo::Table::Field \ -superclass ::xo::OrderedComposite::Child \ - -parameter {label {html {}} {orderby ""} name {richtext false} no_csv {CSSclass ""} {hide 0}} \ + -parameter { + label + {html {}} + {orderby ""} + name + {richtext false} + no_csv + {CSSclass ""} + {hide 0} + } \ -instproc init {} { set :name [namespace tail [self]] } \ @@ -579,8 +588,8 @@ -superclass ::xo::Table::Field \ -instproc get-slots {} { set slots [list -${:name}] - lappend slots [list -${:name}.src [:src]] - lappend slots [list -${:name}.CSSclass [:CSSclass]] + lappend slots [list -${:name}.src ${:src}] + lappend slots [list -${:name}.CSSclass ${:CSSclass}] foreach att {width height border title alt} { if {[info exists :$att]} { lappend slots [list -${:name}.$att [:$att]] @@ -710,7 +719,8 @@ #:log "--LINE vars=[:info vars] cL: [[self class] info vars] r=[:renderer]" html::tr -class [expr {[incr :__rowcount]%2 ? ${:css.tr.odd-class} : ${:css.tr.even-class}}] { foreach field [[self]::__columns children] { - html::td [concat [list class list] [$field html]] { + set CSSclass [list "list" {*}[$field CSSclass]] + html::td [concat [list class $CSSclass] [$field html]] { $field render-data $line } }