SourceCodeManagerUtilitiesForContainerBasedManagers.st
changeset 3362 0ede9d87d347
parent 3298 0d1ea2b38777
child 3367 dc9d785a4ca7
--- 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 $'
 ! !