Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.128 -r1.129
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	8 Jan 2009 11:10:32 -0000	1.128
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	7 Feb 2009 20:34:47 -0000	1.129
@@ -930,6 +930,27 @@
 
   ###########################################################
   #
+  # ::xowiki::formfield::code_listing
+  #
+  ###########################################################
+
+  Class code_listing -superclass textarea -parameter {
+    {rows 20}
+    {cols 80}
+  }
+  code_listing instproc pretty_value {v} {
+    [my object] do_substitutions 0
+    if {[info command api_tclcode_to_html] ne ""} {
+      set html [api_tclcode_to_html [my value]]
+      regsub -all "\n?\r</FONT></EM>" $html </FONT></EM> html
+      return "<pre class='code'>$html</pre>"
+    } else {
+      return "<pre class='code'>[string map [list & {&amp;} < {&lt;} > {&gt;}]  [my value]]</pre>"
+    }
+  }
+
+  ###########################################################
+  #
   # ::xowiki::formfield::richtext
   #
   ###########################################################