Index: openacs-4/packages/theme-zen/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/theme-zen/tcl/apm-callback-procs.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/theme-zen/tcl/apm-callback-procs.tcl	30 Jan 2007 19:47:31 -0000	1.1.2.3
+++ openacs-4/packages/theme-zen/tcl/apm-callback-procs.tcl	6 Feb 2007 02:51:27 -0000	1.1.2.4
@@ -79,6 +79,47 @@
         [list region 3]
     ]
     package_exec_plsql -var_list $var_list portal_layout add_region
+
+    set var_list [list \
+        [list name "Zen Thin-Thick"] \
+        [list description "Zen Thin-Thick"] \
+        [list resource_dir /resources/theme-zen/css/zen-thin-thick] \
+        [list filename ../../theme-zen/lib/layouts/zen2]
+    ]
+    set layout_id [package_instantiate_object -var_list $var_list portal_layout]
+    set var_list [list \
+        [list layout_id $layout_id] \
+        [list region 1]
+    ]
+    package_exec_plsql -var_list $var_list portal_layout add_region
+    set var_list [list \
+        [list layout_id $layout_id] \
+        [list region 2]
+    ]
+    package_exec_plsql -var_list $var_list portal_layout add_region
+
+    set var_list [list \
+        [list name "Zen Thin-Thick_Thin"] \
+        [list description "Zen Thin-Thick_thin"] \
+        [list resource_dir /resources/theme-zen/css/zen-thin-thick] \
+        [list filename ../../theme-zen/lib/layouts/zen3]
+    ]
+    set layout_id [package_instantiate_object -var_list $var_list portal_layout]
+    set var_list [list \
+        [list layout_id $layout_id] \
+        [list region 1]
+    ]
+    package_exec_plsql -var_list $var_list portal_layout add_region
+    set var_list [list \
+        [list layout_id $layout_id] \
+        [list region 2]
+    ]
+    package_exec_plsql -var_list $var_list portal_layout add_region
+    set var_list [list \
+        [list layout_id $layout_id] \
+        [list region 3]
+    ]
+    package_exec_plsql -var_list $var_list portal_layout add_region
        
     set var_list [list \
         [list name zen] \