Documentation Source Text

Check-in [c9b14e2b54]
Login

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
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: c9b14e2b5447c78858b4a362f554146e31fd0ff3
User & Date: dan 2007-12-11 06:58:06.000
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
Unified Diff Ignore Whitespace Patch
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

    <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>
  }
}









|








181
182
183
184
185
186
187
188
189
190
191
192
193
194
195

    <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>
  }
}
︙︙
237
238
239
240
241
242
243


244

245
246
247
248
249
250
251

}

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
}








>
>
|
>








237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254

}

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
}
︙︙