AbortOperationRequest is now a subclass (and child-Exception) of.
authorStefan Vogel <sv@exept.de>
Tue, 11 Jan 2005 18:05:16 +0100
changeset 8675 ceef81bb2d0c
parent 8674 3ec5889b8251
child 8676 7466762d325e
AbortOperationRequest is now a subclass (and child-Exception) of. AbortAllOperationRequest. In the event loop AbortAllOperationRequest is handled, so the child exception AbortOperationRequest will be also catched.
AbortAllOperationRequest.st
AbortOperationRequest.st
Process.st
ProcessorScheduler.st
Smalltalk.st
--- a/AbortAllOperationRequest.st	Tue Jan 11 15:12:19 2005 +0100
+++ b/AbortAllOperationRequest.st	Tue Jan 11 18:05:16 2005 +0100
@@ -58,16 +58,10 @@
     "
 ! !
 
-!AbortAllOperationRequest methodsFor:'default actions'!
-
-defaultAction
-    AbortOperationRequest raise
-! !
-
 !AbortAllOperationRequest class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbortAllOperationRequest.st,v 1.6 2004-04-22 15:37:25 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbortAllOperationRequest.st,v 1.7 2005-01-11 17:04:55 stefan Exp $'
 ! !
 
 AbortAllOperationRequest initialize!
--- a/AbortOperationRequest.st	Tue Jan 11 15:12:19 2005 +0100
+++ b/AbortOperationRequest.st	Tue Jan 11 18:05:16 2005 +0100
@@ -12,7 +12,7 @@
 
 "{ Package: 'stx:libbasic' }"
 
-ControlRequest subclass:#AbortOperationRequest
+AbortAllOperationRequest subclass:#AbortOperationRequest
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -64,7 +64,7 @@
 !AbortOperationRequest class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbortOperationRequest.st,v 1.4 2004-04-22 15:27:57 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbortOperationRequest.st,v 1.5 2005-01-11 17:04:57 stefan Exp $'
 ! !
 
 AbortOperationRequest initialize!
--- a/Process.st	Tue Jan 11 15:12:19 2005 +0100
+++ b/Process.st	Tue Jan 11 18:05:16 2005 +0100
@@ -320,7 +320,7 @@
         RestartSignal notifierString:'unhandled process restart'.
 
         CoughtSignals := SignalSet 
-                            with:AbortOperationRequest 
+                            with:AbortAllOperationRequest 
                             with:TerminateProcessRequest
                             with:RestartProcessRequest.
     ]
@@ -1581,7 +1581,7 @@
 !Process methodsFor:'suspend & resume'!
 
 abort
-    "raise an obortSignal in the receiver process. 
+    "raise an AbortOperationRequest in the receiver process. 
      Most processes willing to handle this will return to some save state 
      (typically, some kind of event loop).
      If not handled, this will result in termination of the process."
@@ -1974,7 +1974,7 @@
 !Process class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.149 2004-09-30 15:07:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.150 2005-01-11 17:05:07 stefan Exp $'
 ! !
 
 Process initialize!
--- a/ProcessorScheduler.st	Tue Jan 11 15:12:19 2005 +0100
+++ b/ProcessorScheduler.st	Tue Jan 11 18:05:16 2005 +0100
@@ -817,7 +817,7 @@
 
     ignoredSignals := SignalSet 
                         with:TerminateProcessRequest
-                        with:AbortOperationRequest.
+                        with:AbortAllOperationRequest.
 
     "/
     "/ I made this an extra call to dispatch; this allows recompilation
@@ -3315,7 +3315,7 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.225 2004-09-28 18:00:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.226 2005-01-11 17:05:11 stefan Exp $'
 ! !
 
 ProcessorScheduler initialize!
--- a/Smalltalk.st	Tue Jan 11 15:12:19 2005 +0100
+++ b/Smalltalk.st	Tue Jan 11 18:05:16 2005 +0100
@@ -2561,7 +2561,7 @@
     Stdin atEnd ifFalse:[
         text := Stdin nextChunk.
         [text notNil] whileTrue:[
-            AbortOperationRequest handle:[:ex |
+            AbortAllOperationRequest handle:[:ex |
                 'evaluation aborted' printCR
             ] do:[
                 Compiler isNil ifTrue:[
@@ -6370,5 +6370,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.660 2004-12-15 11:34:21 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.661 2005-01-11 17:05:16 stefan Exp $'
 ! !