SHARE
TWEET

Mathematica

a guest Jun 15th, 2013 37 Never
  1. DynamicModule[{data = "some\ndata"}, EventHandler[
  2.   Framed[Pane[
  3.     InputField[Dynamic[data], String, ContinuousAction -> True,
  4.      Appearance -> None, FieldSize -> {30, {1, Infinity}}],
  5.     ImageSize -> {400, 100}, ImageMargins -> 0,
  6.     AppearanceElements -> {}, FrameMargins -> {{0, 0}, {0, 0}},
  7.     Scrollbars -> {True, True}], Background -> White,
  8.    FrameMargins -> 0, FrameStyle -> Gray]
  9.   , {
  10.    "ReturnKeyDown" :>
  11.     FrontEndExecute[{NotebookWrite[InputNotebook[], "\n", After]}]
  12.    }]]
RAW Paste Data
Top