# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1328871960 -3600
# Node ID 1f9bcfa5013befcdab622c3fb3e4494295f3fc03
# Parent  b26d2f0915ff5a368d068591e9de86d0cecf7a2d
- added compare against HEAD & compare against BASE
  menu entries in CommitDialog2

diff -r b26d2f0915ff -r 1f9bcfa5013b SVN__WorkingCopy.st
--- 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|