From beb27bfef70166c0226bdf6cb73d66cbf34b8853 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Tue, 16 Feb 1999 17:22:32 +0000
Subject: Make navigation panels more CSS-friendly.

Make sure the contents page always has the "table of child links"
turned off; this wasn't being handled properly by latex2html for
"howto" ("article") documents, so just do it ourselves for all
document types.
---
 Doc/perl/l2hinit.perl | 41 ++++++++++++++++++++++++++---------------
 1 file changed, 26 insertions(+), 15 deletions(-)

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 422f902..ec5be08 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -111,20 +111,31 @@ $CUSTOM_BUTTONS = '';
 $BLANK_ICON = "\n<td>" . img_tag('blank.' . $IMAGE_TYPE) . "</td>";
 $NAV_BGCOLOR = " bgcolor=\"#99CCFF\"";
 
+sub make_nav_sectref{
+    my($label,$title) = @_;
+    if ($title) {
+	return ("<b class=navlabel>$label:</b> "
+		. "<span class=sectref>$title</span>\n");
+    }
+    return '';
+}
+
 sub make_nav_panel{
-    ("<table width=\"100%\" cellpadding=0 cellspacing=2>\n<tr>"
-     . "\n<td>$NEXT</td>"
-     . "\n<td>$UP</td>"
-     . "\n<td>$PREVIOUS</td>"
-     . "\n<td align=center$NAV_BGCOLOR width=\"100%\">"
-     . "\n <b>$t_title</b></td>"
-     . ($CONTENTS ? "\n<td>$CONTENTS</td>" : $BLANK_ICON)
-     . "\n<td>$CUSTOM_BUTTONS</td>" # module index
-     . ($INDEX ? "\n<td>$INDEX</td>" : $BLANK_ICON)
-     . "\n</tr></table><hr>\n"
-     . ($NEXT_TITLE ? "<b>Next:</b> $NEXT_TITLE\n" : '')
-     . ($UP_TITLE ? "<b>Up:</b> $UP_TITLE\n" : '')
-     . ($PREVIOUS_TITLE ? "<b>Previous:</b> $PREVIOUS_TITLE\n" : ''));
+    return ("<table width=\"100%\" cellpadding=0 cellspacing=2>\n<tr>"
+	    . "\n<td>$NEXT</td>"
+	    . "\n<td>$UP</td>"
+	    . "\n<td>$PREVIOUS</td>"
+	    . "\n<td align=center$NAV_BGCOLOR width=\"100%\">"
+	    . "\n <b class=title>$t_title</b></td>"
+	    . ($CONTENTS ? "\n<td>$CONTENTS</td>" : $BLANK_ICON)
+	    . "\n<td>$CUSTOM_BUTTONS</td>" # module index
+	    . ($INDEX ? "\n<td>$INDEX</td>" : $BLANK_ICON)
+	    . "\n</tr></table>"
+	    #. "<hr>"
+	    . make_nav_sectref("Next", $NEXT_TITLE)
+	    . make_nav_sectref("Up", $UP_TITLE)
+	    . make_nav_sectref("Previous", $PREVIOUS_TITLE)
+	   );
 }
 
 sub top_navigation_panel {
@@ -278,7 +289,7 @@ sub do_cmd_tableofcontents {
     $tocfile = $CURRENT_FILE;
     my($closures,$reopens) = preserve_open_tags();
     anchor_label('contents', $CURRENT_FILE, $_);	# this is added
-    join('', "<BR>\n", $closures
+    join('', "<BR>\n\\tableofchildlinks[off]", $closures
 	 , make_section_heading($toc_title, 'H2'), $toc_mark
 	 , $reopens, $_);
 }
@@ -458,7 +469,7 @@ sub protect_useritems {
 # style support file.  The %declarations must be set before initialize()
 # is called in the main script.
 #
-%declarations = ('preform' => '<dl><dd><pre></pre></dl>',
+%declarations = ('preform' => '<dl><dd><pre class=verbatim></pre></dl>',
 		 %declarations);
 
 1;	# This must be the last line
-- 
cgit v0.12