diff options
| author | Fred Drake <fdrake@acm.org> | 1998-08-11 03:14:50 (GMT) |
|---|---|---|
| committer | Fred Drake <fdrake@acm.org> | 1998-08-11 03:14:50 (GMT) |
| commit | 6aa5d482fb40bdc0061e55e4a213878ad535a347 (patch) | |
| tree | 034e47d817c11b10803f2ca4c0d09480657ed759 | |
| parent | ab9d6f0be97d77b167dd14d99eae622023354554 (diff) | |
| download | cpython-6aa5d482fb40bdc0061e55e4a213878ad535a347.zip cpython-6aa5d482fb40bdc0061e55e4a213878ad535a347.tar.gz cpython-6aa5d482fb40bdc0061e55e4a213878ad535a347.tar.bz2 | |
Control when/where navigation bars will appear: top & bottom of each page.
Include an additional button to the module index in the nav. bars if we
generate a module index. Still need a button image, but the ALT text should
do for now.
| -rw-r--r-- | Doc/perl/l2hinit.perl | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl index 9f8c04e..b098ba2 100644 --- a/Doc/perl/l2hinit.perl +++ b/Doc/perl/l2hinit.perl @@ -13,8 +13,7 @@ use Cwd qw(getcwd); package main; -$INFO = 1; # 0 = do not make a "About this document..." section -$MAX_LINK_DEPTH = 3; +$MAX_LINK_DEPTH = 2; $ADDRESS = ''; $NO_FOOTNODE = 1; @@ -27,6 +26,11 @@ $SHOW_SECTION_NUMBERS = 1; $ICONSERVER = '../icons'; +# Control where the navigation bars should show up: +$TOP_NAVIGATION = 1; +$BOTTOM_NAVIGATION = 1; +$AUTO_NAVIGATION = 0; + $BODYTEXT = 'bgcolor="#ffffff"'; $CHILDLINE = "\n<p><hr>\n"; $VERBOSITY = 0; @@ -81,13 +85,15 @@ sub custom_driver_hook{ } +$CUSTOM_BUTTONS = ''; + sub make_nav_panel{ ($NEXT_TITLE ? $NEXT : '') . ($UP_TITLE ? $UP : '') . ($PREVIOUS_TITLE ? $PREVIOUS : '') . $CONTENTS + . $CUSTOM_BUTTONS . $INDEX -# . " $CUSTOM_BUTTONS" . "\n<br>\n" . ($NEXT_TITLE ? "<b>Next:</b> $NEXT_TITLE\n" : '') . ($UP_TITLE ? "<b>Up:</b> $UP_TITLE\n" : '') @@ -346,6 +352,11 @@ sub add_bbl_and_idx_dummy_commands { my $rx = "([\\\\]begin\\s*$O\\d+$C\\s*theindex[\\s\\S]*)" . "([\\\\]begin\\s*$O\\d+$C\\s*theindex)"; s/$rx/\\textohtmlmoduleindex \1 \\textohtmlindex \2/o; + # Add a button to the navigation areas: + $CUSTOM_BUTTONS .= ("<a\n href=\"modindex.html\"><img" + . " src=\"$ICONSERVER$dd" + . "modules_motif.gif\" border=0" + . " alt=\"[Modules]\"></a>"); } else { $global{'max_id'} = $id; # not sure why.... |