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.284.2.128 -r1.284.2.129
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	23 Nov 2020 19:45:01 -0000	1.284.2.128
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	23 Nov 2020 21:00:53 -0000	1.284.2.129
@@ -5377,6 +5377,29 @@
 
   ###########################################################
   #
+  # ::xowiki::boolean-checkox
+  #
+  ###########################################################
+
+  Class create boolean_checkbox -superclass checkbox -parameter {
+    {default t}
+  }
+  boolean_checkbox instproc value_if_nothing_is_returned_from_form {default} {
+    if {[info exists :disabled]} {
+      return $default
+    } else {
+      return f
+    }
+  }
+  boolean_checkbox instproc initialize {} {
+    # should be with cvs head message catalogs:
+    set :options "{{} t}"
+    next
+  }
+  
+
+  ###########################################################
+  #
   # ::xowiki::boolean_image
   #
   ###########################################################