SourceCodeManagerUtilitiesForContainerBasedManagers.st
changeset 4333 c6441a31864d
parent 4282 1f8310c7bb5d
child 4354 f27b60626e89
--- a/SourceCodeManagerUtilitiesForContainerBasedManagers.st	Thu Jun 21 03:31:28 2018 +0000
+++ b/SourceCodeManagerUtilitiesForContainerBasedManagers.st	Thu Jun 21 14:52:18 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2012 eXept Software AG
               All Rights Reserved
@@ -47,7 +49,7 @@
 !
 
 checkinBuildSupportFilesForPackage:packageID withInfo:checkinInfo onBranch:branchNameOrNil
-    |anyFailure module directory mgr defClass|
+    |anyFailure module directory mgr defClass checkedInFiles|
 
     mgr := self sourceCodeManagerFor: packageID. 
     defClass := ProjectDefinition definitionClassForPackage: packageID.
@@ -56,6 +58,7 @@
     "/ defClass validateDescription.
 
     anyFailure := false.
+    checkedInFiles := StringCollection new.
 
     module := packageID asPackageId module.
     directory := packageID asPackageId directory.
@@ -99,7 +102,11 @@
                             createContainerForText:fileContents
                             inModule:module
                             package:realDirectory
-                            container:realFileName) ifTrue:[ exit value:nil ].
+                            container:realFileName) ifTrue:[
+                                "success"
+                                checkedInFiles add:fileName.
+                                exit value:nil 
+                        ].
 
                         answer := Dialog 
                             confirmWithCancel:(resources
@@ -130,6 +137,7 @@
                         checkinInfo tagIt ifTrue:[
                             self tagPath:(module, '/', realDirectory, '/', realFileName) as:checkinInfo tag usingManager:mgr.
                         ].
+                        checkedInFiles add:fileName.
                     ] ifFalse:[
                         Transcript showCR:'checkin of ' , realFileName , ' failed'.
                         anyFailure := true.
@@ -154,7 +162,11 @@
         self warn:'Checkin failed - see Transcript.'.
         self activityNotification:'Checkin of build-support files failed - see Transcript.'.
     ] ifFalse:[
-        self activityNotification:'Build-support files checked into the repository.'.
+        checkedInFiles isEmpty ifTrue:[
+            self activityNotification:'No build-support files were checked in.'.
+        ] ifFalse:[
+            self activityNotification:('Build-support files checked into the repository: %1.' bindWith:(checkedInFiles asStringWith:', ')).
+        ].
     ].
 
     "Created: / 05-12-2017 / 20:31:18 / cg"