diff Doc/perl/python.perl @ 10149:959e81b39b81 legacy-trunk

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.
author Fred Drake <fdrake@acm.org>
date Fri, 12 Feb 1999 19:23:17 +0000
parents b21915e6589e
children 13239b48c469
line wrap: on
line diff
--- a/Doc/perl/python.perl	Fri Feb 12 19:00:38 1999 +0000
+++ b/Doc/perl/python.perl	Fri Feb 12 19:23:17 1999 +0000
@@ -730,6 +730,8 @@
 
 @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 @@
         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 @@
     }
     my($c1align,$c2align) = @col_aligns[0,1];
     return "<tr>$c1align$sfont$c1$efont</td>\n"
-           . "      $c2align$c2</td>"
+           . "      $c2align$c2\&nbsp;</td>"
 	   . $_;
 }
 
@@ -792,9 +795,10 @@
         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 @@
     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\&nbsp;</td>"
 	   . $_;
 }
 
@@ -828,10 +832,11 @@
         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 @@
     return "<tr>$c1align$sfont$c1$efont</td>\n"
            . "      $c2align$c2</td>\n"
 	   . "      $c3align$c3</td>\n"
-	   . "      $c4align$c4</td>"
+	   . "      $c4align$c4\&nbsp;</td>"
 	   . $_;
 }