MathGroup Archive 2011

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

Search the Archive

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]}]}];




  • Prev by Date: Re: Wolfram, meet Stefan and Boltzmann
  • Next by Date: Re: Series holding the final sum
  • Previous by thread: Re: New lines in InputField
  • Next by thread: Re: How to swap real and imaginary parts and changing signs using Integrate