davidw 02/04/23 01:36:07
Modified: . common.tcl
Log:
Created 'navbar' command.
Switched to 'puts' from 'hputs'.
Revision Changes Path
1.5 +8 -4 tcl-site/common.tcl
Index: common.tcl
===================================================================
RCS file: /home/cvs/tcl-site/common.tcl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- common.tcl 14 Feb 2002 23:39:59 -0000 1.4
+++ common.tcl 23 Apr 2002 08:36:07 -0000 1.5
@@ -1,14 +1,18 @@
# stuff common to all pages
+proc navbar { } {
+ include newnav.html
+}
+
proc title { {txt "Apache Tcl Project"} } {
- hputs {
+ puts {
<table width="100%" border="0">
<tr>
<td align="center" valign="top">
<h1>
}
- hputs "$txt"
- hputs {
+ puts "$txt"
+ puts {
</h1>
</td>
</tr>
@@ -17,7 +21,7 @@
}
proc powered { } {
- hputs {
+ puts {
<table align="center" width="100%">
<tr>
<td align="left">
---------------------------------------------------------------------
To unsubscribe, e-mail: tcl-site-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: tcl-site-cvs-help@tcl.apache.org