Lines Matching defs:toc
508 proc long-toc {text} {
510 set here M[incr manual(section-toc-n)]
511 set there L[incr manual(long-toc-n)]
512 lappend manual(section-toc) \
516 proc option-toc {name class switch} {
524 set link [long-toc "$switch, $name, $class"]
529 error "option-toc in $manual(name) section $manual(section)"
537 set there L[incr manual(long-toc-n)]
540 lappend manual(section-toc) \
544 proc std-option-toc {name page} {
547 lappend manual(section-toc) <DD>$manual(standard-option-$page-$name)
551 set here M[incr manual(section-toc-n)]
552 set there L[incr manual(long-toc-n)]
554 lappend manual(section-toc) "<DD><A HREF=\"$page.htm#$other\">$name</A>"
564 lappend manual(section-toc) <DL>
595 man-puts "$para<DT>Command-Line Name: $oswitch[option-toc $name $class $switch]$cswitch"
626 lappend manual(section-toc) </DL>
708 lappend manual(section-toc) $dl
728 man-puts "$para<DT>[long-toc $rest]<DD>"
733 man-puts <DT>[long-toc $rest]<DD>
760 man-puts "$para<DT>[long-toc $rest1]"
761 man-puts "<DT>[long-toc $rest2]<DD>"
799 lappend manual(section-toc) </DL>
818 lappend manual(section-toc) <DL><DD>$line</DD></DL>
825 lappend manual(wing-toc) $name
1133 man-puts "<H3>[long-toc $manual(section)]</H3>"
1135 man-puts "<H4>[long-toc $manual(section)]</H4>"
1161 lappend manual(section-toc) <DL>
1192 lappend manual(section-toc) <DD>$more
1196 lappend manual(section-toc) </DL>
1265 lappend manual(section-toc) <DL>
1267 man-puts "<DT><B>[std-option-toc $option $targetPage]</B>"
1270 lappend manual(section-toc) </DL>
1495 set manual(short-toc-n) 1
1496 set manual(short-toc-fp) [open $html/[indexfile] w]
1497 puts $manual(short-toc-fp) [htmlhead $overall_title $overall_title]
1498 puts $manual(short-toc-fp) "<DL class=\"keylist\">"
1519 set manual(wing-toc-fp) [open $html/$manual(wing-file)/[indexfile] w]
1523 puts $manual(short-toc-fp) "<DT><A HREF=\"$manual(wing-file)/[indexfile]\">$manual(wing-name)</A></DT><DD>$manual(wing-description)</DD>"
1525 puts $manual(wing-toc-fp) [htmlhead $manual(wing-name) \
1528 set manual(wing-toc) {}
1532 set manual(long-toc-n) 1
1566 set manual(section-toc) {}
1567 set manual(section-toc-n) 1
1767 set manual(toc-$manual(wing-file)-$manual(name)) [concat <DL> $manual(section-toc) </DL>]
1774 foreach name $manual(wing-toc) {
1780 set nrows [expr {([llength $manual(wing-toc)]+$perline)/$perline}]
1783 foreach name [lsort -dictionary $manual(wing-toc)] {
1794 puts $manual(wing-toc-fp) <table>
1796 puts $manual(wing-toc-fp) <tr>$rows($row)</tr>
1798 puts $manual(wing-toc-fp) </table>
1803 puts $manual(wing-toc-fp) [copyout $manual(wing-copyrights) "../"]
1804 puts $manual(wing-toc-fp) "</BODY></HTML>"
1805 close $manual(wing-toc-fp)
1869 puts $manual(short-toc-fp) "<DT><A HREF=\"Keywords/[indexfile]\">Keywords</A><DD>The keywords from the $tcltkdesc man pages."
1870 puts $manual(short-toc-fp) "</DL>"
1872 puts $manual(short-toc-fp) [copyout $manual(merge-copyrights)]
1873 puts $manual(short-toc-fp) "</BODY></HTML>"
1874 close $manual(short-toc-fp)
1890 set toc $manual(toc-$manual(wing-file)-$manual(name))
1892 foreach item $toc {
1908 foreach item $toc {