Index: openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl,v
diff -u -r1.47 -r1.48
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	25 Jun 2010 13:35:13 -0000	1.47
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	16 Jul 2010 00:37:41 -0000	1.48
@@ -495,6 +495,12 @@
 	  return $slots
 	}
 
+    Class HiddenField \
+	-superclass ::xo::Table::Field \
+	-instproc get-slots {} {
+	  return [list -[my name]]
+	}
+
     Class ImageField \
 	-parameter {src width height border title alt} \
 	-superclass ::xo::Table::Field \
@@ -542,7 +548,7 @@
 	}
     
     # export table elements
-    namespace export Field AnchorField  Action ImageField ImageAnchorField \
+    namespace export Field AnchorField HiddenField Action ImageField ImageAnchorField \
 	ImageField_EditIcon ImageField_ViewIcon ImageField_DeleteIcon ImageField_AddIcon \
         BulkAction
   }
@@ -744,6 +750,10 @@
 	next
       }
 
+  Class create TABLE::HiddenField \
+      -instproc render {} {;} \
+      -instproc render-data {line} {;}
+	
  
   Class create TABLE::ImageField \
       -superclass TABLE::Field \
@@ -826,6 +836,7 @@
   Class create TABLE2::Action -superclass TABLE::Action
   Class create TABLE2::Field -superclass TABLE::Field
   Class create TABLE2::AnchorField -superclass TABLE::AnchorField
+  Class create TABLE2::HiddenField -superclass TABLE::HiddenField
   Class create TABLE2::ImageField -superclass TABLE::ImageField
   Class create TABLE2::ImageAnchorField -superclass TABLE::ImageAnchorField
   Class create TABLE2::BulkAction -superclass TABLE::BulkAction
@@ -842,6 +853,7 @@
   Class create TABLE3::Action -superclass TABLE::Action
   Class create TABLE3::Field -superclass TABLE::Field
   Class create TABLE3::AnchorField -superclass TABLE::AnchorField
+  Class create TABLE3::HiddenField -superclass TABLE::HiddenField
   Class create TABLE3::ImageField -superclass TABLE::ImageField
   Class create TABLE3::ImageAnchorField -superclass TABLE::ImageAnchorField
   Class create TABLE3::BulkAction -superclass TABLE::BulkAction