--- a/ChangeSetDiffSet.st	Wed Jan 16 11:55:57 2013 +0000
+++ b/ChangeSetDiffSet.st	Thu Jan 17 17:02:15 2013 +0000
@@ -125,6 +125,44 @@
     name := aString.
 !
 
+nextEntryAfter: entry suchThat: predicate
+    | found |
+
+    entry isNil ifTrue:[ 
+        self do:[:each|(predicate value: each) ifTrue:[^each]].
+        ^nil
+    ].
+
+    found := false.
+    self do:[:each|
+        each == entry ifTrue:[
+            found := true
+        ] ifFalse:[
+            (found and:[predicate value: each]) ifTrue:[ ^ each ]
+        ].
+    ].
+    ^nil
+
+    "Created: / 17-01-2013 / 13:00:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 17-01-2013 / 16:55:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+nextEntryBefore: entry suchThat: predicate
+    | last |
+
+    entry isNil ifTrue:[ 
+        ^nil
+    ].
+
+    self do:[:each|
+        each == entry ifTrue:[ ^ last ].
+        (predicate value: each) ifTrue:[last := each].
+    ].
+    ^nil
+
+    "Created: / 17-01-2013 / 16:57:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 resolution
     | changeset |
 
@@ -239,6 +277,15 @@
     diffs do:[:diff|diff flattenOn: stream]
 
     "Created: / 05-12-2009 / 11:07:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+sort:sortBlock
+    "superclass ChangeSetDiffComponent says that I am responsible to implement this method"
+
+    diffs sort: sortBlock.
+    diffs do:[:e|e sort: sortBlock].
+
+    "Modified: / 17-01-2013 / 14:18:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ChangeSetDiffSet methodsFor:'testing'!
@@ -290,9 +337,9 @@
 !ChangeSetDiffSet class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ChangeSetDiffSet.st 1985 2013-01-16 11:55:57Z vranyj1 $'
+    ^ '$Id: ChangeSetDiffSet.st 1986 2013-01-17 17:02:15Z vranyj1 $'
 !
 
 version_SVN
-    ^ '$Id: ChangeSetDiffSet.st 1985 2013-01-16 11:55:57Z vranyj1 $'
+    ^ '$Id: ChangeSetDiffSet.st 1986 2013-01-17 17:02:15Z vranyj1 $'
 ! !