#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Wed, 10 Jul 2019 18:21:08 +0200
changeset 4459 996c5e249b27
parent 4458 abe7565c10fb
child 4460 044252f25c7d
#REFACTORING by cg class: CVSSourceCodeManager class changed: #checkinClass:fileName:directory:module:source:logMessage:force:asBranch: #pathesForClasses: warn:with: used
CVSSourceCodeManager.st
--- a/CVSSourceCodeManager.st	Tue Jul 09 20:49:07 2019 +0200
+++ b/CVSSourceCodeManager.st	Wed Jul 10 18:21:08 2019 +0200
@@ -2771,14 +2771,14 @@
                 Delay waitForSeconds:0.5.
                 ex restart.
             ].
-            Dialog warn:('Warning: some problem encountered when trying to remove a temporary workfile:
+            Dialog warn:'Warning: some problem encountered when trying to remove a temporary workfile:
 
 %1
 
 The checkin was successful, though.
 This may be caused by a virus scanner, or other program which scans the temporary file. 
 Please remove those temporary files later.' withCRs
-                        bindWith:ex description).
+                        with:ex description.
             ex proceed.
         ] do:[
             tempdir notNil ifTrue:[ tempdir recursiveRemove. tempdir := nil. ].
@@ -2898,7 +2898,7 @@
     "Modified: / 31-03-2017 / 15:42:32 / stefan"
     "Modified: / 18-05-2018 / 12:53:43 / Stefan Vogel"
     "Modified: / 09-11-2018 / 18:09:37 / Maren"
-    "Modified: / 17-12-2018 / 16:29:02 / Claus Gittinger"
+    "Modified: / 10-07-2019 / 18:20:31 / Claus Gittinger"
 !
 
 checkoutModule:aModule directory:aPackage andDo:aBlock
@@ -4255,7 +4255,7 @@
                     cls isLoaded ifFalse:[
                         Transcript showCR:'Cannot handle unloaded class: %1.' with:cls name.
                         alreadyWarned == 0 ifTrue:[
-                            Dialog warn:('Cannot handle unloaded class: %1.' bindWith:cls name).
+                            Dialog warn:'Cannot handle unloaded class: %1.' with:cls name.
                             alreadyWarned := alreadyWarned + 1.
                         ] ifFalse:[
                             alreadyWarned == 1 ifTrue:[
@@ -4285,7 +4285,7 @@
     ^ paths
 
     "Created: / 04-12-2017 / 18:48:30 / cg"
-    "Modified: / 15-02-2019 / 09:42:02 / Claus Gittinger"
+    "Modified: / 10-07-2019 / 18:20:48 / Claus Gittinger"
 !
 
 readRevisionLogFromStream:aCVSLogPipeStream headerOnly:headerOnly numRevisions:numRevisionsOrNil