--- 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 $'
+! !