--- a/DialogBox.st	Thu Aug 24 11:24:48 2006 +0200
+++ b/DialogBox.st	Thu Aug 24 11:36:16 2006 +0200
@@ -1482,6 +1482,22 @@
     "
 !
 
+confirm:msg withCancel:aBoolean default:default
+    "launch a Dialog, which allows user to enter yes, no and optionally: cancel.
+     return true for 'yes', false for 'no', nil for 'cancel'"
+
+    aBoolean ifTrue:[
+        ^ Dialog confirmWithCancel:msg default:default.
+    ] ifFalse:[
+        ^ Dialog confirm:msg default:default.
+    ].
+
+    "
+     Dialog confirm:'really ?' withCancel:false 
+     Dialog confirm:'really ?' withCancel:true 
+    "
+!
+
 confirm:aString yesLabel:yesText noLabel:noText
     "launch a Dialog, which allows user to enter yes or no.
      return true for yes, false for no.
@@ -8212,7 +8228,7 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.250 2006-08-24 09:24:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.251 2006-08-24 09:36:16 cg Exp $'
 ! !
 
 DialogBox initialize!