--- a/SourceCodeManagerUtilitiesForContainerBasedManagers.st Thu Jun 06 12:36:17 2013 +0200
+++ b/SourceCodeManagerUtilitiesForContainerBasedManagers.st Thu Jun 06 12:56:27 2013 +0200
@@ -261,8 +261,10 @@
self tagClass:aClass as:#stable.
].
checkinInfo tagIt ifTrue:[
- "set an additional tag for class that has been checked in"
- self tagClass:aClass as:(checkinInfo tag).
+ "set any additional tags for the class that has been checked in"
+ (checkinInfo tag asCollectionOfSubstringsSeparatedByAny:',;') do:[:eachTag |
+ self tagClass:aClass as:eachTag withoutSeparators.
+ ]
].
].
].
@@ -387,7 +389,7 @@
ifTrue:[
"/mhmh - but tag should be set on all (even unchanged ones)
"/ the other onces have already been tagged
- unchangedClasses := allClasses select:[:eachClass | (classes includes:eachClass) not].
+ unchangedClasses := allClasses reject:[:eachClass | (classes includes:eachClass)].
"mhmh - could still have to tag them"
checkinInfoOrString isStable ifTrue:[
@@ -762,10 +764,10 @@
!SourceCodeManagerUtilitiesForContainerBasedManagers class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.11 2013-05-07 16:45:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.13 2013-06-06 10:56:27 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.11 2013-05-07 16:45:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.13 2013-06-06 10:56:27 cg Exp $'
! !