--- a/PositionableStream.st	Wed Jul 31 21:26:11 2002 +0200
+++ b/PositionableStream.st	Wed Jul 31 21:46:46 2002 +0200
@@ -347,6 +347,10 @@
           labels := #('Cancel' 'Skip' 'Debug' 'Continue').
           values := #(#abort #skip #debug #continue).
     ].
+    AbortAllSignal isHandled ifTrue:[
+      labels := #('Cancel All') , labels.
+      values := #(#cancelAll) , values.
+    ].
 
     ^ OptionBox 
           request:message 
@@ -753,6 +757,10 @@
             AbortSignal raise.
             ex return
         ].
+        action == #cancelAll ifTrue:[
+            AbortAllSignal raise.
+            ex return
+        ].
         action == #skip ifTrue:[
             ex proceedWith:nil
         ].
@@ -1121,6 +1129,6 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.112 2002-07-15 09:28:50 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.113 2002-07-31 19:46:46 cg Exp $'
 ! !
 PositionableStream initialize!