--- a/ClassCategoryReader.st Wed Oct 15 14:30:19 1997 +0200
+++ b/ClassCategoryReader.st Wed Oct 15 14:30:30 1997 +0200
@@ -10,6 +10,8 @@
hereby transferred.
"
+'From Smalltalk/X, Version:3.2.1 on 14-oct-1997 at 11:17:15 pm' !
+
Object subclass:#ClassCategoryReader
instanceVariableNames:'myClass myCategory privacy ignore primSpec'
classVariableNames:'KeepSource SourceMode SkipUnchangedMethods'
@@ -186,7 +188,7 @@
errors and notifications are passed to requestor.
If passChunk is true, chunks are given to the requestor,
via a #source: message, allowing it to open a view showing any
- arronous source code.
+ erronous source code.
If oneChunkOnly is true, the fileIn is finished after the first chunk."
|aString done method compiler canMakeSourceRef sourceFile pos nm src s|
@@ -223,9 +225,9 @@
"/
"/ only do it, if the sourceFiles name
"/ ends with '.st'
- "/ this prevents methods to reference the changes file.
+ "/ this prevents methods from referencing the changes file.
"/
- (sourceFile endsWith:'.st') ifTrue:[
+ (sourceFile asFilename hasSuffix:'st') ifTrue:[
canMakeSourceRef := true.
SourceMode == #absReference ifFalse:[
@@ -247,7 +249,7 @@
pos := aStream position
].
aString := aStream nextChunk.
- done := aString isNil or:[aString isEmpty].
+ done := aString size == 0.
done ifFalse:[
primSpec notNil ifTrue:[
ignore ifFalse:[
@@ -330,7 +332,7 @@
"Modified: 9.9.1995 / 15:29:08 / claus"
"Created: 5.9.1996 / 17:45:45 / cg"
- "Modified: 14.2.1997 / 18:27:15 / cg"
+ "Modified: 14.10.1997 / 16:15:38 / cg"
! !
!ClassCategoryReader methodsFor:'private'!
@@ -370,6 +372,6 @@
!ClassCategoryReader class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.34 1997-02-14 17:28:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.35 1997-10-15 12:30:30 cg Exp $'
! !
ClassCategoryReader initialize!