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.
--- 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 $'
! !