View Source

[lib]
examplePage.wtcl
footer.wtcl
header.wtcl
page.wtcl
File: / lib / header.wtcl

Lines Size Modified Created Owner MIME Types
41 2,397 2010/05/19 19:34:39 2011/06/13 15:35:16 BUILTIN\Administrators application/x-wtcl, text/x-wtcl

0001
<?
0002
0003
proc headClass {path} {
0004
  set sn [::wt::server::serverVars get SCRIPT_NAME]
0005
  if {$sn == $path || ($path == "/" && ($sn == "/index.wtcl" || $sn == "/home.wtcl" || $sn == "/" || $sn == ""))} {
0006
    return "class=\"active\""
0007
  }
0008
  return ""
0009
}
0010
0011
?><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
0012
    "http://www.w3.org/TR/html4/loose.dtd">
0013
<html lang="en">
0014
<head>
0015
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
0016
<title>$::wt::examples::docTitle</title>
0017
<link rel="stylesheet" href="[htmlEncode [::wt::examples::appUrl /app.css]]" type="text/css">
0018
<script language="javascript" src="[htmlEncode [::wt::examples::appUrl /app.js]]" type="text/javascript"></script>
0019
<meta http-equiv="content-language" content="en"><meta name="description" content="Wtcl is a Tcl module for Apache. It provides an embedded, persistent Tcl interpreter and a set of commands for developing dynamic Tcl-based Web pages."><meta name="keywords" content="wtcl, tcl, apache, web development, apache module, tcl web, object shimmering"><meta name="category" content="tcl, web development"><meta name="author" content="alex boverman, [::wt::examples::emailAddress alexb]"><meta name="copyright" content="alex boverman"><meta name="publisher" content="alex boverman"><meta http-equiv="X-UA-Compatible" content="IE=EmulateIE7">
0020
</head>
0021
<body>
0022
<div id="page">
0023
<div id="header">
0024
<div id="headerTop">
0025
<a class="headerTitle" href="[htmlEncode [::wt::examples::appUrl /]]">Wtcl</a>
0026
<div id="viewSource">
0027
<a href="[htmlEncode [::wt::examples::viewSourceUrl]]"><img src="[::wt::examples::appUrl /img/page.png]" height="16" width="16" border="0" alt="View source"><span>[::wt::examples::viewSourceLinkText]</span></a>
0028
</div>
0029
</div>
0030
<div id="headerMid">
0031
<ul class="headerLinks">
0032
<li><a href="[htmlEncode [::wt::examples::appUrl /home.wtcl]]" [headClass /]>Home</a></li><li
0033
><a href="[htmlEncode [::wt::examples::appUrl /source.wtcl]]" [headClass /source.wtcl]>Source</a></li><li
0034
><a href="[htmlEncode [::wt::examples::appUrl /download.wtcl]]" [headClass /download.wtcl]>Download</a></li><li
0035
><a href="[htmlEncode [::wt::examples::appUrl /documentation.wtcl]]" [headClass /documentation.wtcl]>Documentation</a></li><li
0036
><a href="[htmlEncode [::wt::examples::appUrl /feedback.wtcl]]" [headClass /feedback.wtcl]>Feedback</a></li>
0037
</ul>
0038
</div>
0039
</div>
0040
<div id="main">
0041
<h1>$::wt::examples::pageTitle</h1>