--- a/Class.st Fri May 12 14:35:09 1995 +0200
+++ b/Class.st Tue May 16 19:09:45 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/Class.st,v 1.41 1995-05-02 23:55:45 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Class.st,v 1.42 1995-05-16 17:06:16 claus Exp $
'!
!Class class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/Class.st,v 1.41 1995-05-02 23:55:45 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Class.st,v 1.42 1995-05-16 17:06:16 claus Exp $
"
!
@@ -104,7 +104,7 @@
]
! !
-!Class class methodsFor:'signal access'!
+!Class class methodsFor:'Signal constants'!
fileOutErrorSignal
"return the signal raised when an error occurs while fileing out.
@@ -1648,20 +1648,20 @@
line := line , s , name.
aStream nextPutAll:line.
- aStream crTab.
+ aStream crtab.
aStream nextPutAll:' instanceVariableNames:'''.
self printInstVarNamesOn:aStream indent:16.
aStream nextPutAll:''''.
- aStream crTab.
+ aStream crtab.
aStream nextPutAll:' classVariableNames:'''.
self printClassVarNamesOn:aStream indent:16.
aStream nextPutAll:''''.
- aStream crTab.
+ aStream crtab.
aStream nextPutAll:' poolDictionaries:'''''.
- aStream crTab.
+ aStream crtab.
aStream nextPutAll:' category:'.
category isNil ifTrue:[
s := ''''''
@@ -2427,7 +2427,7 @@
stream nextNumber:4 put:self signature.
"
- output the intstance variable name string
+ output the instance variable name string
"
varnames := self allInstVarNames.
n := varnames size.