Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v diff -u -r1.248.2.53 -r1.248.2.54 --- openacs-4/packages/xowiki/tcl/form-field-procs.tcl 3 May 2017 07:12:52 -0000 1.248.2.53 +++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl 30 Jun 2017 18:01:33 -0000 1.248.2.54 @@ -2624,12 +2624,23 @@ foreach o [my options] { lassign $o label rep set id [my id]:$rep - set atts [my get_attributes disabled {CSSclass class}] + set atts [my get_attributes disabled] lappend atts id $id name [my name] type checkbox value $rep if {$rep in $value} {lappend atts checked checked} - ::html::input $atts {} - ::html::label -for $id {html::t "$label "} - if {![my horizontal]} {html::br} + + set label_class "" + if {[my horizontal]} {set label_class "checkbox-inline"} + ::html::label -for $id -class $label_class { + ::html::input $atts {} + ::html::t " $label " + } + if {![my horizontal]} { + html::br + } + + #::html::input $atts {} + #::html::label -for $id {html::t "$label "} + #if {![my horizontal]} {html::br} } }