AbstractOperatingSystem.st
changeset 8497 1e6d5f80d91b
parent 8474 f06681e84c85
child 8505 4456ffd20005
--- a/AbstractOperatingSystem.st	Mon Aug 30 17:50:35 2004 +0200
+++ b/AbstractOperatingSystem.st	Mon Aug 30 17:52:49 2004 +0200
@@ -178,25 +178,12 @@
     self initializeConcreteClass.
 
     ErrorSignal isNil ifTrue:[
-	ErrorSignal := Error newSignalMayProceed:true.
-	ErrorSignal nameClass:self message:#errorSignal.
-	ErrorSignal notifierString:'OS error encountered'.
-
-	AccessDeniedErrorSignal := ErrorSignal newSignalMayProceed:true.
-	AccessDeniedErrorSignal nameClass:self message:#accessDeniedError.
-	AccessDeniedErrorSignal notifierString:'OS access denied'.
-
-	FileNotFoundErrorSignal := ErrorSignal newSignalMayProceed:true.
-	FileNotFoundErrorSignal nameClass:self message:#fileNotFoundErrorSignal.
-	FileNotFoundErrorSignal notifierString:'OS file not found'.
-
-	InvalidArgumentsSignal := ErrorSignal newSignalMayProceed:true.
-	InvalidArgumentsSignal nameClass:self message:#invalidArgumentsSignal.
-	InvalidArgumentsSignal notifierString:'bad arg to OS call'.
-
-	UnsupportedOperationSignal := ErrorSignal newSignalMayProceed:true.
-	UnsupportedOperationSignal nameClass:self message:#unsupportedOperationSignal.
-	UnsupportedOperationSignal notifierString:'operation not supported by this OS'.
+        OSErrorHolder initialize.
+        ErrorSignal := OsError.
+        InvalidArgumentsSignal := OsInvalidArgumentsError.
+        AccessDeniedErrorSignal := OSErrorHolder noPermissionsSignal.
+        FileNotFoundErrorSignal := OSErrorHolder nonexistentSignal.
+        UnsupportedOperationSignal := OSErrorHolder unsupportedOperationSignal.
     ].
     Smalltalk addDependent:self.    "/ to catch language changes
 !
@@ -539,7 +526,7 @@
 errorSignal
     "return the parent signal of all OS signals."
 
-    ^ ErrorSignal
+    ^ OsError
 
     "Modified: 22.4.1996 / 13:11:31 / cg"
 !
@@ -5511,7 +5498,7 @@
 !AbstractOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.131 2004-08-13 19:26:17 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.132 2004-08-30 15:52:49 stefan Exp $'
 ! !
 
 AbstractOperatingSystem initialize!