Pastebin launched a little side project called HostCabi.net, check it out ;-)Don't like ads? PRO users don't see any ads ;-)
Guest

Mathematica

By: a guest on Jun 15th, 2013  |  syntax: None  |  size: 0.50 KB  |  hits: 33  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  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.    }]]