%3 ::xowiki::formfield::checkbox ::xowiki::formfield::checkbox initialize render_input td_pretty_value ::xowiki::formfield::enumeration ::xowiki::formfield::enumeration add_statistics answer_is_correct config_from_category_tree get_labels ggw initialize make_correct pretty_value render_input render_label_classes render_label_text render_result_statistics scores stats_record_detail value_if_nothing_is_returned_from_form ::xowiki::formfield::checkbox->::xowiki::formfield::enumeration ::xowiki::formfield::select ::xowiki::formfield::select initialize render_input ::xowiki::formfield::select->::xowiki::formfield::enumeration ::xowiki::formfield::radio ::xowiki::formfield::radio initialize render_input ::xowiki::formfield::radio->::xowiki::formfield::enumeration ::xowiki::formfield::ShuffleField ::xowiki::formfield::ShuffleField ::xowiki::formfield::enumeration->::xowiki::formfield::ShuffleField ::xowiki::formfield::boolean ::xowiki::formfield::boolean initialize value_if_nothing_is_returned_from_form ::xowiki::formfield::boolean->::xowiki::formfield::radio ::xowiki::formfield::scale ::xowiki::formfield::scale initialize ::xowiki::formfield::scale->::xowiki::formfield::radio

Class ::xowiki::formfield::radio

::xowiki::formfield::radio[i] create ... \
           [ -CSSclass (default "form-check") ]

Class Relations

  • class: ::xotcl::Class[i]
  • superclass: ::xowiki::formfield::enumeration[i]
  • subclass: ::xowiki::formfield::boolean[i], ::xowiki::formfield::scale[i]
::xotcl::Class create ::xowiki::formfield::radio \
     -superclass ::xowiki::formfield::enumeration

Methods (to be applied on instances)

  • CSSclass (setter)

  • forced_name (setter)

  • horizontal (setter)

  • initialize (scripted)

    set :widget_type text(radio)
    set :multiple false
    next
  • render_input (scripted)

    set value [:value]
    
    set disabled_p [:is_disabled]
    lappend base_atts  type radio  name [expr {[info exists :forced_name] ? ${:forced_name} : ${:name}}]
    
    foreach o ${:options} label_class [:render_label_classes] description ${:descriptions} {
      lassign $o label rep
      set id ${:id}:$rep
      set atts [list {*}$base_atts id $id value $rep]
      if {$disabled_p} {
        lappend atts disabled true
      }
      #ns_log notice RADIO-ATTS=$atts
      if {$value eq $rep} {
        lappend atts checked checked
      }
      if {1 || ${:horizontal}} {lappend label_class [::template::CSS class radio-inline]}
      ::html::label -for $id -class $label_class {
        ::html::input $atts {}
        :render_label_text $label $label_class $description
      }
      :render_result_statistics $rep
      if {!${:horizontal}} {
        html::br
      }
    }
    :handle_transmit_always $value
  • richtext (setter)