FilteringLineStream.st
changeset 2787 a0285176d2b6
parent 2377 2c8db8ee1b58
child 3437 1e3c96378a00
--- a/FilteringLineStream.st	Mon Aug 06 08:11:03 2012 +0200
+++ b/FilteringLineStream.st	Mon Aug 06 08:22:00 2012 +0200
@@ -217,14 +217,22 @@
     lineFilter := aBlock
 
     "Created: 11.1.1997 / 16:13:25 / cg"
+!
+
+size
+    "mhmh - please use isEmpty; anything else is unknown"
+
+    self error:'size of input is unknown (due to filtering)'
+
+    "Created: / 06-08-2012 / 08:21:12 / cg"
 ! !
 
 !FilteringLineStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/FilteringLineStream.st,v 1.7 2009-12-11 09:23:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/FilteringLineStream.st,v 1.8 2012-08-06 06:22:00 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/FilteringLineStream.st,v 1.7 2009-12-11 09:23:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/FilteringLineStream.st,v 1.8 2012-08-06 06:22:00 cg Exp $'
 ! !