SourceCodeManagerUtilitiesForContainerBasedManagers.st
branchjv
changeset 3300 965757a9a4b7
parent 3283 65d968484661
parent 3298 0d1ea2b38777
child 3373 ef0f9ee70942
--- 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