Tools__NewSystemBrowser.st
changeset 18827 7665aa196b0a
parent 18826 4c3f3bd70d36
child 18835 ec0e9853a0b7
--- 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