--- a/OsError.st Fri Nov 25 14:51:55 2016 +0100
+++ b/OsError.st Fri Nov 25 14:52:50 2016 +0100
@@ -9,8 +9,9 @@
other person. No title to or ownership of the software is
hereby transferred.
"
+"{ Package: 'stx:libbasic' }"
-"{ Package: 'stx:libbasic' }"
+"{ NameSpace: Smalltalk }"
Error subclass:#OsError
instanceVariableNames:''
@@ -35,14 +36,71 @@
"
! !
+!OsError class methodsFor:'initialization'!
+
+initialize
+ NotifierString := 'OperatingSystem error'.
+! !
+
!OsError class methodsFor:'queries'!
mayProceed
^ true
! !
+!OsError methodsFor:'accessing'!
+
+description
+
+ "parameter is an OSErrorHolder, if present"
+ parameter notNil ifTrue:[
+ ^ parameter description.
+ ].
+ ^ super description.
+
+ "
+ [
+ (OperatingSystem errorHolderForNumber:22)
+ parameter:'bla';
+ reportError.
+ ] on:OsError do:[:ex|
+ ex description inspect.
+ ].
+ "
+!
+
+errorCategory
+
+ "parameter is an OSErrorHolder, if present"
+ parameter notNil ifTrue:[
+ ^ parameter errorCategory.
+ ].
+ ^ ''.
+!
+
+errorString
+
+ "parameter is an OSErrorHolder, if present"
+ parameter notNil ifTrue:[
+ ^ parameter errorString.
+ ].
+ ^ ''.
+!
+
+errorSymbol
+
+ "parameter is an OSErrorHolder, if present"
+ parameter notNil ifTrue:[
+ ^ parameter errorSymbol.
+ ].
+ ^ ''.
+! !
+
!OsError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/OsError.st,v 1.3 2003-08-30 12:31:08 cg Exp $'
+ ^ '$Header$'
! !
+
+
+OsError initialize!