Form-Field for Program Listings

namespace eval ::xowiki {
  ###########################################################

  #

  # ::xowiki::FormField::code_listing

  #

  ###########################################################


  Class FormField::code_listing -superclass ::xowiki::FormField::textarea -parameter {
    {rows 20}
    {cols 80}
  }
  FormField::code_listing instproc pretty_value {v} {
    [my object] do_substitutions 0
    return "<pre class='code'>[api_pretty_tcl [my value]]</pre>"
  }
}