blob: b399279fd66921d675d2882c7e4ec6f541f4e7d2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
#!/depot/path/tclsh
# This is a CGI script that shows a selection of format elements
package require cgi
cgi_eval {
source example.tcl
cgi_title "A Tour of HTML Elements"
cgi_body {
definition_list {
term "term"
term_definition "definition of term"
}
h4 "menu list"
menu_list {
li item1
li item2
}
h4 "directory list"
directory_list {
li item1
li item2
}
h4 "a list item by itself"
li "item"
h4 "number list (roman, starting from 4)"
number_list type=i value=4 {
li "first element"
li "second"
li value=9 "third, start numbering from 9"
li type=A "fourth, switch to upper-arabic"
}
h4 "bullet list"
bullet_list {
p "plain text"
li "plain item"
h4 "nested list (disc, starting from 4)"
bullet_list type=disc value=4 {
li "first element"
li "second"
li type=circle "third, type=circle"
li type=square "fourth, type=square"
li "fifth, should remain square"
}
}
h4 "Character formatting samples"
cgi_put "[bold bold]\
[italic italic]\
[underline underline]\
[strikeout strikeout]\
[subscript subscript]\
[superscript superscript]\
[typewriter typewriter]\
[blink blink]
[emphasis emphasis]\
[strong strong]\
[cite cite]\
[sample sample]\
[keyboard keyboard]\
[variable variable]\
[definition definition]\
[big big]\
[small small]\
[font color=#4499cc "color=#4499cc"]\
"
for {set i 1} {$i<8} {incr i} {
puts [cgi_font size=$i "size=$i"]
}
h4 "Paragraph formatting samples"
cgi_h1 h1
cgi_h2 h2
cgi_h3 h3
cgi_h4 h4
cgi_h5 h5
cgi_h6 h6
cgi_h7 "h7 (beyond the spec, what the heck)"
cgi_h6 align=right "right-aligned h6"
cgi_p align=right "right-aligned paragraph"
cgi_put put
cgi_blockquote "blockquote"
cgi_address address
cgi_division {
puts "division"
}
cgi_preformatted {
puts "preformatted"
}
}
}
|
