diff options
author | Fred Drake <fdrake@acm.org> | 1999-02-12 19:23:17 (GMT) |
---|---|---|
committer | Fred Drake <fdrake@acm.org> | 1999-02-12 19:23:17 (GMT) |
commit | 15799edd349001172da7aa569602931d958d3963 (patch) | |
tree | fc5c250ab48e6f5031a4800116cba0a466521ed9 /Doc/perl | |
parent | 7a9ed71e95872dd9c43e63488e80074702d33975 (diff) | |
download | cpython-15799edd349001172da7aa569602931d958d3963.zip cpython-15799edd349001172da7aa569602931d958d3963.tar.gz cpython-15799edd349001172da7aa569602931d958d3963.tar.bz2 |
Make table headers the same color as the navigation bars so they stand
out a little better.
Make sure the boxes for the last column of tables always get drawn;
these are often left empty of content when used as a "Notes" column.
They look a little better this way.
Diffstat (limited to 'Doc/perl')
-rw-r--r-- | Doc/perl/python.perl | 29 |
1 files changed, 17 insertions, 12 deletions
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl index 0452b1f..6caee3a 100644 --- a/Doc/perl/python.perl +++ b/Doc/perl/python.perl @@ -730,6 +730,8 @@ sub do_cmd_memberlineni{ @col_aligns = ("<td>", "<td>", "<td>", "<td>"); +$TABLE_HEADER_BGCOLOR = $NAV_BGCOLOR; + sub setup_column_alignments{ local($_) = @_; my($a1,$a2,$a3,$a4) = split(/[|]/,$_); @@ -760,8 +762,9 @@ sub do_env_tableii{ if ($font eq 'textrm'); $globals{'lineifont'} = $font; return '<table border align=center>' - . "\n <tr>$th1<b>$h1</b></th>" - . "\n $th2<b>$h2</b></th>" + . "\n <tr$TABLE_HEADER_BGCOLOR>" + . "\n $th1<b>$h1</b></th>" + . "\n $th2<b>$h2</b></th>" . $_ . "\n</table>"; } @@ -777,7 +780,7 @@ sub do_cmd_lineii{ } my($c1align,$c2align) = @col_aligns[0,1]; return "<tr>$c1align$sfont$c1$efont</td>\n" - . " $c2align$c2</td>" + . " $c2align$c2\ </td>" . $_; } @@ -792,9 +795,10 @@ sub do_env_tableiii{ if ($font eq 'textrm'); $globals{'lineifont'} = $font; return '<table border align=center>' - . "\n <tr>$th1<b>$h1</b></th>" - . "\n $th2<b>$h2</b></th>" - . "\n $th3<b>$h3</b></th>" + . "\n <tr$TABLE_HEADER_BGCOLOR>" + . "\n $th1<b>$h1</b></th>" + . "\n $th2<b>$h2</b></th>" + . "\n $th3<b>$h3</b></th>" . $_ . "\n</table>"; } @@ -812,7 +816,7 @@ sub do_cmd_lineiii{ my($c1align,$c2align,$c3align) = @col_aligns[0,1,2]; return "<tr>$c1align$sfont$c1$efont</td>\n" . " $c2align$c2</td>\n" - . " $c3align$c3</td>" + . " $c3align$c3\ </td>" . $_; } @@ -828,10 +832,11 @@ sub do_env_tableiv{ if ($font eq 'textrm'); $globals{'lineifont'} = $font; return '<table border align=center>' - . "\n <tr>$th1<b>$h1</b></th>" - . "\n $th2<b>$h2</b></th>" - . "\n $th3<b>$h3</b></th>" - . "\n $th4<b>$h4</b></th>" + . "\n <tr$TABLE_HEADER_BGCOLOR>" + . "\n $th1<b>$h1</b></th>" + . "\n $th2<b>$h2</b></th>" + . "\n $th3<b>$h3</b></th>" + . "\n $th4<b>$h4</b></th>" . $_ . "\n</table>"; } @@ -851,7 +856,7 @@ sub do_cmd_lineiv{ return "<tr>$c1align$sfont$c1$efont</td>\n" . " $c2align$c2</td>\n" . " $c3align$c3</td>\n" - . " $c4align$c4</td>" + . " $c4align$c4\ </td>" . $_; } |