--- a/SVN__WorkingCopy.st Fri Feb 10 12:05:50 2012 +0100
+++ b/SVN__WorkingCopy.st Fri Feb 10 12:06:00 2012 +0100
@@ -323,6 +323,17 @@
"Modified: / 07-07-2011 / 21:47:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
+changeSetForContainer: containerName revision: rev
+ | containerContents |
+
+ containerContents := self cat: containerName revision: rev.
+ ^(ChangeSet fromStream: containerContents readStream)
+ name: containerName , ' (' , rev printString , ')';
+ yourself
+
+ "Created: / 10-02-2012 / 09:57:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
changeSetForUpdate
|diffSet classesToRemove|