# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1370516187 -7200
# Node ID ef3fc480b9798ea7aee6cf993224909ae4c31f6d
# Parent  8c2434d22b1d7af7117de3fcaf69a1365b6549a6
class: SourceCodeManagerUtilitiesForContainerBasedManagers
changed: #checkinClass:withInfo:withCheck:usingManager:

diff -r 8c2434d22b1d -r ef3fc480b979 SourceCodeManagerUtilitiesForContainerBasedManagers.st
--- 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 $'
 ! !