--- a/SourceCodeManagerUtilitiesForContainerBasedManagers.st Wed Jul 31 03:25:21 2013 +0000
+++ b/SourceCodeManagerUtilitiesForContainerBasedManagers.st Wed Jul 31 17:47:16 2013 +0200
@@ -247,13 +247,14 @@
checkinState := mgr checkinClass:aClass logMessage:logMessage
] on:SourceCodeManagerError do:[:ex|
cause := ex description.
- ex proceed.
+ "/ ex proceed.
].
checkinState ifFalse:[
Transcript showCR:'checkin of ''' , aClass name , ''' failed - ', cause.
self warn:(resources stringWithCRs:'Checkin of "%1" failed\\' with:aClass name allBold),cause.
- ^ false.
+ AbortOperationRequest raise.
+ "/ ^ false.
].
checkinInfo notNil ifTrue:[
checkinInfo isStable ifTrue:[
@@ -765,10 +766,10 @@
!SourceCodeManagerUtilitiesForContainerBasedManagers class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.15 2013-06-09 14:31:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.16 2013-07-31 15:47:16 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.15 2013-06-09 14:31:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.16 2013-07-31 15:47:16 cg Exp $'
! !