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.5 -r1.6
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	19 Jan 2006 22:57:37 -0000	1.5
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	28 Jan 2006 22:35:03 -0000	1.6
@@ -271,10 +271,16 @@
     Class ImageField_EditIcon \
 	-superclass ImageField -parameter {
 	  {src /resources/acs-subsite/Edit16.gif} {width 16} {height 16} {border 0} 
-	  {title "Edit Item"} {alt "edit"}
+	  {title "[_ xotcl-core.edit_item]"} {alt "edit"}
 	}
-
     # for xotcl 1.4.0:  {title [_ xotcl-core.edit_item]} {alt "edit"}
+    
+    Class ImageField_AddIcon \
+	-superclass ImageField -parameter {
+	  {src /resources/acs-subsite/Add16.gif} {width 16} {height 16} {border 0} 
+	  {title "Add Item"} {alt "add"}
+	}
+
     Class ImageField_ViewIcon \
 	-superclass ImageField -parameter {
 	  {src /resources/acs-subsite/Zoom16.gif} {width 16} {height 16} {border 0} 
@@ -288,7 +294,7 @@
     
     # export table elements
     namespace export Field AnchorField  Action ImageField \
-	ImageField_EditIcon ImageField_ViewIcon ImageField_DeleteIcon
+	ImageField_EditIcon ImageField_ViewIcon ImageField_DeleteIcon ImageField_AddIcon
   }
   
 }
Index: openacs-4/packages/xotcl-core/tcl/generic-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/generic-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	28 Jan 2006 01:34:51 -0000	1.9
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	28 Jan 2006 22:35:03 -0000	1.10
@@ -213,9 +213,18 @@
 	    "update acs_objects set package_id = :package_id where object_id = $folder_id"
       }
     }
+    my require_folder_object -folder_id $folder_id -package_id $package_id
     return $folder_id
   }
 
+  CrClass ad_proc require_folder_object {
+    -folder_id
+    -package_id 
+  } {
+    Dummy stub; let specializations define it
+  } {
+  }
+
   CrClass instproc getFormClass {} {
     set nsform [ns_getform]
     set item_id [ns_set get $nsform item_id] ;# item_id should be be hardcoded
@@ -594,6 +603,7 @@
     [my info class] delete [my set item_id]
   }
 
+
   #
   # Form template class
   #