*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 11 Dec 2001 18:45:19 +0100
changeset 6294 ed57cb59db27
parent 6293 e73c204b9f1e
child 6295 8cd84857b5bb
*** empty log message ***
OSErrorHolder.st
--- a/OSErrorHolder.st	Tue Dec 11 18:43:56 2001 +0100
+++ b/OSErrorHolder.st	Tue Dec 11 18:45:19 2001 +0100
@@ -65,6 +65,14 @@
 "
 ! !
 
+!OSErrorHolder class methodsFor:'Signal constants'!
+
+invalidArgumentsSignal
+    "return the signal for invalid arguments (e.g. right class, wrong value)."
+
+    ^ OsInvalidArgumentsError
+! !
+
 !OSErrorHolder class methodsFor:'accessing'!
 
 errorSignal
@@ -73,12 +81,6 @@
     "Created: 25.1.1997 / 18:07:55 / cg"
 !
 
-invalidArgumentsSignal
-    ^ OperatingSystem invalidArgumentsSignal
-
-    "Created: 13.9.1997 / 10:48:21 / cg"
-!
-
 peerFaultSignal
     ^ OperatingSystem errorSignal
 
@@ -194,6 +196,17 @@
     errorCategory := typ.
 ! !
 
+!OSErrorHolder methodsFor:'error reporting'!
+
+reportError
+    "Report an error."
+    "Delegate to the receiver's error reporter."
+
+    (self class perform:errorCategory) raiseWith:self.
+self halt.
+"/    ^ self errorReporter reportOn:self
+! !
+
 !OSErrorHolder methodsFor:'others'!
 
 errorString