Mercurial > cpython-lru_cache-weakref
diff Doc/perl/python.perl @ 10767:e37074b6e78c legacy-trunk
do_cmd_seetext(): Clean up so we get proper nesting of <div>s. This
fixes a rendering problem on IE5.
General adjustments to the table* environments, including using
<thead> and <tbody>. Attempt to adjust the vertical alignment of the
table cells so that the baseline of the first cell matches the
baseline of the remaining cells: When the first cell is small and the
second cell of the same row is multi-line, the first cell was
vertically centered by default. Specifying valign=baseline fixes the
problem on IE, but Netscape seems to ignore both valign=top and
valign=baseline (even though valign is NS's fault!). Make the
horizontal alignment of 'p' columns left instead of center (for the
headings).
| author | Fred Drake <fdrake@acm.org> |
|---|---|
| date | Wed, 28 Apr 1999 13:54:30 +0000 |
| parents | f6ec4a9cb0b3 |
| children | 1af7a1467088 |
line wrap: on
line diff
--- a/Doc/perl/python.perl Wed Apr 28 12:21:47 1999 +0000 +++ b/Doc/perl/python.perl Wed Apr 28 13:54:30 1999 +0000 @@ -777,6 +777,18 @@ $TABLE_HEADER_BGCOLOR = $NAV_BGCOLOR; +sub get_th{ + my $a = @_[0]; + my $r = '<th>'; + if ($a eq 'l') + { $r = '<th align=left>'; } + elsif (substr($a, 0, 1) eq 'p') + { $r = '<th align=left>'; } + elsif ($a eq 'r') + { $r = '<th align=right>'; } + return $r; +} + sub setup_column_alignments{ local($_) = @_; my($a1,$a2,$a3,$a4) = split(/[|]/,$_); @@ -785,16 +797,8 @@ $col_aligns[1] = (($a2 eq 'c') ? '<td align=center>' : '<td>'); $col_aligns[2] = (($a3 eq 'c') ? '<td align=center>' : '<td>'); $col_aligns[3] = (($a4 eq 'c') ? '<td align=center>' : '<td>'); - # return the aligned header start tags; only used for \begin{tableiii?} - $th1 = (($a1 eq 'l') ? '<th align=left>' - : ($a1 eq 'r' ? '<th align=right>' : '<th>')); - $th2 = (($a2 eq 'l') ? '<th align=left>' - : ($a2 eq 'r' ? '<th align=right>' : '<th>')); - $th3 = (($a3 eq 'l') ? '<th align=left>' - : ($a3 eq 'r' ? '<th align=right>' : '<th>')); - $th4 = (($a4 eq 'l') ? '<th align=left>' - : ($a4 eq 'r' ? '<th align=right>' : '<th>')); - return ($th1, $th2, $th3, $th4); + # return the aligned header start tags + return (get_th($a1), get_th($a2), get_th($a3), get_th($a4)); } sub do_env_tableii{ @@ -806,12 +810,14 @@ $font = '' if ($font eq 'textrm'); $globals{'lineifont'} = $font; - return '<table border align=center>' + return '<table border align=center><thead>' . "\n <tr$TABLE_HEADER_BGCOLOR>" . "\n $th1<b>$h1</b></th>" . "\n $th2<b>$h2</b></th>" + . "\n</thead>" + . "\n<tbody valign=baseline>" . $_ - . "\n</table>"; + . "\n</tbody></table>"; } sub do_cmd_lineii{ @@ -839,13 +845,15 @@ $font = '' if ($font eq 'textrm'); $globals{'lineifont'} = $font; - return '<table border align=center>' + return '<table border align=center><thead>' . "\n <tr$TABLE_HEADER_BGCOLOR>" . "\n $th1<b>$h1</b></th>" . "\n $th2<b>$h2</b></th>" . "\n $th3<b>$h3</b></th>" + . "\n</thead>" + . "\n<tbody valign=baseline>" . $_ - . "\n</table>"; + . "\n</tbody></table>"; } sub do_cmd_lineiii{ @@ -876,14 +884,16 @@ $font = '' if ($font eq 'textrm'); $globals{'lineifont'} = $font; - return '<table border align=center>' + return '<table border align=center><thead>' . "\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</thead>" + . "\n<tbody valign=baseline>" . $_ - . "\n</table>"; + . "\n</tbody></table>"; } sub do_cmd_lineiv{ @@ -1056,7 +1066,9 @@ } sub do_cmd_seetext{ - return '<div class=seetext><p>' . @_[0] . '</div>'; + local($_) = @_; + my $content = next_argument(); + return '<div class=seetext><p>' . $content . '</div>' . $_; }