ad_style_html_big_example { string " " } { tagset " " }What it does:
Proc generated by ad_register_styletag to support the html_big_example ADP tag.Defined in: /web/philip/tcl/ad-style.tcl
Source code:
set to_return "<center>
<table border=0 cellspacing=2 cellpadding=3 width=90%>
<tr>
<td bgcolor=ececec><b>Code Example</b></td>
</tr>
"
foreach example $string {
# to show the code, we have to change < to <, etc.
set example_code [philg_quote_double_quotes $example]
# then to show the results, we have to change <p> to <p class="mtb"> otherwise
# the stylesheet indents the paragraph
regsub -all {<p>} $example {<p class="mtb">} example_results
append to_return "<tr>
<td valign=top bgcolor=ececec>
<pre>$example_code</pre>
</td>
</tr>
<tr><td bgcolor=white><font size=-3> </font></td></tr>
<tr>
<td bgcolor=ececec><b>Typical Rendering</b></td>
</tr>
<tr>
<td valign=top bgcolor=ececec>
$example_results
</td>
</tr>
"
}
append to_return "</table>
</center>
"
return $to_return