DialogBox.st
changeset 4302 0c7ae65d0d7a
parent 4301 1b9559767efb
child 4307 f7c4d912269c
--- a/DialogBox.st	Thu Aug 18 19:29:06 2011 +0200
+++ b/DialogBox.st	Thu Aug 18 19:29:47 2011 +0200
@@ -4357,19 +4357,7 @@
      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:'' 
-        okLabel:nil 
-        cancelLabel:nil 
-        title:nil 
-        onCancel:nil 
-        list:listOfChoices
-        initialSelection:nil
-        entryCompletionBlock:nil
+    ^ self request:aString list:listOfChoices initialAnswer:''
 
     "
      Dialog 
@@ -4377,7 +4365,7 @@
          list:#('foo' 'bar' 'baz')
     "
 
-    "Modified: 29.5.1996 / 14:26:25 / cg"
+    "Modified: / 18-08-2011 / 19:29:28 / cg"
 !
 
 request:aString list:listOfChoices initialAnswer:initialAnswer
@@ -9605,11 +9593,11 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.315 2011-08-18 17:29:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.316 2011-08-18 17:29:47 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.315 2011-08-18 17:29:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.316 2011-08-18 17:29:47 cg Exp $'
 ! !
 
 DialogBox initialize!