Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2002
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2002

[Date Index] [Thread Index] [Author Index]

Search the Archive

RE: Re: "TableLabel"?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg34929] RE: [mg34887] Re: "TableLabel"?
  • From: "David Park" <djmp at earthlink.net>
  • Date: Thu, 13 Jun 2002 02:38:18 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

Jens, aes,

It's not really broken. It is just that it is a very fussy art.

Needs["Graphics`Colors`"]

StyleBox[
    FrameBox[
      GridBox[{{"Table title stuff"},
      {StyleBox[
              FrameBox[
                GridBox[{{a, b}, {c, d}},
                  ColumnWidths -> 5,
                  ColumnSpacings -> -0.1,
                  ColumnLines -> True]],
              Background -> AliceBlue]}},
        ColumnWidths -> 10,
        ColumnSpacings -> 0,
        RowSpacings -> 0.5,
        RowAlignments -> Axis],
      BoxMargins -> {{0.4, 0.4}, {0.1, 0.2}}],
    Background -> Aquamarine] // DisplayForm

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/ 

 From: Jens-Peer Kuska [mailto:kuska at informatik.uni-leipzig.de]
To: mathgroup at smc.vnet.net
> 
> Hi,
> 
> GridBox[{{"Table title stuff"},
>       {GridBox[{{a, b}, {c, d}}]}}] // DisplayForm
> 
> is broken, and 
> 
> GridBox[{
>       {GridBox[{{a, b}, {c, d}}]},
>       {"Caption"}}] // DisplayForm
> 
> also not work. To bad. If you whant to typeset something
> you should *use* typesetting.
> 
> 
> 
> Regards
>   Jens
> 
> aes wrote:
> > 
> > Suppose you want to get a Table Title (or "TableLabel") above a
> > Table, but in the same cell.  The syntax
> > 
> >    Print[ "Table title stuff"];
> >    Print[ TableForm[ Table[ ----] ] ]
> > 
> > generates the wanted information at about the right spacing, but
> > you have to mess with add'l No Page Break Above or No Page Break
> > Below Style commands if you want to prevent a page break between
> > the two.  (How would you code that into the Print statement, by
> > the way?)
> > 
> > The alternative syntax
> > 
> >    Print[ "Table title stuff", TableForm[ Table[ ----] ] ]
> > 
> > is very much simpler and works OK -- except it seems to put 3 or 4
> > blank lines between the title stuff and the Table; more spacing
> > than with the two separate Print commands.
> > 
> > Any way to avoid this?
> > 
> > (In general, a series of options like "TableTitle-><<string>>", or
> > "PlotTitle", or "FrameTitle", which would in essence act like a
> > Print statement inserted just before a Table, a Plot, etc, would
> > be very handy objects.)
> > 
> > (As would "TableCaption", "PlotCaption", etc, which would be
> > inserted just after the corresponding object.)
> 


  • Prev by Date: Re: Re: which Linux does Mathematica run on?
  • Next by Date: Re: Re: Getting File Directory Using Any Platform
  • Previous by thread: Re: "TableLabel"?
  • Next by thread: Linux Font Problem