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.85 -r1.86
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	27 Aug 2008 19:25:14 -0000	1.85
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	1 Sep 2008 09:23:09 -0000	1.86
@@ -1509,9 +1509,40 @@
   }
 
 
+  ###########################################################
+  #
+  # ::xowiki::formfield::form
+  #
+  ###########################################################
 
+  Class form -superclass richtext -parameter {
+    {height 200}
+  } -extend_slot validator form
+
+  form instproc check=form {value} {
+    set form $value
+    #my msg form=$form
+    dom parse -simple -html $form doc
+    $doc documentElement root
+    set rootNodeName ""
+    if {$root ne ""} {set rootNodeName [$root nodeName]}
+    return [expr {$rootNodeName eq "form"}]
+  }
+
   ###########################################################
   #
+  # ::xowiki::formfield::form_constraints
+  #
+  ###########################################################
+
+  Class form_constraints -superclass textarea -parameter {
+    {rows 5}
+  } -extend_slot validator form_constraints
+  # the form_constraints checker is defined already on the ::xowiki::Page level
+
+
+  ###########################################################
+  #
   # ::xowiki::formfield::event
   #
   ###########################################################