Class.st
changeset 345 cf2301210c47
parent 333 18e7d5971e16
child 355 2d96938a5081
--- 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.