---

Class ::xowiki::formfield::correct_when

::xowiki::formfield::correct_when create ...

Class Relations

• class: ::xotcl::Class
• superclass: ::xowiki::formfield::text

::xotcl::Class create ::xowiki::formfield::correct_when \
     -superclass ::xowiki::formfield::text

Methods (to be applied on instances)

• check=valid_predicate (scripted)

  set predicate [lindex $value 0]
  if {$predicate ne ""} {
    set valid [expr {[:info methods answer_check=$predicate] ne ""}]
    if {!$valid} {
      :uplevel [list set errorMsg "invalid predicate $predicate"]
    }
  } else {
    set valid 1
  }
  return $valid

• initialize (scripted)

  next
  if {${:help_text} eq ""} {
    set :help_text "#xowiki.formfield-correct_when-help_text#"
  }

• validator (setter)

---