Re: New lines in InputField
- To: mathgroup at smc.vnet.net
- Subject: [mg117770] Re: New lines in InputField
- From: Alexey <lehin.p at gmail.com>
- Date: Thu, 31 Mar 2011 04:00:18 -0500 (EST)
- References: <imus9d$i5b$1@smc.vnet.net>
Chris,
Thank you for publishing the solution. I thought more than two years
that it was impossible.
Alexey
"Chris Degnen" <degnen at cwgsy.net> wrote:
> This seems to be the solution. FrontEndExecute clues gleaned from
> perdalum's post of January 2010.
>
> CreateDialog[{TextCell["Enter your text here:"],
> InputField[Dynamic[input], String, FieldSize -> {50, 12}],
> DefaultButton[
> DialogReturn[
> CreateDocument[
> Graphics[{Yellow, Rectangle[{0, 0}, {300, 200}], Black,
> Inset[TextCell[input, 12, LineSpacing -> {0, 16},
> TextJustification -> 1], {0, 200}, {Left, Top}, {300,
> Automatic}]}, PlotRange -> {{0, 300}, {0, 200}},
> ImageSize -> {300, 200}]]]]},
> NotebookEventActions -> {"ReturnKeyDown" :>
> FrontEndExecute[{NotebookWrite[InputNotebook[], "\n", After]}]}];