Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 13 Dec 2001 19:53:43 +0100
changeset 6313 30374121d853
parent 6312 1372aa10a130
child 6314 e1aad938d629
*** empty log message ***
Stream.st file | annotate | diff | comparison | revisions 
--- a/Stream.st	Thu Dec 13 19:19:29 2001 +0100
+++ b/Stream.st	Thu Dec 13 19:53:43 2001 +0100
@@ -98,9 +98,14 @@
     StreamErrorSignal := StreamError.
     StreamErrorSignal notifierString:'Stream error'.
 
-    PositionErrorSignal := StreamErrorSignal newSignalMayProceed:true.
-    PositionErrorSignal nameClass:self message:#positionErrorSignal.
-    PositionErrorSignal notifierString:'stream has no concept of a position'.
+"/    PositionErrorSignal := StreamErrorSignal newSignalMayProceed:true.
+"/    PositionErrorSignal nameClass:self message:#positionErrorSignal.
+    PositionErrorSignal := PositionOutOfBoundsError.
+    PositionErrorSignal notifierString:'position out of bounds: '.
+
+    "/ NotPositionableErrorSignal := PositionErrorSignal newSignalMayProceed:true.
+    "/ NotPositionableErrorSignal nameClass:self message:#notPositionableErrorSignal.
+    "/ NotPositionableErrorSignal notifierString:'stream has no concept of a position'.
 
     ReadErrorSignal := StreamErrorSignal newSignalMayProceed:true.
     ReadErrorSignal nameClass:self message:#readErrorSignal.
@@ -2235,6 +2240,6 @@
 !Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.96 2001-09-07 19:26:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.97 2001-12-13 18:53:43 cg Exp $'
 ! !
 Stream initialize!
hg/stx-libbasic