--- a/Class.st Tue Feb 01 21:26:23 2000 +0100
+++ b/Class.st Tue Feb 01 22:52:44 2000 +0100
@@ -2771,6 +2771,9 @@
"append a class-comment-record to aStream"
aClass fileOutCommentOn:aStream.
+ Project notNil ifTrue:[
+ Project addClassCommentChangeFor:aClass
+ ]
"Modified: 4.3.1996 / 16:49:08 / cg"
!
@@ -2778,10 +2781,14 @@
addChangeRecordForClassInstvars:aClass to:aStream
"{ Pragma: +optSpace }"
- "append a class-instvars-record to aStream"
+ "append an instvars-record to aStream"
aClass fileOutClassInstVarDefinitionOn:aStream withNameSpace:true.
aStream nextPutChunkSeparator.
+ Project notNil ifTrue:[
+ Project addInstVarDefinitionChangeFor:aClass class
+ ]
+
!
addChangeRecordForClassRemove:oldName to:aStream
@@ -4048,5 +4055,5 @@
!Class class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.363 2000-01-17 11:25:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.364 2000-02-01 21:52:44 cg Exp $'
! !