--- a/BrowserView.st Thu Nov 28 11:00:09 2019 +0100
+++ b/BrowserView.st Thu Nov 28 14:29:39 2019 +0100
@@ -2477,7 +2477,7 @@
|box matchBlock|
box := self
- listBoxForCodeSelectionTitle:'Selector to find:\\(Tab for completion or use matchPattern)' withCRs
+ listBoxForCodeSelectionTitle:c'Selector to find:\n\n(Tab for completion or use matchPattern)'
okText:'Find'.
box label:(resources string:'Find method').
@@ -5641,13 +5641,13 @@
|newPackage|
currentClass owningClass notNil ifTrue:[
- self warn:'Private classes always belong to the owners package.\\Cannot change the packageID.' withCRs.
+ self warn:c'Private classes always belong to the owners package.\n\nCannot change the packageID.'.
^ self
].
currentClass isLoaded ifFalse:[
self warn:('The package-ID is ''' , currentClass package allBold , '''.'
- , '\\I will not change the package-ID of unloaded classes.') withCRs.
+ , c'\n\nI will not change the package-ID of unloaded classes.').
^ self.
].
@@ -8404,7 +8404,7 @@
self checkClassSelected ifFalse:[^ self].
(actualClass includesSelector:#'update:with:from:') ifTrue:[
- self warn:'class already implements #update:with:from:\\No code generated.' withCRs.
+ self warn:c'class already implements #update:with:from:\n\nNo code generated.'.
^ self
].
@@ -9415,7 +9415,7 @@
(newClass includesSelector:currentSelector) ifTrue:[
(self confirm:(newClass name allBold , ' already implements ' , currentSelector
- , '\\Redefine anyway ?' withCRs)) ifFalse:[
+ , c'\n\nRedefine anyway ?')) ifFalse:[
^ self
]
].
@@ -9965,7 +9965,7 @@
|newPackage|
currentClass owningClass notNil ifTrue:[
- self warn:'Private classes always belong to the owners package.\\Cannot change the packageID.' withCRs.
+ self warn:c'Private classes always belong to the owners package.\n\nCannot change the packageID.'.
^ self
].
@@ -10049,7 +10049,7 @@
(newClass includesSelector:currentSelector) ifTrue:[
(self confirm:(newClass name allBold , ' already implements ' , currentSelector
- , '\\Move anyway ?' withCRs)) ifFalse:[
+ , c'\n\nMove anyway ?')) ifFalse:[
^ self
]
].