Background placement

[nico <nicolas.marsgui@libertysurf.fr>]

Hello,

The placement of backgrounded text is sometimes unexpected: it forces a  
page break even if there's much room in the page to put the whole thing.  
Searching in the mailing list I've found one thread about the subject  
(http://archive.contextgarden.net/message/20051205.090518.90cc69d4.en.html),  
but playing with \setupinterlinespace as suggested doesn't help.

The problem often occurs just after a heading starting at the top of a  
page (section, enumeration title). Here is an example showing the  
behaviour:

\setuplayout[middle]
\setupcolors[state=start]

% Background
\definecolor[ScreenGray][s=.95]
\setupbackground
   [background=screen,
    frame=on,
    strut=yes,
    width=broad,
    before=\blank,
    after=\blank,
    framecolor=ScreenGray,
    align=right]

% Verbatim environment for programlisting
\definetyping[programlisting]

\setuptyping[programlisting]
             [bodyfont=small,
              before={\startbackground},
              after={\stopbackground}]

\starttext

\input tufte

\input tufte

\input tufte
\input tufte
\input tufte

\section{joke}
Here is an example:

\startprogramlisting
Some code
\stopprogramlisting

And the text continues...

\stoptext

Regards,
BG