---

Class ::xowiki::formfield::form

::xowiki::formfield::form create ... \
           [ -editor (default "none") ] \
           [ -height (default "200") ]

Class Relations

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

::xotcl::Class create ::xowiki::formfield::form \
     -superclass ::xowiki::formfield::richtext

Methods (to be applied on instances)

• check=form (scripted)

  #:msg form=$value
  if {$value eq ""} {
    #
    # Support forms which are empty
    #
    return 1
  }
  #
  # All other forms must start with a <form> tag.
  #
  try {
    dom parse -simple $value doc
  } on ok {r} {
    $doc documentElement root
    set rootNodeName ""
    if {$root ne ""} {
      set rootNodeName [$root nodeName]
    }
    set ok [expr {$rootNodeName eq "form"}]
  } on error {errorMsg} {
    ns_log notice "dom parsed lead to $errorMsg"
    set ok 0
  }
  if {!$ok} {
    :uplevel {set errorMsg "Form does not start with a <form> tag."}
  }
  #ns_log notice "check=form returns $ok"
  return $ok

• editor (setter)

• height (setter)

• initialize (scripted)

  set :widget_type text(textarea)
  set :booleanHTMLAttributes {required readonly disabled formnovalidate}
  set ::__extra_allowed_tags form
  set :__initialized 1

• validator (setter)

---