diff options
author | Fred Drake <fdrake@acm.org> | 2000-08-31 07:19:07 (GMT) |
---|---|---|
committer | Fred Drake <fdrake@acm.org> | 2000-08-31 07:19:07 (GMT) |
commit | f730fc3e4e4cfe6a5e81ea4c4ff59a7d7c9daab2 (patch) | |
tree | 9b5095ee7e479f751fe6df04dbf68cf483e2e068 /Doc/perl | |
parent | 3eb7c126cdd7ec7bd7d0376d8f6b671d73bdf464 (diff) | |
download | cpython-f730fc3e4e4cfe6a5e81ea4c4ff59a7d7c9daab2.zip cpython-f730fc3e4e4cfe6a5e81ea4c4ff59a7d7c9daab2.tar.gz cpython-f730fc3e4e4cfe6a5e81ea4c4ff59a7d7c9daab2.tar.bz2 |
Be a little more careful to avoid including style information in the
generated markup.
Don't be careless with the navigation icons! We should use the blank
icon where there is not anyplace to go for a particular position in the
navigation bar.
Diffstat (limited to 'Doc/perl')
-rw-r--r-- | Doc/perl/l2hinit.perl | 25 |
1 files changed, 12 insertions, 13 deletions
diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl index bd85f68..97a9885 100644 --- a/Doc/perl/l2hinit.perl +++ b/Doc/perl/l2hinit.perl @@ -18,6 +18,7 @@ $NUMBERED_FOOTNOTES = 1; $SHOW_SECTION_NUMBERS = 1; $ICONSERVER = '../icons'; +$IMAGE_TYPE = 'gif'; # Control where the navigation bars should show up: $TOP_NAVIGATION = 1; @@ -93,7 +94,6 @@ sub custom_driver_hook { $CUSTOM_BUTTONS = ''; -$NAV_BGCOLOR = " bgcolor=\"#99CCFF\""; sub make_nav_sectref { my($label,$title) = @_; @@ -111,22 +111,22 @@ sub make_my_icon { . " height=\"32\"\n alt=\"$text\" width=\"32\">"; } -$BLANK_ICON = make_my_icon("blank", ""); +$BLANK_ICON = make_my_icon('blank', ''); @my_icons = (); $my_icons{'next_page_inactive'} = $BLANK_ICON; $my_icons{'previous_page_inactive'} = $BLANK_ICON; $my_icons{'up_page_inactive'} = $BLANK_ICON; -$x = make_my_icon("next", "Next Page"); +$x = make_my_icon('next', 'Next Page'); $my_icons{'next_page'} = $x; $my_icons{'next'} = $x; -$x = make_my_icon("previous", "Previous Page"); +$x = make_my_icon('previous', 'Previous Page'); $my_icons{'previous_page'} = $x; $my_icons{'previous'} = $x; -$my_icons{'up'} = make_my_icon("up", "Up One Level"); -$my_icons{'contents'} = make_my_icon("contents", "Contents"); -$my_icons{'index'} = make_my_icon("index", "Index"); -$my_icons{'modules'} = make_my_icon("modules", "Module Index"); +$my_icons{'up'} = make_my_icon('up', 'Up One Level'); +$my_icons{'contents'} = make_my_icon('contents', 'Contents'); +$my_icons{'index'} = make_my_icon('index', 'Index'); +$my_icons{'modules'} = make_my_icon('modules', 'Module Index'); sub use_my_icon { @@ -137,9 +137,9 @@ sub use_my_icon { sub make_nav_panel { my $s; - $NEXT = use_my_icon("$NEXT"); - $UP = use_my_icon("$UP"); - $PREVIOUS = use_my_icon("$PREVIOUS"); + $NEXT = $NEXT_TITLE ? use_my_icon("$NEXT") : $BLANK_ICON; + $UP = $UP_TITLE ? use_my_icon("$UP") : $BLANK_ICON; + $PREVIOUS = $PREVIOUS_TITLE ? use_my_icon("$PREVIOUS") : $BLANK_ICON; $CONTENTS = use_my_icon("$CONTENTS"); $INDEX = $INDEX ? use_my_icon("$INDEX") : $BLANK_ICON; if (!$CUSTOM_BUTTONS) { @@ -152,8 +152,7 @@ sub make_nav_panel { . "\n<td>$UP</td>" . "\n<td>$NEXT</td>" # title box - . "\n<td align=\"center\"$NAV_BGCOLOR width=\"100%\">" - . "\n <b class=\"title\">$t_title</b></td>" + . "\n<td align=\"center\" width=\"100%\">$t_title</td>" # right-hand side . "\n<td>$CONTENTS</td>" . "\n<td>$CUSTOM_BUTTONS</td>" # module index |