# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1375085389 -7200
# Node ID 72b82922f0f245fcb07af0f0ff5c1907aec18a18
# Parent  6fb716a3ebf5611540819830948f55807de56021
class: StreamError
added: #errorCategory

diff -r 6fb716a3ebf5 -r 72b82922f0f2 StreamError.st
--- a/StreamError.st	Mon Jul 29 10:30:20 2013 +0000
+++ b/StreamError.st	Mon Jul 29 10:09:49 2013 +0200
@@ -42,6 +42,19 @@
 
 !StreamError methodsFor:'accessing'!
 
+errorCategory
+    "return the generi OS independent error category.
+     return #unknown, if this is not an OS error"
+
+    |holder|
+
+    holder := self osErrorHolder.
+    holder isNil ifTrue:[
+        ^ #unknown
+    ].
+    ^ holder errorCategory.
+!
+
 errorCode
     ^ errorCode
 !
@@ -67,10 +80,10 @@
 !StreamError class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/StreamError.st,v 1.8 2013-07-09 11:57:15 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StreamError.st,v 1.9 2013-07-29 08:09:49 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/StreamError.st,v 1.8 2013-07-09 11:57:15 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StreamError.st,v 1.9 2013-07-29 08:09:49 stefan Exp $'
 ! !