Index: openacs-4/packages/acs-templating/tcl/parse-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/parse-procs.tcl,v
diff -u -N -r1.30 -r1.31
--- openacs-4/packages/acs-templating/tcl/parse-procs.tcl	20 Apr 2004 21:13:08 -0000	1.30
+++ openacs-4/packages/acs-templating/tcl/parse-procs.tcl	4 May 2004 20:49:27 -0000	1.31
@@ -100,6 +100,18 @@
       set __adp_output [template::adp_parse $__adp_master \
         [concat [list __adp_slave $__adp_output] [array get __adp_properties]]]
     }
+
+    # if developer support is turned on, wrap the template in an
+    # identifying frame
+    if { [llength [info procs ::ds_show_p]] && [ds_show_p] } {
+      set __ds_adp_reveal_stub \
+          [acs_root_dir]/packages/acs-developer-support/lib/adp-reveal
+      if { ![string equal $__adp_stub $__ds_adp_reveal_stub] && [file exists ${__ds_adp_reveal_stub}.$template_extension] } {
+        set __adp_output [template::adp_parse $__ds_adp_reveal_stub \
+         [list __adp_slave $__adp_output ds_adp_stub $__adp_stub ds_adp_template_extension $template_extension]]
+      }
+    }
+
   } else {
     # no template;  errMsg tells us if adp_prepare at least found a script.
     if { !$errMsg } {