You are viewing a plain text version of this content. The canonical link for it is here.
Posted to site-cvs@tcl.apache.org by ro...@apache.org on 2002/08/06 12:46:50 UTC
cvs commit: tcl-site/websh quickref.ws3
ronnie 2002/08/06 03:46:50
Modified: websh quickref.ws3
Log:
- removed autoconversion of quickref
- added doenload link and online link
Revision Changes Path
1.6 +14 -22 tcl-site/websh/quickref.ws3
Index: quickref.ws3
===================================================================
RCS file: /home/cvs/tcl-site/websh/quickref.ws3,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- quickref.ws3 28 Jul 2002 20:36:13 -0000 1.5
+++ quickref.ws3 6 Aug 2002 10:46:50 -0000 1.6
@@ -5,32 +5,24 @@
startHtmlBody
putHeader 2
-# include download/quickref.html on the fly
-set quickref [file join [web::config document_root] websh download quickref.html]
-
-proc putStrippedQR {qr} {
- if {![web::readfile $qr content msg]} {
- # strip header
- regsub -all {.*<body [^>]*>} $content "" content
- # strip footer
- regsub -all {</body>.*} $content "" content
- # put the rest
- web::put $content
- unset content
- } else {
- web::put "<h2>Quick Reference</h2>
-The quick reference is not available at this time"
- }
-
-}
-
web::putx {
<table border="0" cellpadding="0" cellspacing="0" width="770">
- {headRow 3 "documentation"}
+ {headRow 3 "quick reference"}
<tr valign="top">
{navbar_docu 2}
<td width="610">
- {putStrippedQR $quickref}
+
+ <h2>Download</h2>
+
+ Download the quick reference as tar file:<br>
+ <a href="download/quickref-3.5.0.tar.gz">quickref-3.5.0.tar.gz</a>
+
+
+ <h2>Online</h2>
+
+ Browse the quick reference online:<br>
+ <a href="quickref/">http://tcl.apache.org/websh/quickref/</a>
+ <p>
</td>
</tr>
---------------------------------------------------------------------
To unsubscribe, e-mail: tcl-site-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: tcl-site-cvs-help@tcl.apache.org