Chapter headings and tex boxes

Chapter headings and tex boxes

[Bruce D'Arcus]

OK; this one has sample code :-)

Have finally gotten very close to what I want for a chapter heading.  
I'm not exactly sure what I've done, however, nor how to fix the 
remaining problem.  What this code does is place the chapter number at 
the top left of the page, and the title centered a bit below.  The 
problem is that I don't want the rbox to be a fixed 7em.  Rather, I 
want the size to be dependent on the size of the text that occupies it 
(because with a short one-line title I get considerably more whitespace 
between the title and the first paragraph than if the title is two 
lines).  Sooo...again with the question: "what do I do?"

\def\HeadTitle#1#2%
{\rbox to 7em \bgroup
\rbox{\framed[width=\hsize, align=right, frame=off]{#1}}%
\rbox{\framed[width=\hsize, align=middle, frame=off]{#2}}%
\egroup
 }

\setuphead
[chapter]
[command=\HeadTitle]

What I also have not figured out: how to get the caps command to work 
on the title and headings.