--- 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"