#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Thu, 12 Dec 2019 18:10:56 +0100
changeset 4524 32d0af6cebd4
parent 4523 f07b5bcebde5
child 4525 04f4bfb1f1ee
#UI_ENHANCEMENT by cg class: CVSSourceCodeManager class changed: #checkinClass:fileName:directory:module:source:logMessage:force:asBranch:
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. ].