isOpenError, isStreamError and isError queries added
authorClaus Gittinger <cg@exept.de>
Thu, 04 Mar 2004 17:39:05 +0100
changeset 8065 23355398af34
parent 8064 081bff3d87a4
child 8066 0dbcbe8989b8
isOpenError, isStreamError and isError queries added
Error.st
GenericException.st
StreamError.st
--- a/Error.st	Thu Mar 04 17:38:34 2004 +0100
+++ b/Error.st	Thu Mar 04 17:39:05 2004 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1999 by eXept Software AG
               All Rights Reserved
@@ -70,10 +72,16 @@
     "Modified: / 23.7.1999 / 14:52:39 / stefan"
 ! !
 
+!Error methodsFor:'testing'!
+
+isError
+    ^ true
+! !
+
 !Error class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Error.st,v 1.7 2003-08-29 19:15:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Error.st,v 1.8 2004-03-04 16:39:05 cg Exp $'
 ! !
 
 Error initialize!
--- a/GenericException.st	Thu Mar 04 17:38:34 2004 +0100
+++ b/GenericException.st	Thu Mar 04 17:39:05 2004 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
               All Rights Reserved
@@ -2310,16 +2312,28 @@
 
 !GenericException methodsFor:'testing'!
 
+isError
+    ^ false
+!
+
 isException
     ^ true
 
     "Created: / 17.11.2001 / 18:37:27 / cg"
+!
+
+isOpenError
+    ^ false
+!
+
+isStreamError
+    ^ false
 ! !
 
 !GenericException class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.82 2003-12-12 19:38:23 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.83 2004-03-04 16:38:57 cg Exp $'
 ! !
 
 GenericException initialize!
--- a/StreamError.st	Thu Mar 04 17:38:34 2004 +0100
+++ b/StreamError.st	Thu Mar 04 17:39:05 2004 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2001 by eXept Software AG
               All Rights Reserved
@@ -41,8 +43,14 @@
 "
 ! !
 
+!StreamError methodsFor:'testing'!
+
+isStreamError
+    ^ true
+! !
+
 !StreamError class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/StreamError.st,v 1.4 2003-08-29 19:15:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StreamError.st,v 1.5 2004-03-04 16:39:02 cg Exp $'
 ! !