# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1576170656 -3600
# Node ID 32d0af6cebd416cd4c4c3330152f7db23b248513
# Parent  f07b5bcebde5ac6d82e80288cff1dd52c6887049
#UI_ENHANCEMENT by cg
class: CVSSourceCodeManager class
changed: #checkinClass:fileName:directory:module:source:logMessage:force:asBranch:

diff -r f07b5bcebde5 -r 32d0af6cebd4 CVSSourceCodeManager.st
--- 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. ].