# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1028144806 -7200
# Node ID 3a8b14a9c51a88f4c0a613563e7d2ea0dbdada96
# Parent  be8668e8a87e408c2756d13a83e341b4c09e1a70
offer cancelAll in fileIn (if AbortAllSignal is handled)

diff -r be8668e8a87e -r 3a8b14a9c51a PositionableStream.st
--- 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!