diff -u tcl8.4a4/tools/tcltk-man2html.tcl VRWtcl8.4a4/tools/tcltk-man2html.tcl --- tcl8.4a4/tools/tcltk-man2html.tcl Thu May 3 16:47:28 2001 +++ VRWtcl8.4a4/tools/tcltk-man2html.tcl Fri May 17 13:27:41 2002 @@ -1269,6 +1269,14 @@ } } +proc Copyright {dir} { + # Old-style, produces a broken link unless a copyright.htm is created + #return "Copyright ©" + + # New-style, no link. + return "Copyright ©" +} + ## ## foreach of the man directories specified by args ## convert manpages into hypertext in the directory @@ -1489,9 +1497,9 @@ } man-puts
foreach copyright $manual(copyrights) { - man-puts "Copyright © [lrange $copyright 2 end]" + man-puts "[Copyright ..] [lrange $copyright 2 end]" } - man-puts "Copyright © 1995-1997 Roger E. Critchlow Jr." + man-puts "[Copyright ..] 1995-1997 Roger E. Critchlow Jr." set manual(wing-copyrights) [merge-copyrights $manual(wing-copyrights) $manual(copyrights)] } elseif {[next-op-is .TH rest]} { set manual($manual(name)-title) "[lrange $rest 4 end] - [lindex $rest 0] manual page" @@ -1505,9 +1513,9 @@ } man-puts
foreach copyright $manual(copyrights) { - man-puts "Copyright © [lrange $copyright 2 end]" + man-puts "[Copyright ..] [lrange $copyright 2 end]" } - man-puts "Copyright © 1995-1997 Roger E. Critchlow Jr." + man-puts "[Copyright ..] 1995-1997 Roger E. Critchlow Jr." set manual(wing-copyrights) [merge-copyrights $manual(wing-copyrights) $manual(copyrights)] } else { manerror "no .HS or .TH record found" @@ -1539,7 +1547,7 @@ } set tail [file tail $tail] append rows([expr {$n%$nrows}]) \ - "