--- a/DialogBox.st	Thu Mar 18 12:22:06 2010 +0100
+++ b/DialogBox.st	Thu Mar 18 12:33:18 2010 +0100
@@ -4192,6 +4192,30 @@
     "Created: 17.11.1995 / 09:45:21 / cg"
 !
 
+requestText:title
+    "open a dialog asking for multiline text.
+     Return a stringCollection or nil if cancelled."
+
+    ^ self 
+        requestText:title lines:10 columns:40 initialAnswer:''
+
+    "
+     Dialog requestText:'Bla'
+    "
+!
+
+requestText:title initialAnswer:initialAnswer
+    "open a dialog asking for multiline text.
+     Return a stringCollection or nil if cancelled."
+
+    ^ self 
+        requestText:title lines:10 columns:40 initialAnswer:initialAnswer
+
+    "
+     Dialog requestText:'Bla' initialAnswer:'Hello world'
+    "
+!
+
 requestText:title lines:numLines columns:numCols initialAnswer:initialText
     "open a dialog asking for multiline text.
      Return a stringCollection or nil if cancelled."
@@ -9002,11 +9026,11 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.295 2010-02-24 13:07:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.296 2010-03-18 11:33:18 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.295 2010-02-24 13:07:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.296 2010-03-18 11:33:18 cg Exp $'
 ! !
 
 DialogBox initialize!