--- a/FilteringStream.st Thu Jan 25 15:32:31 2001 +0100
+++ b/FilteringStream.st Thu Feb 01 14:32:24 2001 +0100
@@ -432,10 +432,22 @@
^ inputStream contentsSpecies
"Created: 11.1.1997 / 16:23:22 / cg"
+!
+
+position
+ "return the receiver streams position"
+
+ |rawPosition|
+
+ rawPosition := inputStream position.
+ readAhead notNil ifTrue:[
+ rawPosition := rawPosition - 1
+ ].
+ ^ rawPosition
! !
!FilteringStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/FilteringStream.st,v 1.7 2000-05-22 11:11:30 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/FilteringStream.st,v 1.8 2001-02-01 13:32:24 cg Exp $'
! !