MathGroup Archive 2007

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

Search the Archive

Re: Creating boxes in text cells.

  • To: mathgroup at smc.vnet.net
  • Subject: [mg75722] Re: Creating boxes in text cells.
  • From: Hatto von Aquitanien <abbot at AugiaDives.hre>
  • Date: Wed, 9 May 2007 04:32:00 -0400 (EDT)
  • Organization: Invisible Light
  • References: <f1eqo0$58l$1@smc.vnet.net> <f1hkm9$o7t$1@smc.vnet.net>

Albert wrote:

> Hi,
> 
> I'm not sure whether I understood your question in details but the
> following menu entries might be of interest:
> 
>> Is there a way I can get "Cell[BoxData[FormBox["\[Placeholder]",
>> TraditionalForm]]]" to appear on at the entry cursor using a key
>> combination similar to what happens if I type `Ctrl+^'?
> 
> Edit -> Expression Input -> Start Inline Cell (Ctrl+9 on Windows)
> 
> will insert an inline Cell, which looks and behaves like what I think
> you want, except that there is no Placeholder...
> 
>> If I type out the \!(...\) representation, it does not "snap into place"
>> as
>> rendered text.  Nor do I know of any way to persuade it to do so.
>> 
>> Also, if I have already typed something such as "y=x", and decide I want
>> it displayed as expression text rather than raw text, is there a way to
>> highlight it, and "wrap" it in the appropriate boxes?
> 
> select it as usual (mouse or keyboard), then use: Cell -> Convert To ->
> TraditionalForm (Ctrl+Shift+T on Windows) will wrap the inline Cell
> around the selection...
> 
> hth,
> 
> albert

Yes, that was basically the question I asked.  It isn't really the whole
question I should have asked.  The Ctrl+9 does something I want.  I'm
surprised I had not found that already.  Thanks.

The other thing I was trying to ask was if I can get something such as the
following to "snap into place" in a text cell:

\!\(StyleBox[\[IndentingNewLine]RowBox[\[IndentingNewLine]{SubscriptBox["\<\
\[CurlyEpsilon]\>", \*"\"\<\!\(\[Alpha]\_1\)\[Ellipsis] \
\!\(\[Alpha]\_n\)\>\""]\[IndentingNewLine], "\<=\>"\[IndentingNewLine], 
          SuperscriptBox["\<\[CurlyEpsilon]\>", \*"\"\<\!\(\[Alpha]\_1\)\
\[Ellipsis] \!\(\[Alpha]\_n\)\>\""]\[IndentingNewLine], "\<=\>"\
\[IndentingNewLine], "\<{\>"\[IndentingNewLine], \ 
          GridBox[{{"\<1\>"}, {"\<-1\>"}, {"\<0\>"}}\[IndentingNewLine], 
            ColumnAlignments -> 
              Right]\[IndentingNewLine], \*"\"\<permutation(\
\(\[Alpha]\_1\)\
\[Ellipsis] \!\(\[Alpha]\_n\)) is \>\""\[IndentingNewLine], "\<{\>"\
\[IndentingNewLine], 
          GridBox[{{"\<even\>"}, {"\<odd\>"}, \
{"\<none\>"}}\[IndentingNewLine], 
            ColumnAlignments -> 
              Left]\[IndentingNewLine]}]\[IndentingNewLine], 
      SpanMaxSize -> Infinity\[IndentingNewLine], 
      ShowAutoStyles -> False\[IndentingNewLine]] // DisplayForm\)

It may be wiser to simply enter that in an input cell wrapped up in
CellPrint[Cell[...]], which is what I have been doing.


  • Prev by Date: Re: Re: Format->Magnification does not work
  • Next by Date: Re: Re: Re: Re: Re:
  • Previous by thread: Re: Creating boxes in text cells.
  • Next by thread: unable to "evaluate notebook"