--- 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 $'
! !