CVSSourceCodeManager.st
changeset 3817 fce0d1006c04
parent 3813 04e40bdd7252
child 3820 f4d986c2fa4b
--- 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 $'
 ! !