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.
added ZeroPosition;
authorClaus Gittinger <cg@exept.de>
Mon, 19 Jul 1999 18:32:39 +0200
changeset 4406 f78222b250b2
parent 4405 247058206089
child 4407 413565318bec
added ZeroPosition;
WriteStr.st file | annotate | diff | comparison | revisions
WriteStream.st file | annotate | diff | comparison | revisions 
--- a/WriteStr.st	Mon Jul 19 18:31:48 1999 +0200
+++ b/WriteStr.st	Mon Jul 19 18:32:39 1999 +0200
@@ -137,7 +137,7 @@
 position:index
     "redefined to allow positioning past the readLimit"
 
-    ((index > (collection size + 1)) or:[index < 0]) ifTrue: [^ self positionError].
+    ((index > (collection size + 1)) or:[index < ZeroPosition]) ifTrue: [^ self positionError].
     position := index
 ! !
 
@@ -416,5 +416,5 @@
 !WriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/WriteStr.st,v 1.41 1997-11-11 14:04:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/WriteStr.st,v 1.42 1999-07-19 16:32:39 cg Exp $'
 ! !
--- a/WriteStream.st	Mon Jul 19 18:31:48 1999 +0200
+++ b/WriteStream.st	Mon Jul 19 18:32:39 1999 +0200
@@ -137,7 +137,7 @@
 position:index
     "redefined to allow positioning past the readLimit"
 
-    ((index > (collection size + 1)) or:[index < 0]) ifTrue: [^ self positionError].
+    ((index > (collection size + 1)) or:[index < ZeroPosition]) ifTrue: [^ self positionError].
     position := index
 ! !
 
@@ -416,5 +416,5 @@
 !WriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.41 1997-11-11 14:04:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.42 1999-07-19 16:32:39 cg Exp $'
 ! !
hg/stx-libbasic