File: test.tml

package info (click to toggle)
tclws 2.6.2-1
  • links: PTS
  • area: main
  • in suites: buster
  • size: 884 kB
  • sloc: tcl: 7,431; makefile: 18
file content (21 lines) | stat: -rw-r--r-- 518 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
[mypage::header "Test Page"]
<p>
Namespaces: [namespace children ::]
<p>
mypage: [info vars mypage::*]
<p>
Contents: [set ::mypage::contents]
<p>
This is some text.  The image is generated a CGI script so
we can hopefully see two threads dispatched to do work as the CGI
script blocks.
<table>
<tr><td>
<img src=/cgi-bin/big.cgi width=130 height=200>
</td><td>
<img src=/images/pwrdLogo200.gif width=130 height=200>
</td><td>
<img src=/images/pwrdLogo175.gif width=113 height=175>
</td></tr>
</table>
[mypage::footer]