--- a/Scanner.st Sat Oct 24 13:01:10 1998 +0200
+++ b/Scanner.st Fri Oct 30 13:16:36 1998 +0100
@@ -492,6 +492,13 @@
"Modified: 23.5.1997 / 12:14:45 / cg"
!
+newSourceStream:aStream
+ source := aStream.
+ self nextToken.
+
+ "Created: / 29.10.1998 / 21:59:33 / cg"
+!
+
saveComments:aBoolean
"not yet implemented"
@@ -1884,6 +1891,6 @@
!Scanner class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.88 1998-10-22 20:22:46 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.89 1998-10-30 12:16:36 cg Exp $'
! !
Scanner initialize!