Push more of the display control into the style sheet.

This commit is contained in:
Fred Drake 2000-09-16 20:40:44 +00:00
parent acff0b3f3b
commit 1681627ebf
2 changed files with 10 additions and 3 deletions

View file

@ -27,6 +27,13 @@ BIG.XHUGE { font-size : xx-large }
* the normal text size. * 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; h1, h2, h3, h4, h5, h6 { font-family: avantgarde, sans-serif;
font-weight: bold } font-weight: bold }
h1 { font-size: 180% } h1 { font-size: 180% }

View file

@ -26,8 +26,7 @@ $BOTTOM_NAVIGATION = 1;
$AUTO_NAVIGATION = 0; $AUTO_NAVIGATION = 0;
# these exactly match the python.org colors # these exactly match the python.org colors
$BODYTEXT = ('bgcolor="#ffffff" text="#000000"' $BODYTEXT = '';
. ' link="#0000bb" vlink="#551a8b" alink="#ff0000"');
$CHILDLINE = "\n<p><hr>\n"; $CHILDLINE = "\n<p><hr>\n";
$VERBOSITY = 0; $VERBOSITY = 0;
@ -506,6 +505,7 @@ sub set_depth_levels {
# content of the page. # content of the page.
sub make_head_and_body { sub make_head_and_body {
my($title, $body) = @_; my($title, $body) = @_;
$body = " $body" unless ($body eq '');
my $DTDcomment = ''; my $DTDcomment = '';
my($version, $isolanguage) = ($HTML_VERSION, 'EN'); my($version, $isolanguage) = ($HTML_VERSION, 'EN');
my %isolanguages = ( 'english', 'EN' , 'USenglish', 'EN.US' my %isolanguages = ( 'english', 'EN' , 'USenglish', 'EN.US'
@ -541,7 +541,7 @@ sub make_head_and_body {
, ($BASE ? "<base href=\"$BASE\">\n" : "" ) , ($BASE ? "<base href=\"$BASE\">\n" : "" )
, "<link rel=\"STYLESHEET\" href=\"$STYLESHEET\">" , "<link rel=\"STYLESHEET\" href=\"$STYLESHEET\">"
, $more_links_mark , $more_links_mark
, "\n</head>\n<body $body>\n"); , "\n</head>\n<body$body>");
} }
1; # This must be the last line 1; # This must be the last line