--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/CompositeChange.st	Wed Sep 23 19:03:44 2009 +0200
@@ -0,0 +1,77 @@
+"{ Package: 'cvut:stx/goodies/libtool3' }"
+
+Change subclass:#CompositeChange
+	instanceVariableNames:'name changes'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'System-Changes'
+!
+
+!CompositeChange class methodsFor:'documentation'!
+
+version_SVN
+    ^'$Id: CompositeChange.st,v 1.1 2009-09-23 17:03:44 fm Exp $'
+! !
+
+!CompositeChange class methodsFor:'instance creation'!
+
+name: aString changes: aChangeSet
+
+    ^self new
+        name: aString;
+        changes: aChangeSet;
+        yourself.
+
+    "Created: / 25-07-2009 / 19:36:40 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
+!CompositeChange methodsFor:'accessing'!
+
+changes
+    ^ changes
+!
+
+changes:aChangeSet
+    changes := aChangeSet.
+!
+
+name
+    ^ name
+!
+
+name:aString
+    name := aString.
+! !
+
+!CompositeChange methodsFor:'applying'!
+
+apply
+
+    changes apply
+
+    "Modified: / 25-07-2009 / 19:41:35 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
+!CompositeChange methodsFor:'printing & storing'!
+
+printOn: aStream
+
+    ^name printOn: aStream
+
+    "Created: / 25-07-2009 / 19:44:25 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
+!CompositeChange methodsFor:'queries'!
+
+isCompositeChange
+
+    ^true
+
+    "Created: / 25-07-2009 / 23:17:51 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
+!CompositeChange class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/CompositeChange.st,v 1.1 2009-09-23 17:03:44 fm Exp $'
+! !