Index: openacs-4/packages/acs-templating/tcl/tag-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/tag-init.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/acs-templating/tcl/tag-init.tcl	17 May 2004 15:14:57 -0000	1.21
+++ openacs-4/packages/acs-templating/tcl/tag-init.tcl	25 May 2004 15:22:48 -0000	1.22
@@ -61,11 +61,22 @@
 
 template_tag slave { params } {
 
+  #Start developer support frame around subordinate template.
+  if { [llength [info procs ::ds_enabled_p]] && [llength [info procs ::ds_adp_start_box]] } {
+      ::ds_adp_start_box
+  }
+
   template::adp_append_code "
     if { \[info exists __adp_slave\] } {
       append __adp_output \$__adp_slave
     }
   "
+
+  #End developer support frame around subordinate template.
+  if { [llength [info procs ::ds_enabled_p]] && [llength [info procs ::ds_adp_end_box]] } {
+      ::ds_adp_end_box
+  }
+
 }
 
 # Include another template in the current template
@@ -74,6 +85,11 @@
 
   set src [ns_set iget $params src]
 
+  #Start developer support frame around subordinate template.
+  if { [llength [info procs ::ds_enabled_p]] && [llength [info procs ::ds_adp_start_box]] } {
+      ::ds_adp_start_box -stub "\[template::util::url_to_file \"$src\" \"\$__adp_stub\"\]"
+  }
+
   # pass additional arguments as key-value pairs
 
   set command "template::adp_parse"
@@ -102,6 +118,12 @@
   template::adp_append_code "        ns_log Error \"Error in include template \\\"\[template::util::url_to_file \"$src\" \"\$__adp_stub\"\]\\\": \$errmsg\n\$errorInfo\""
   template::adp_append_code "    }"
   template::adp_append_code "}"
+
+  #End developer support frame around subordinate template.
+  if { [llength [info procs ::ds_enabled_p]] && [llength [info procs ::ds_adp_end_box]] } {
+      ::ds_adp_end_box -stub "\[template::util::url_to_file \"$src\" \"\$__adp_stub\"\]"
+  }
+
 }
 
 # Repeat a template chunk for each row of a multirow data source
@@ -570,6 +592,11 @@
 
   set src [ns_set iget $params src]
 
+  #Start developer support frame around subordinate template.
+  if { [llength [info procs ::ds_enabled_p]] && [llength [info procs ::ds_adp_start_box]] } {
+      ::ds_adp_start_box -stub "\[template::util::url_to_file \"$src\" \"\$__adp_stub\"\]"
+  }
+
   # pass additional arguments as key-value pairs
 
   set command "template::adp_parse"
@@ -606,6 +633,12 @@
     template::util::lpop __adp_include_optional_output
   }
   "
+
+  #End developer support frame around subordinate template.
+  if { [llength [info procs ::ds_enabled_p]] && [llength [info procs ::ds_adp_end_box]] } {
+      ::ds_adp_end_box -stub "\[template::util::url_to_file \"$src\" \"\$__adp_stub\"\]"
+  }
+
 }
 
 # Insert the output from the include-optional tag