--- a/ChangeSetDiffSet.st Tue Jul 31 14:34:25 2012 +0200
+++ b/ChangeSetDiffSet.st Tue Jul 31 14:34:33 2012 +0200
@@ -71,6 +71,12 @@
^ self basicNew initialize.
! !
+!ChangeSetDiffSet class methodsFor:'others'!
+
+version_CVS
+ ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSetDiffSet.st,v 1.5 2012-07-31 12:34:33 vrany Exp $'
+! !
+
!ChangeSetDiffSet methodsFor:'accessing'!
diffs
@@ -236,14 +242,30 @@
"Created: / 25-11-2009 / 20:37:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 09-12-2009 / 17:43:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isForVersionMethod
+ "Returns true, if this is an entry for version method"
+
+ ^diffs allSatisfy:[:each|each isForVersionMethod]
+
+ "Created: / 18-04-2012 / 19:05:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isMerged
+ "raise an error: must be redefined in concrete subclass(es)"
+
+ ^ self diffs allSatisfy:[:e|e isMerged].
+
+ "Created: / 19-03-2012 / 15:15:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!ChangeSetDiffSet class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSetDiffSet.st,v 1.4 2011-11-29 10:26:48 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSetDiffSet.st,v 1.5 2012-07-31 12:34:33 vrany Exp $'
!
-version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSetDiffSet.st,v 1.4 2011-11-29 10:26:48 cg Exp $'
+version_SVN
+ ^ '§Id: ChangeSetDiffSet.st 1920 2012-04-18 20:21:56Z vranyj1 §'
! !