--- a/Tools__NewSystemBrowser.st Tue Jun 18 18:50:01 2019 +0200
+++ b/Tools__NewSystemBrowser.st Tue Jun 18 21:48:04 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 2000 by eXept Software AG
All Rights Reserved
@@ -19078,6 +19080,7 @@
matcher := FuzzyMatcher pattern:lcName.
nameList1 do:[:eachClassName |
(already includes:eachClassName) ifFalse:[
+ already add:eachClassName.
matcher
match:eachClassName
ifScored: [:score |
@@ -19088,6 +19091,7 @@
"/ add name without namespace colons
nameList2 do:[:eachClassName |
(already includes:eachClassName) ifFalse:[
+ already add:eachClassName.
matcher
match:(eachClassName copyReplaceAll:':' with:'')
ifScored: [:score |
@@ -19099,6 +19103,7 @@
(matches size < 10) ifTrue:[
nameList2 do:[:eachClassName |
(already includes:eachClassName) ifFalse:[
+ already add:eachClassName.
matcher
match:eachClassName
ifScored: [:score |
@@ -19269,7 +19274,7 @@
"Modified: / 04-09-2013 / 17:48:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 05-12-2017 / 13:02:53 / cg"
- "Modified: / 18-06-2019 / 18:48:12 / Claus Gittinger"
+ "Modified: / 18-06-2019 / 21:47:14 / Claus Gittinger"
!
enterBoxTitle:title okText:okText label:label
@@ -49046,7 +49051,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.
@@ -49273,7 +49278,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.
].
@@ -53959,7 +53964,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.
].
@@ -61574,7 +61579,6 @@
^ selectorCompletion
! !
-
!NewSystemBrowser methodsFor:'private-semantic checks'!
checkAcceptedMethod:aMethod inClass:aClass