--- a/SourceCodeManagerUtilitiesForContainerBasedManagers.st Tue Jun 04 16:21:20 2013 +0100
+++ b/SourceCodeManagerUtilitiesForContainerBasedManagers.st Mon Jun 10 15:36:00 2013 +0100
@@ -34,7 +34,6 @@
"
! !
-
!SourceCodeManagerUtilitiesForContainerBasedManagers methodsFor:'utilities-cvs'!
checkinBuildSupportFilesForPackage:packageID
@@ -262,9 +261,12 @@
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.
+ ].
].
+ CVSSourceCodeManager recentTag:checkinInfo tag.
].
].
aborted ifTrue:[
@@ -388,7 +390,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:[
@@ -760,15 +762,14 @@
"Modified: / 04-09-2012 / 14:05:36 / cg"
! !
-
!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.15 2013-06-09 14:31:45 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.15 2013-06-09 14:31:45 cg Exp $'
!
version_HG