Index: openacs-4/contrib/packages/simulation/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/tcl/Attic/apm-callback-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/contrib/packages/simulation/tcl/apm-callback-procs.tcl	10 Nov 2003 16:56:56 -0000	1.7
+++ openacs-4/contrib/packages/simulation/tcl/apm-callback-procs.tcl	28 Nov 2003 16:55:52 -0000	1.8
@@ -19,7 +19,7 @@
 ad_proc -private simulation::apm::after_instantiate {
     {-package_id:required}
 } {
-    Create the package root folder.
+    Create data associated with a simulation package instance.
 } {
     set instance_name [apm_instance_name_from_id $package_id]
     
@@ -30,4 +30,20 @@
                        -package_id $package_id \
                        -context_id $package_id \
                        -content_types { sim_character sim_prop sim_location sim_stylesheet image }]
+
+    application_group::new \
+        -group_name "Simulation Test Class" \
+        -package_id $package_id
 }
+
+ad_proc -private simulation::apm::before_uninstantiate {
+    {-package_id:required}
+} {
+    Tear down data associated with a package instance.
+} {
+    set folder_id [bcms::folder::get_id_by_package_id -parent_id 0]   
+    bcms::folder::delete_folder -folder_id $folder_id
+
+    set group_id [application_group::group_id_from_package_id -package_id $package_id]
+    group::delete $group_id
+}