--- a/CVSSourceCodeManager.st Sun Mar 01 02:09:08 2015 +0100
+++ b/CVSSourceCodeManager.st Sun Mar 01 02:10:03 2015 +0100
@@ -1496,7 +1496,7 @@
rightPart := rightPart copyFrom:idx+1.
"/ originalVersionString:
- "/ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.500 2015-02-27 21:24:57 cg Exp $'
+ "/ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.501 2015-03-01 01:10:03 cg Exp $'
"/ leftPart:
"/ '$Header: /cvs/stx/stx/goodies/refactoryBrowser/lint/RBLiteralArrayContainsCommaRule.st,v'
"/ dateAndTimePart:
@@ -2680,8 +2680,14 @@
whatHappened := nil
].
] ensure:[
- tempdir notNil ifTrue:[ tempdir recursiveRemove ].
- cmdOut notNil ifTrue:[ cmdOut remove ].
+ OperatingSystem accessDeniedErrorSignal handle:[:ex |
+ Dialog warn:('Warning: some problem encountered when trying to remove a temporary workfile:\\%1\\The checkin was successful, though.\Please remove those temporary files later.' withCRs
+ bindWith:ex description).
+ ex proceed.
+ ] do:[
+ tempdir notNil ifTrue:[ tempdir recursiveRemove ].
+ cmdOut notNil ifTrue:[ cmdOut remove ].
+ ].
].
"/
@@ -5567,11 +5573,11 @@
!CVSSourceCodeManager class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.500 2015-02-27 21:24:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.501 2015-03-01 01:10:03 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.500 2015-02-27 21:24:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.501 2015-03-01 01:10:03 cg Exp $'
! !