Raise proceedable signals proceedable.
authorStefan Vogel <sv@exept.de>
Mon, 26 Jul 1999 11:03:56 +0200
changeset 4452 3d050f505a0a
parent 4451 ca4d77871c1c
child 4453 721c9dd0e0c6
Raise proceedable signals proceedable.
Object.st
PosStream.st
PositionableStream.st
--- a/Object.st	Mon Jul 26 09:34:08 1999 +0200
+++ b/Object.st	Mon Jul 26 11:03:56 1999 +0200
@@ -3156,9 +3156,10 @@
     "report error that an error occured.
      The error is reported by raising the ErrorSignal exception."
 
-    ^ ErrorSignal raiseIn:thisContext sender
-
-    "Modified: 8.5.1996 / 09:13:01 / cg"
+    ^ ErrorSignal raiseRequestWith:nil in:thisContext sender
+
+    "Modified: / 8.5.1996 / 09:13:01 / cg"
+    "Modified: / 26.7.1999 / 10:56:55 / stefan"
 !
 
 error:aString
@@ -3205,9 +3206,10 @@
     "report an error that no element was found in a collection.
      The error is reported by raising the NotFoundSignal exception."
 
-    ^ NotFoundSignal raiseIn:thisContext sender
-
-    "Modified: 8.5.1996 / 09:13:11 / cg"
+    ^ NotFoundSignal raiseRequestWith:nil in:thisContext sender
+
+    "Modified: / 8.5.1996 / 09:13:11 / cg"
+    "Modified: / 26.7.1999 / 10:51:50 / stefan"
 !
 
 errorSignal
@@ -3222,9 +3224,10 @@
     "enter debugger with halt-message.
      The error is reported by raising the HaltSignal exception."
 
-    ^ HaltSignal raiseIn:thisContext sender.
-
-    "Modified: 8.5.1996 / 09:12:38 / cg"
+    ^ HaltSignal raiseRequestWith:nil in:thisContext sender.
+
+    "Modified: / 8.5.1996 / 09:12:38 / cg"
+    "Modified: / 26.7.1999 / 10:51:01 / stefan"
 !
 
 halt:aString
@@ -3255,9 +3258,10 @@
      (when accessing collections indexed by an integer key).
      The error is reported by raising the NonIntegerIndexSignal exception."
 
-    ^ NonIntegerIndexSignal raiseIn:thisContext sender
-
-    "Modified: 8.5.1996 / 09:13:37 / cg"
+    ^ NonIntegerIndexSignal raiseRequestWith:nil in:thisContext sender
+
+    "Modified: / 8.5.1996 / 09:13:37 / cg"
+    "Modified: / 26.7.1999 / 10:57:43 / stefan"
 !
 
 indexNotInteger:anIndex
@@ -3335,9 +3339,10 @@
     "report an error that some primitive code failed.
      The error is reported by raising the PrimitiveFailureSignal exception."
 
-    ^ PrimitiveFailureSignal raiseIn:(thisContext sender)
-
-    "Modified: 8.5.1996 / 09:14:07 / cg"
+    ^ PrimitiveFailureSignal raiseRequestWith:nil in:(thisContext sender)
+
+    "Modified: / 8.5.1996 / 09:14:07 / cg"
+    "Modified: / 26.7.1999 / 10:58:08 / stefan"
 !
 
 shouldNotImplement
@@ -3369,9 +3374,10 @@
      The error is reported by raising the SubscriptOutOfBoundsSignal exception."
 
     ^ SubscriptOutOfBoundsSignal 
-	raiseIn:thisContext sender
-
-    "Modified: 26.7.1996 / 16:45:42 / cg"
+        raiseRequestWith:nil in:thisContext sender
+
+    "Modified: / 26.7.1996 / 16:45:42 / cg"
+    "Modified: / 26.7.1999 / 10:58:27 / stefan"
 !
 
 subscriptBoundsError:anIndex
@@ -4168,10 +4174,11 @@
      the WindowGroup, when a keyboardEvent for the ctrl-C key is
      processed."
 
-    UserInterruptSignal raiseIn:aContext
-
-    "Created: 18.10.1996 / 20:46:04 / cg"
-    "Modified: 20.10.1996 / 13:06:38 / cg"
+    UserInterruptSignal raiseRequestWith:nil in:aContext
+
+    "Created: / 18.10.1996 / 20:46:04 / cg"
+    "Modified: / 20.10.1996 / 13:06:38 / cg"
+    "Modified: / 26.7.1999 / 10:58:49 / stefan"
 ! !
 
 !Object methodsFor:'message sending'!
@@ -7415,6 +7422,6 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.268 1999-07-15 19:43:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.269 1999-07-26 09:03:12 stefan Exp $'
 ! !
 Object initialize!
--- a/PosStream.st	Mon Jul 26 09:34:08 1999 +0200
+++ b/PosStream.st	Mon Jul 26 11:03:56 1999 +0200
@@ -896,7 +896,9 @@
     "report an error when positioning past the end
      or before the beginning."
 
-    ^ InvalidPositionErrorSignal raiseIn:thisContext sender
+    ^ InvalidPositionErrorSignal raiseRequestWith:nil in:thisContext sender
+
+    "Modified: / 26.7.1999 / 10:59:13 / stefan"
 !
 
 with:aCollection
@@ -983,6 +985,6 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/PosStream.st,v 1.76 1999-07-20 16:00:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/PosStream.st,v 1.77 1999-07-26 09:03:56 stefan Exp $'
 ! !
 PositionableStream initialize!
--- a/PositionableStream.st	Mon Jul 26 09:34:08 1999 +0200
+++ b/PositionableStream.st	Mon Jul 26 11:03:56 1999 +0200
@@ -896,7 +896,9 @@
     "report an error when positioning past the end
      or before the beginning."
 
-    ^ InvalidPositionErrorSignal raiseIn:thisContext sender
+    ^ InvalidPositionErrorSignal raiseRequestWith:nil in:thisContext sender
+
+    "Modified: / 26.7.1999 / 10:59:13 / stefan"
 !
 
 with:aCollection
@@ -983,6 +985,6 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.76 1999-07-20 16:00:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.77 1999-07-26 09:03:56 stefan Exp $'
 ! !
 PositionableStream initialize!