CVSSourceCodeManager.st
changeset 4524 32d0af6cebd4
parent 4518 1e1874f7a287
child 4539 2309e99c335d
--- a/CVSSourceCodeManager.st	Thu Dec 12 00:51:30 2019 +0100
+++ b/CVSSourceCodeManager.st	Thu Dec 12 18:10:56 2019 +0100
@@ -2778,6 +2778,9 @@
             whatHappened := nil
         ].
     ] ensure:[
+        |didWarn|
+
+        didWarn := false.
         retryCount := 5.
         OsError handle:[:ex |
             retryCount := retryCount - 1.
@@ -2785,7 +2788,8 @@
                 Delay waitForSeconds:0.5.
                 ex restart.
             ].
-            Dialog warn:'Warning: some problem encountered when trying to remove a temporary workfile:
+            didWarn ifFalse:[
+                Dialog warn:'Warning: some problem encountered when trying to remove a temporary workfile:
 
 %1
 
@@ -2793,6 +2797,8 @@
 This may be caused by a virus scanner, or other program which scans the temporary file. 
 Please remove those temporary files later.'
                         with:ex description.
+                didWarn := true.
+            ].
             ex proceed.
         ] do:[
             tempdir notNil ifTrue:[ tempdir recursiveRemove. tempdir := nil. ].