Is there a simple way to get this to work?
text = "";
DialogInput[{TextCell["Try to type a text with linebreaks :-)"],
InputField[Dynamic[text], String],
Button["Ok", DialogReturn[text]]}]
The problem is that InputField terminates after typing Return. I just want a simple text input field.