--- a/PositionableStream.st Wed May 30 16:13:53 2007 +0200
+++ b/PositionableStream.st Wed May 30 16:14:06 2007 +0200
@@ -616,6 +616,14 @@
^ readLimit == 0
!
+isInternalByteStream
+ "return true, if the stream is an internal stream reading bytes"
+
+ ^ collection class isBytes
+
+ "Created: / 30-05-2007 / 16:16:12 / cg"
+!
+
isPositionable
"return true, if the stream supports positioning (this one is)"
@@ -625,7 +633,7 @@
!PositionableStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.149 2007-01-24 16:22:41 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.150 2007-05-30 14:14:06 cg Exp $'
! !
PositionableStream initialize!