--- a/DialogBox.st	Tue Sep 17 11:09:32 2002 +0200
+++ b/DialogBox.st	Tue Sep 17 16:45:28 2002 +0200
@@ -1291,6 +1291,20 @@
     "Modified: 14.11.1996 / 16:04:13 / cg"
 !
 
+confirm:aString initialAnswer:what noLabel:noText
+    "launch a Dialog, which allows user to enter yes or no.
+     return true for yes, false for no.
+     InitialAnswer must be true or false and defines which button is to be
+     the default (i.e. return-) button"
+
+    ^ self 
+        confirm:aString 
+        title:nil 
+        yesLabel:nil 
+        noLabel:noText 
+        initialAnswer:what.
+!
+
 confirm:aString noLabel:noText
     "launch a Dialog, which allows user to enter yes or no.
      return true for yes, false for no.
@@ -7539,6 +7553,7 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.194 2002-07-25 16:39:04 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.195 2002-09-17 14:45:28 cg Exp $'
 ! !
+
 DialogBox initialize!