--- 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.
].