Push more of the display control into the style sheet.
authorFred Drake <fdrake@acm.org>
Sat, 16 Sep 2000 20:40:44 +0000 (20:40 +0000)
committerFred Drake <fdrake@acm.org>
Sat, 16 Sep 2000 20:40:44 +0000 (20:40 +0000)
Doc/html/style.css
Doc/perl/l2hinit.perl

index bde3ce0c142482660b740fededb5b8b4fda3f254..0bdda92d624fd3f7131c4cde3a93e15bd9a091dd 100644 (file)
@@ -27,6 +27,13 @@ BIG.XHUGE            { font-size : xx-large }
  * the normal text size.
  */
 
+body                   { color: #000000;
+                          background-color: #ffffff; }
+
+a:active               { color: #ff0000; }
+a:visited              { color: #551a8b; }
+a:link                 { color: #0000bb; }
+
 h1, h2, h3, h4, h5, h6 { font-family: avantgarde, sans-serif;
                          font-weight: bold }
 h1                     { font-size: 180% }
index d78efc86b6862ea8f3c60f494bde616e4dbe1a79..b551158287d29b788c7fc71d44100c1ed260555d 100644 (file)
@@ -26,8 +26,7 @@ $BOTTOM_NAVIGATION = 1;
 $AUTO_NAVIGATION = 0;
 
 # these exactly match the python.org colors
-$BODYTEXT = ('bgcolor="#ffffff" text="#000000"'
-            . ' link="#0000bb"  vlink="#551a8b" alink="#ff0000"');
+$BODYTEXT = '';
 $CHILDLINE = "\n<p><hr>\n";
 $VERBOSITY = 0;
 
@@ -506,6 +505,7 @@ sub set_depth_levels {
 # content of the page.
 sub make_head_and_body {
     my($title, $body) = @_;
+    $body = " $body" unless ($body eq '');
     my $DTDcomment = '';
     my($version, $isolanguage) = ($HTML_VERSION, 'EN');
     my %isolanguages = (  'english',  'EN'   , 'USenglish', 'EN.US'
@@ -541,7 +541,7 @@ sub make_head_and_body {
        , ($BASE ? "<base href=\"$BASE\">\n" : "" )
        , "<link rel=\"STYLESHEET\" href=\"$STYLESHEET\">"
        , $more_links_mark
-       , "\n</head>\n<body $body>\n");
+       , "\n</head>\n<body$body>");
 }
 
 1;     # This must be the last line