Tcl Source Code

Check-in [973f7c7d0b]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix the generated copyright sections in the HTML help file.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-6-branch
Files: files | file ages | folders
SHA1: 973f7c7d0bf4bcbc3bacbc18b079f311a4a7f76f
User & Date: jan.nijtmans 2016-11-04 11:50:22
Context
2016-11-04
14:39
close fork check-in: 91d91053a6 user: dgp tags: core-8-6-branch
11:51
Fix the generated copyright sections in the HTML help file check-in: ec41e853d0 user: jan.nijtmans tags: trunk
11:50
Fix the generated copyright sections in the HTML help file. check-in: 973f7c7d0b user: jan.nijtmans tags: core-8-6-branch
11:32
Make packages msgcat and tcltest work unmodified in "novem". check-in: 3b9aba0637 user: jan.nijtmans tags: core-8-6-branch
2016-11-02
01:42
Fix the generated copyright sections in the HTML help file. Closed-Leaf check-in: 13b8547f59 user: mistachkin tags: htmlCopyrightsFix
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tools/tcltk-man2html-utils.tcl.

53
54
55
56
57
58
59

60
61



62

63
64
65
66
67
68
69
    #return "<A HREF=\"$page\">Copyright</A> &#169; [htmlize-text [lrange $copyright 2 end]]"
    # obfuscate any email addresses that may appear in name
    set who [string map {@ (at)} [lrange $copyright 2 end]]
    return "Copyright &copy; [htmlize-text $who]"
}

proc copyout {copyrights {level {}}} {

    set out "<div class=\"copy\">"
    foreach c $copyrights {



	append out "[copyright $c $level]\n"

    }
    append out "</div>"
    return $out
}

proc CSS {{level ""}} {
    return "<link rel=\"stylesheet\" href=\"${level}$::CSSFILE\" type=\"text/css\" media=\"all\">\n"






>


>
>
>

>







53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
    #return "<A HREF=\"$page\">Copyright</A> &#169; [htmlize-text [lrange $copyright 2 end]]"
    # obfuscate any email addresses that may appear in name
    set who [string map {@ (at)} [lrange $copyright 2 end]]
    return "Copyright &copy; [htmlize-text $who]"
}

proc copyout {copyrights {level {}}} {
    set count 0
    set out "<div class=\"copy\">"
    foreach c $copyrights {
	if {$count > 0} {
	    append out <BR>
	}
	append out "[copyright $c $level]\n"
	incr count
    }
    append out "</div>"
    return $out
}

proc CSS {{level ""}} {
    return "<link rel=\"stylesheet\" href=\"${level}$::CSSFILE\" type=\"text/css\" media=\"all\">\n"