Tools__NewSystemBrowser.st
changeset 18870 ef23c5291ae6
parent 18859 f469d25ef22a
child 18872 ff5e9171ffdf
--- a/Tools__NewSystemBrowser.st	Mon Jul 08 18:53:54 2019 +0200
+++ b/Tools__NewSystemBrowser.st	Mon Jul 08 18:56:07 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2000 by eXept Software AG
               All Rights Reserved
@@ -35570,7 +35568,7 @@
 
     initialList := searchBlock value.
     initialList size == 0 ifTrue:[
-        self warn:(lbl , ' - none found.').
+        self warn:(lbl , (resources string:' - none found.')).
         ^ nil
     ].
 
@@ -49204,7 +49202,7 @@
     dummyChangeSet := ChangeSet new addAll:previousMethods; yourself.
     dummyChangeSet reverse.  "/ youngest first.
     browser := (UserPreferences current changeSetBrowserClass) openOn:dummyChangeSet.
-    browser label:(resources string:'Previous Versions of %1' with:(m whoStringWith:' » ')).
+    browser label:(resources string:'Previous Versions of %1' with:(m whoStringWith:' » ')).
     browser perform:#rightCodeLabel: with:'Previous Version' ifNotUnderstood:[].
     browser readOnly:true.
 
@@ -49431,7 +49429,7 @@
 
         self activityNotification:nil.
         browser := (UserPreferences current changeSetBrowserClass) openOn:previousMethods.
-        browser window label:(resources string:'Revisions of %1 » %2' with:mclass name with:mselector).
+        browser window label:(resources string:'Revisions of %1 » %2' with:mclass name with:mselector).
         browser readOnly:true.
     ].
 
@@ -51690,7 +51688,7 @@
         theMethodList := searchBlock value.
     ].
     theMethodList isEmptyOrNil ifTrue:[
-        self information:(lbl , ' - none found').
+        self information:(lbl , (resources string:' - none found')).
         ^ self.
     ].
 
@@ -52159,7 +52157,7 @@
         theSinglePackage notNil ifTrue:[
             cachedList := searchBlock value.
             cachedList size == 0 ifTrue:[
-                self information:(label , ' - none found').
+                self information:(label , (resources string:' - none found')).
                 ^ self
             ].
             (cachedList size == 1 and:[cachedList first == self theSingleSelectedMethod]) ifTrue:[
@@ -52455,7 +52453,7 @@
     methods := searchBlock value.
     self normalLabel.
     methods size == 0 ifTrue:[
-        self information:((browserTitle bindWith:varNames allBold) , ' - none found').
+        self information:((browserTitle bindWith:varNames allBold) , (resources string:' - none found')).
         ^ self
     ].
 
@@ -54117,7 +54115,7 @@
             label:[:chg | 
                 |lbl|
                 "/ lbl := chg printString
-                lbl := (chg className ? '???') , ' » ' , (chg selector  ? '???') allBold.
+                lbl := (chg className ? '???') , ' » ' , (chg selector  ? '???') allBold.
                 (chg isMethodChange and:[chg changeMethod isNil]) ifTrue:[
                     lbl := lbl asText allStrikedOut,' ','(removed)' allItalic.
                 ].