FormField

###########################################################
#
# ::xowiki::FormField::code_listing
#
###########################################################

  Class FormField::code_listing -superclass ::xowiki::FormField::textarea -parameter {
    {rows 20}
    {cols 80}
  }

  FormField::code_listing instproc pretty_value {} {
    return "<pre class='code'>  [api_tcl_to_html [mv value]]  </pre>"
  }