Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix some problems with links in the experimental new toolbar. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
c9b14e2b5447c78858b4a362f554146e |
| User & Date: | dan 2007-12-11 06:58:06 |
Context
|
2007-12-11
| ||
| 07:04 | Apply fix [902e039468] to the experimental branch. (check-in: c6c0641741 user: dan tags: trunk) | |
| 06:58 | Fix some problems with links in the experimental new toolbar. (check-in: c9b14e2b54 user: dan tags: trunk) | |
|
2007-12-10
| ||
| 10:01 | Experimental: Add pulldown menus to the toolbar. Combine code for generating the toolbar with the sitemap.html file. (check-in: f280035157 user: dan tags: trunk) | |
Changes
Changes to sitemap.tcl.
81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 |
append P [create_sitemap_list $::Sitemap]
append P </ul>
return $P
}
proc create_menubar {} {
set sitemap [linsert $::Sitemap 0 [list Sitemap sitemap.html]]
foreach menuitem $sitemap {
set menucontents ""
foreach {caption uri menucontents} $menuitem break
putsin4 {<div class="menu"><div class="rel"><a href="${uri}">$caption</a>}
if {$menucontents ne ""} {
puts {<div class="pulldown">}
foreach submenu $menucontents {
foreach {caption uri} $submenu break
putsin4 {<a href="${uri}">$caption</a>}
}
putsin4 {</div>}
}
putsin4 {</div></div>}
}
}
|
| > > < |
81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 |
append P [create_sitemap_list $::Sitemap]
append P </ul>
return $P
}
proc create_menubar {uriprefix} {
set sitemap [linsert $::Sitemap 0 [list Sitemap sitemap.html]]
foreach menuitem $sitemap {
set menucontents ""
foreach {caption uri menucontents} $menuitem break
if {![string match -nocase http:* ${uri}]} {set uri "$uriprefix$uri"}
putsin4 {<div class="menu"><div class="rel"><a href="${uri}">$caption</a>}
if {$menucontents ne ""} {
puts {<div class="pulldown">}
foreach submenu $menucontents {
foreach {caption uri} $submenu break
if {![string match -nocase http:* ${uri}]} {set uri "$uriprefix$uri"}
putsin4 {<a href="${uri}">$caption</a>}
}
putsin4 {</div>}
}
putsin4 {</div></div>}
}
}
|
Changes to wrap.tcl.
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
...
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
|
<div><!-- IE hack to prevent disappearing logo--></div>
<div class="tagline">Small, Fast, Reliable.<br>Choose any three.</div>
<table width=100% style="clear:both"><tr><td>
<div class="se"><div class="sw"><div class="ne"><div class="nw">
<div class="toolbar">
<table style="margin:auto"><tr><td>
}
create_menubar
putsin4 {
</tr></table>
</div></div></div></div></div>
</td></tr></table>
}
}
................................................................................
}
proc process_infile {in infile outfile} {
set title {No Title}
regexp {<title>([^\n]*)</title>} $in all title
regsub {<title>[^\n]*</title>} $in {} in
set ::OUT [open $::DEST/$outfile w]
PutsHeader $title
regsub -all {<tcl>} $in "\175; eval \173" in
regsub -all {</tcl>} $in "\175; puts \173" in
uplevel #0 "puts \173$in\175"
cd $::HOMEDIR
PutsFooter $infile
close $::OUT
}
|
|
>
>
|
>
|
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
...
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
|
<div><!-- IE hack to prevent disappearing logo--></div>
<div class="tagline">Small, Fast, Reliable.<br>Choose any three.</div>
<table width=100% style="clear:both"><tr><td>
<div class="se"><div class="sw"><div class="ne"><div class="nw">
<div class="toolbar">
<table style="margin:auto"><tr><td>
}
create_menubar $path
putsin4 {
</tr></table>
</div></div></div></div></div>
</td></tr></table>
}
}
................................................................................
}
proc process_infile {in infile outfile} {
set title {No Title}
regexp {<title>([^\n]*)</title>} $in all title
regsub {<title>[^\n]*</title>} $in {} in
set ::OUT [open $::DEST/$outfile w]
set path [string repeat ../ [expr {[llength [file split $outfile]]-1}]]
PutsHeader $title $path
regsub -all {<tcl>} $in "\175; eval \173" in
regsub -all {</tcl>} $in "\175; puts \173" in
uplevel #0 "puts \173$in\175"
cd $::HOMEDIR
PutsFooter $infile
close $::OUT
}
|