#UI_ENHANCEMENT by cg
class: CVSSourceCodeManager class
changed: #checkinClass:fileName:directory:module:source:logMessage:force:asBranch:
--- 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. ].