--- a/DialogBox.st	Tue Aug 16 18:19:05 2011 +0200
+++ b/DialogBox.st	Thu Aug 18 19:29:06 2011 +0200
@@ -4380,6 +4380,37 @@
     "Modified: 29.5.1996 / 14:26:25 / cg"
 !
 
+request:aString list:listOfChoices initialAnswer:initialAnswer
+    "launch a Dialog, which allows user to enter something,
+     but adds a list of choices for fast input.
+     Return the entered string (may be empty string) 
+     or the empty string (if cancel was pressed)"
+
+    ^ self 
+        request:aString 
+        displayAt:nil 
+        centered:(ForceModalBoxesToOpenAtCenter ? false) 
+        action:nil 
+        initialAnswer:initialAnswer 
+        okLabel:nil 
+        cancelLabel:nil 
+        title:nil 
+        onCancel:nil 
+        list:listOfChoices
+        initialSelection:nil
+        entryCompletionBlock:nil
+
+    "
+     Dialog 
+         request:'Enter a string:'
+         list:#('foo' 'bar' 'baz')
+         initialAnswer:'foe'   
+    "
+
+    "Modified: / 29-05-1996 / 14:26:25 / cg"
+    "Created: / 18-08-2011 / 19:28:13 / cg"
+!
+
 request:aString okLabel:okLabel
     "launch a Dialog, which allows user to enter something.
      The okButton is labelled as okLabel.
@@ -9574,11 +9605,11 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.314 2011-07-29 10:32:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.315 2011-08-18 17:29:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.314 2011-07-29 10:32:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.315 2011-08-18 17:29:06 cg Exp $'
 ! !
 
 DialogBox initialize!