--- a/AbortAllOperationRequest.st Wed Apr 06 13:25:19 2011 +0100
+++ b/AbortAllOperationRequest.st Sat Apr 09 18:19:04 2011 +0100
@@ -57,14 +57,44 @@
"
! !
+!AbortAllOperationRequest class methodsFor:'special handling'!
+
+handleAndAnswerQueryIn:aBlock
+ "evaluate aBlock, and return immediately, if the AbortAllRequest is raised.
+ Answer any query if AllOperationWanted with true."
+
+ self handle:[:ex |
+ ] do:[
+ AbortAllOperationWantedQuery
+ answer:true
+ do:aBlock
+ ].
+
+ "
+ AbortAllOperationRequest handleAndAnswerQueryIn:[
+ AbortAllOperationWantedQuery query ifTrue:[
+ self halt.
+ AbortAllOperationRequest raise.
+ ].
+ ].
+ "
+
+ "Created: / 09-02-2011 / 13:58:01 / cg"
+! !
+
!AbortAllOperationRequest class methodsFor:'documentation'!
version
- ^ '$Id: AbortAllOperationRequest.st 10517 2010-04-26 18:26:38Z vranyj1 $'
+ ^ '$Id: AbortAllOperationRequest.st 10632 2011-04-09 17:19:04Z vranyj1 $'
!
version_SVN
- ^ '$Id: AbortAllOperationRequest.st 10517 2010-04-26 18:26:38Z vranyj1 $'
+ ^ '$Id: AbortAllOperationRequest.st 10632 2011-04-09 17:19:04Z vranyj1 $'
+!
+
+version_CVS
+ ^ 'Header: /var/local/cvs/stx/libbasic/AbortAllOperationRequest.st,v 1.8 2011-02-09 12:59:00 cg Exp '
! !
AbortAllOperationRequest initialize!
+