--- a/DialogBox.st	Fri Jul 12 14:39:28 2002 +0200
+++ b/DialogBox.st	Fri Jul 12 14:46:43 2002 +0200
@@ -3136,6 +3136,38 @@
     "Created: 29.5.1996 / 14:59:57 / cg"
 !
 
+request:aString initialAnswer:initial okLabel:okLabel title:titleString list:list
+    "launch a Dialog, which allows user to enter something.
+     Return the entered string (may be empty string) 
+     or cancelValue (if cancel was pressed)"
+
+    ^ self 
+        request:aString 
+        displayAt:nil 
+        centered:(ForceModalBoxesToOpenAtCenter ? false) 
+        action:nil 
+        initialAnswer:initial
+        okLabel:okLabel
+        cancelLabel:nil
+        title:titleString
+        onCancel:nil
+        list:list
+        initialSelection:nil
+        entryCompletionBlock:nil
+
+    "
+     Dialog 
+         request:'Enter or select a string:' 
+         initialAnswer:'the default'  
+         okLabel:'Yes'      
+         title:'Only a Test'      
+         list:#('a' 'b' 'c')      
+    "
+
+    "Modified: 29.5.1996 / 14:28:24 / cg"
+    "Created: 29.5.1996 / 14:59:57 / cg"
+!
+
 request:aString initialAnswer:initial okLabel:okLabel title:titleString onCancel:cancelAction
     "launch a Dialog, which allows user to enter something.
      Return the entered string (may be empty string) 
@@ -7519,6 +7551,6 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.191 2002-07-12 12:39:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.192 2002-07-12 12:46:43 cg Exp $'
 ! !
 DialogBox initialize!