#DOCUMENTATION by stefan
authorStefan Vogel <sv@exept.de>
Thu, 24 Nov 2016 16:16:04 +0100
changeset 21033 c31725b2b658
parent 21032 499174d72844
child 21034 a5700813414f
#DOCUMENTATION by stefan class: PeekableStream new: #isAbstract
PeekableStream.st
--- a/PeekableStream.st	Thu Nov 24 16:15:29 2016 +0100
+++ b/PeekableStream.st	Thu Nov 24 16:16:04 2016 +0100
@@ -125,6 +125,12 @@
     "Modified: / 23-10-2006 / 16:33:40 / cg"
 ! !
 
+!PeekableStream class methodsFor:'testing'!
+
+isAbstract
+    ^ self == PeekableStream
+! !
+
 !PeekableStream methodsFor:'chunk input/output'!
 
 nextChunk