--- a/ExternalStream.st Thu Feb 10 12:30:47 2011 +0100
+++ b/ExternalStream.st Tue Feb 15 11:04:34 2011 +0100
@@ -1948,9 +1948,10 @@
|elementSize n|
elementSize := aContainer class elementByteSize.
- n := self nextBytes:nElements*elementSize into:aContainer startingAt:1.
+ n := self nextBytes:nElements*elementSize into:aContainer startingAt:index.
^ n // elementSize
+ "Modified: / 15-02-2011 / 11:04:22 / cg"
!
readOnly
@@ -5691,11 +5692,11 @@
!ExternalStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.341 2010-04-12 19:27:17 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.342 2011-02-15 10:04:34 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.341 2010-04-12 19:27:17 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.342 2011-02-15 10:04:34 cg Exp $'
! !
ExternalStream initialize!