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.