diff -r 32585822527b -r 66bb97f4e41f Class.st --- a/Class.st Sun Aug 13 22:48:41 1995 +0200 +++ b/Class.st Tue Aug 15 20:55:40 1995 +0200 @@ -22,7 +22,7 @@ COPYRIGHT (c) 1989 by Claus Gittinger All Rights Reserved -$Header: /cvs/stx/stx/libbasic/Class.st,v 1.51 1995-08-11 03:11:55 claus Exp $ +$Header: /cvs/stx/stx/libbasic/Class.st,v 1.52 1995-08-15 18:54:02 claus Exp $ '! !Class class methodsFor:'documentation'! @@ -43,7 +43,7 @@ version " -$Header: /cvs/stx/stx/libbasic/Class.st,v 1.51 1995-08-11 03:11:55 claus Exp $ +$Header: /cvs/stx/stx/libbasic/Class.st,v 1.52 1995-08-15 18:54:02 claus Exp $ " ! @@ -75,7 +75,7 @@ package the package, in which the class was defined (inserted by compilers) - revision revision string - inserted by stc + revision revision string - inserted by stc history a place for a history string (not currently used) @@ -834,14 +834,14 @@ Smalltalk removeKey:(self name , ':' , aName) asSymbol. ]. any ifTrue:[ - Smalltalk changed:#classVariables - ] + Smalltalk changed:#classVariables with:self + ]. ] ! addClassVarName:aString "add a class variable if not already there and initialize it with nil. - Also write a change record and notify dependents. + Also writes a change record and notifies dependents. BUG: Currently, no recompilation is done - this will change." (self classVarNames includes:aString) ifFalse:[ @@ -853,7 +853,7 @@ removeClassVarName:aString "remove a class variable if not already there. - Also write a change record and notify dependents. + Also writes a change record and notifies dependents. BUG: Currently, no recompilation is done - this will change." |names newNames| @@ -870,7 +870,7 @@ renameCategory:oldCategory to:newCategory "rename a category (changes category of those methods). - Append a change record and notifies dependents." + Appends a change record and notifies dependents." |any|