--- a/AbortAllOperationRequest.st	Wed Feb 09 11:46:16 2011 +0100
+++ b/AbortAllOperationRequest.st	Wed Feb 09 13:59:00 2011 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic' }"
 
 ControlRequest subclass:#AbortAllOperationRequest
@@ -58,10 +57,39 @@
     "
 ! !
 
+!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
-    ^ '$Header: /cvs/stx/stx/libbasic/AbortAllOperationRequest.st,v 1.7 2005-01-11 17:04:55 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbortAllOperationRequest.st,v 1.8 2011-02-09 12:59:00 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic/AbortAllOperationRequest.st,v 1.8 2011-02-09 12:59:00 cg Exp $'
 ! !
 
 AbortAllOperationRequest initialize!