--- a/MCReader.st Sat Aug 20 13:45:55 2011 +0200
+++ b/MCReader.st Sat Aug 20 13:46:00 2011 +0200
@@ -10,17 +10,13 @@
!MCReader class methodsFor:'instance creation'!
-new
- ^ self basicNew initialize
-!
-
on: aStream
^ self new stream: aStream
!
on: aStream name: aFileName
| class |
- class _ self readerClassForFileNamed: aFileName.
+ class := self readerClassForFileNamed: aFileName.
^ class
ifNil: [self error: 'Unsupported format: ', aFileName]
ifNotNil: [class on: aStream]
@@ -49,16 +45,19 @@
!MCReader methodsFor:'accessing'!
stream: aStream
- stream _ aStream
-! !
-
-!MCReader methodsFor:'lifecycle'!
-
-initialize
+ stream := aStream
! !
!MCReader class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCReader.st,v 1.1 2006-11-22 13:05:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCReader.st,v 1.2 2011-08-20 11:46:00 cg Exp $'
+!
+
+version_CVS
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCReader.st,v 1.2 2011-08-20 11:46:00 cg Exp $'
+!
+
+version_SVN
+ ^ '§Id: MCReader.st 5 2010-08-29 07:30:29Z vranyj1 §'
! !