BrowserView.st
changeset 19313 aadda351f47b
parent 19128 b1b19801ca0a
child 19386 64603e01c615
--- 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
         ]
     ].