--- a/ChangeSet.st	Mon Nov 27 23:38:19 1995 +0100
+++ b/ChangeSet.st	Sun Dec 03 15:37:30 1995 +0100
@@ -37,10 +37,6 @@
 "
     used in the changes management to keep track of changes
 "
-!
-
-version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.13 1995-11-23 01:54:00 cg Exp $'
 ! !
 
 !ChangeSet class methodsFor:'queries'!
@@ -61,6 +57,25 @@
 
 !ChangeSet methodsFor:'change management'!
 
+addClassCategoryChange:newCategory for:aClass
+    |newChange|
+
+    newChange := ClassCategoryChange class:aClass category:newCategory.
+    self add:newChange
+
+    "Created: 3.12.1995 / 13:45:53 / cg"
+!
+
+addClassDefinitionChangeFor:aClass
+    |newChange|
+
+    newChange := ClassDefinitionChange class:aClass.
+    self add:newChange
+
+    "Created: 3.12.1995 / 13:45:53 / cg"
+    "Modified: 3.12.1995 / 14:05:57 / cg"
+!
+
 addMethodCategoryChange:aMethod category:newCategory in:aClass
     |newChange|
 
@@ -99,3 +114,8 @@
     ^ self
 ! !
 
+!ChangeSet class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.14 1995-12-03 14:37:11 cg Exp $'
+! !

--- a/ClassChange.st	Mon Nov 27 23:38:19 1995 +0100
+++ b/ClassChange.st	Sun Dec 03 15:37:30 1995 +0100
@@ -37,15 +37,30 @@
 "
     Abstract superclass for class related changes
 "
-!
+! !
+
+!ClassChange class methodsFor:'instance creation'!
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.10 1995-11-23 01:54:10 cg Exp $'
+class:aClass
+    ^ self new class:aClass
+
+    "Created: 3.12.1995 / 14:01:32 / cg"
 ! !
 
 !ClassChange methodsFor:'accessing'!
 
+class:aClass
+    className := aClass name.
+
+    "Created: 3.12.1995 / 14:01:45 / cg"
+!
+
 className 
     ^  className
 ! !
 
+!ClassChange class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.11 1995-12-03 14:37:30 cg Exp $'
+! !

--- a/ClassChg.st	Mon Nov 27 23:38:19 1995 +0100
+++ b/ClassChg.st	Sun Dec 03 15:37:30 1995 +0100
@@ -37,15 +37,30 @@
 "
     Abstract superclass for class related changes
 "
-!
+! !
+
+!ClassChange class methodsFor:'instance creation'!
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/ClassChg.st,v 1.10 1995-11-23 01:54:10 cg Exp $'
+class:aClass
+    ^ self new class:aClass
+
+    "Created: 3.12.1995 / 14:01:32 / cg"
 ! !
 
 !ClassChange methodsFor:'accessing'!
 
+class:aClass
+    className := aClass name.
+
+    "Created: 3.12.1995 / 14:01:45 / cg"
+!
+
 className 
     ^  className
 ! !
 
+!ClassChange class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/ClassChg.st,v 1.11 1995-12-03 14:37:30 cg Exp $'
+! !

--- a/ClassDefinitionChange.st	Mon Nov 27 23:38:19 1995 +0100
+++ b/ClassDefinitionChange.st	Sun Dec 03 15:37:30 1995 +0100
@@ -38,17 +38,29 @@
     instances represent class definition-changes. They are typically
     held in a ChangeSet.
 "
-!
+! !
+
+!ClassDefinitionChange methodsFor:'accessing'!
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.11 1995-11-23 01:54:24 cg Exp $'
+class:aClass 
+    className := aClass name.
+    source := aClass definition
+
+    "Created: 3.12.1995 / 14:02:40 / cg"
+    "Modified: 3.12.1995 / 14:06:33 / cg"
 ! !
 
 !ClassDefinitionChange methodsFor:'printing'!
 
 printOn:aStream
-    aStream nextPutAll:'ClassDefinitionChange(';
-	    nextPutAll:className;
-	    nextPutAll:')'
+    aStream nextPutAll:source asCollectionOfLines first.
+
+    "Created: 3.12.1995 / 14:07:09 / cg"
+    "Modified: 3.12.1995 / 14:08:26 / cg"
 ! !
 
+!ClassDefinitionChange class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.12 1995-12-03 14:36:54 cg Exp $'
+! !

--- a/ClsDefChg.st	Mon Nov 27 23:38:19 1995 +0100
+++ b/ClsDefChg.st	Sun Dec 03 15:37:30 1995 +0100
@@ -38,17 +38,29 @@
     instances represent class definition-changes. They are typically
     held in a ChangeSet.
 "
-!
+! !
+
+!ClassDefinitionChange methodsFor:'accessing'!
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/ClsDefChg.st,v 1.11 1995-11-23 01:54:24 cg Exp $'
+class:aClass 
+    className := aClass name.
+    source := aClass definition
+
+    "Created: 3.12.1995 / 14:02:40 / cg"
+    "Modified: 3.12.1995 / 14:06:33 / cg"
 ! !
 
 !ClassDefinitionChange methodsFor:'printing'!
 
 printOn:aStream
-    aStream nextPutAll:'ClassDefinitionChange(';
-	    nextPutAll:className;
-	    nextPutAll:')'
+    aStream nextPutAll:source asCollectionOfLines first.
+
+    "Created: 3.12.1995 / 14:07:09 / cg"
+    "Modified: 3.12.1995 / 14:08:26 / cg"
 ! !
 
+!ClassDefinitionChange class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/ClsDefChg.st,v 1.12 1995-12-03 14:36:54 cg Exp $'
+! !