--- a/DialogBox.st Tue Aug 19 17:03:04 2003 +0200
+++ b/DialogBox.st Tue Aug 19 18:38:41 2003 +0200
@@ -1534,6 +1534,23 @@
"
!
+confirmWithCancel:aString default:defaultValue onCancel:cancelValue
+ "launch a Dialog, which allows user to enter yes, no and cancel.
+ return true for 'yes', false for 'no', cancelValues value for 'cancel'"
+
+ |answer|
+
+ answer := self confirmWithCancel:aString default:defaultValue.
+ answer isNil ifTrue:[
+ ^ cancelValue value
+ ].
+ ^ answer
+
+ "
+ Dialog confirmWithCancel:'really ?' onCancel:[AbortSignal raise]
+ "
+!
+
confirmWithCancel:aString labels:labelArray
"launch a Dialog, which allows user to enter cancel, no or yes.
Return true for 'yes', false for 'no', nil for 'cancel'.
@@ -7794,7 +7811,7 @@
!DialogBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.219 2003-08-19 15:03:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.220 2003-08-19 16:38:41 cg Exp $'
! !
DialogBox initialize!