MathGroup Archive 2007

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

Search the Archive

Re: Creating boxes in text cells.


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"