Index: openacs-4/packages/xowiki/catalog/xowiki.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/catalog/xowiki.en_US.ISO-8859-1.xml,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/xowiki/catalog/xowiki.en_US.ISO-8859-1.xml	15 Jul 2007 23:46:35 -0000	1.22
+++ openacs-4/packages/xowiki/catalog/xowiki.en_US.ISO-8859-1.xml	17 Jul 2007 00:16:19 -0000	1.23
@@ -9,15 +9,16 @@
   <msg key="edit_link">edit tags</msg>
   <msg key="error-form_constraint-invalid_characters">Form constraint contains invalid characters</msg>
   <msg key="error-form_constraint-unknown_attribute">From field '%name%' has unknown attribute '%entry%'</msg>
+  <msg key="error-form_constraint-unknown_editor">Unknown editor %editor%. Possible values are: %editors%</msg>
   <msg key="error-form_constraint-unknown_spec_entry">From field '%name%' has unknown specification '%entry%'</msg>
-  <msg key="error-includelet-adp_syntax_invalid">Syntax: adp &amp;lt;name of adp-file&amp;gt; {&amp;lt;argument list&amp;gt;}&lt;br/&gt;
-
+  <msg key="error-includelet-adp_syntax_invalid">Syntax: adp &amp;lt;name of adp-file&amp;gt; {&amp;lt;argument list&amp;gt;}&lt;br/&gt;
+
 Invalid argument list: '%adp%'; must be of form: attribute value pairs (even number of elements)</msg>
-  <msg key="error-includelet-dash_syntax_invalid">&lt;pre&gt;%errMsg%&lt;/pre&gt;
-
+  <msg key="error-includelet-dash_syntax_invalid">&lt;pre&gt;%errMsg%&lt;/pre&gt;
+
 Argument list must contain attribute value pairs (attributes with dashes)</msg>
   <msg key="error-includelet-error_during_adp_evaluation">evaluation of adp file returned error message: %errorMsg%</msg>
-  <msg key="error-includelet-error_during_render">Error in includelet '%page_name%':
+  <msg key="error-includelet-error_during_render">Error in includelet '%page_name%':
 &lt;pre&gt;%::errorInfo%&lt;/pre&gt;</msg>
   <msg key="error-includelet-nesting_to_deep">Nesting of includelets is to deep</msg>
   <msg key="error-includelet-unknown">Error: includelet '%page_name%' unknown</msg>
@@ -27,10 +28,12 @@
   <msg key="Form-form_constraints">Form Constraints</msg>
   <msg key="form-menu-answer_link">Anwers</msg>
   <msg key="form-menu-new_link">Fill out</msg>
+  <msg key="Form-submit_button">       OK       </msg>
   <msg key="Form-validate_form_constraints">%errorMsg%</msg>
   <msg key="index">Index</msg>
   <msg key="new">New Page</msg>
   <msg key="notifications">Notifications</msg>
+  <msg key="numeric-validate_numeric">Invalid numeric value</msg>
   <msg key="Page-creator">Creator</msg>
   <msg key="Page-description">Description</msg>
   <msg key="Page-name">Name</msg>
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.19 -r1.20
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	16 Jul 2007 22:43:35 -0000	1.19
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	17 Jul 2007 00:16:19 -0000	1.20
@@ -318,6 +318,25 @@
 
   ###########################################################
   #
+  # ::xowiki::FormField::submit_button
+  #
+  ###########################################################
+
+  Class FormField::submit_button -superclass FormField 
+  FormField::submit_button  instproc initialize {} {
+    my set type submit
+  }
+  FormField::submit_button instproc render_content {} {
+    my set value [::xo::localize [_ xowiki.Form-submit_button]]
+    ::html::div -class form-button {
+      #::html::br 
+      ::html::input [my get_attributes type {CSSclass class} value] {}
+      my render_localizer
+    }
+  }
+
+  ###########################################################
+  #
   # ::xowiki::FormField::hidden
   #
   ###########################################################
Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -r1.78 -r1.79
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	16 Jul 2007 22:43:35 -0000	1.78
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	17 Jul 2007 00:16:19 -0000	1.79
@@ -758,8 +758,8 @@
           $f render_error_msg
         }
       }
-      ::html::br 
-      ::html::input -type submit -class $submit_button_class
+      set f [::xowiki::FormField::submit_button new -destroy_on_cleanup -name __form_button_ok]
+      $f render_content
     }
     set form [lindex [$root selectNodes //form] 0]
     if {$form eq ""} {