SourceCodeManagerUtilities.st
changeset 1423 d15575ef3dba
parent 1414 f67d4b166606
child 1424 2b531fae15e5
--- a/SourceCodeManagerUtilities.st	Wed Jun 29 21:36:42 2005 +0200
+++ b/SourceCodeManagerUtilities.st	Wed Jul 13 17:46:58 2005 +0200
@@ -216,19 +216,19 @@
         moduleName := module allBold.
 
         allowCreate ifFalse:[
-            self warn:(resources string:'A module named ''%1'' does not exist in the repository' 
-                                  with:moduleName) withCRs.
+            self warn:(resources stringWithCRs:'A module named ''%1'' does not exist in the repository' 
+                                  with:moduleName) .
             ^ false
         ].
 
         (Dialog 
-            confirm:(resources string:'''%1'' is a new module.\\create it ?' with:moduleName) withCRs
+            confirm:(resources stringWithCRs:'''%1'' is a new module.\\create it ?' with:moduleName) 
             noLabel:'Cancel') 
         ifFalse:[
             ^ false.
         ].
         (mgr createModule:module) ifFalse:[
-            self warn:(resources string:'Cannot create new module: ''%1''' with:moduleName) withCRs.
+            self warn:(resources stringWithCRs:'Cannot create new module: ''%1''' with:moduleName) .
             ^ false.
         ]
     ].
@@ -342,7 +342,7 @@
                 Transcript showCR:'Checkin of ''' , aClass name , ''' aborted'.
                 AbortAllSignal isHandled ifTrue:[
                     (Dialog 
-                        confirm:('Checkin of ''' , aClass name , ''' aborted.\\Cancel all ?')withCRs
+                        confirm:(resources stringWithCRs:'Checkin of ''' , aClass name , ''' aborted.\\Cancel all ?')
                         default:false)
                     ifTrue:[
                         AbortAllSignal raise.
@@ -1409,19 +1409,19 @@
 
     module isNil ifTrue:[
         doWarn ifTrue:[
-            self warn:(resources string:'classes module is unknown.\\It seems to not have a container.') withCRs.
+            self warn:(resources stringWithCRs:'classes module is unknown.\\It seems to not have a container.') .
         ].
         ^ false.
     ].
     package isNil ifTrue:[
         doWarn ifTrue:[
-            self warn:(resources string:'classes package is unknown.\\It seems to not have a container.') withCRs.
+            self warn:(resources stringWithCRs:'classes package is unknown.\\It seems to not have a container.') .
         ].
         ^ false.
     ].
     fileName isNil ifTrue:[
         doWarn ifTrue:[
-            self warn:(resources string:'classes container fileName is unknown.\\It seems to not have a container.') withCRs.
+            self warn:(resources stringWithCRs:'classes container fileName is unknown.\\It seems to not have a container.') .
         ].
         ^ false.
     ].
@@ -1436,7 +1436,7 @@
                                    package:package 
                                  container:fileName) ifFalse:[
         doWarn ifTrue:[
-            self warn:(resources string:'Class has no source container.') withCRs.
+            self warn:(resources stringWithCRs:'Class has no source container.') .
         ].
         ^ false.
     ].
@@ -1444,7 +1444,7 @@
     doConfirm ifTrue:[
         (Dialog
             choose:(resources 
-                        string:'Please confirm removal of the container for %1:
+                        stringWithCRs:'Please confirm removal of the container for %1:
 
 container:    %2 / %3 / %4
 
@@ -2155,5 +2155,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.108 2005-01-26 16:54:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.109 2005-07-13 15:46:58 cg Exp $'
 ! !