--- a/Tools__NewSystemBrowser.st	Wed Jan 29 17:28:37 2020 +0100
+++ b/Tools__NewSystemBrowser.st	Thu Jan 30 09:39:12 2020 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2000 by eXept Software AG
               All Rights Reserved
@@ -26339,6 +26337,10 @@
     |action info label|
 
     (navigationState notNil and:[navigationState canvas notNil]) ifTrue:[
+        "/ this is a hack - if asked for the helptext of the infolabel,
+        "/ see if there is an actionLink in it.
+        "/ This ought to be refactored into a more general mechanism, where ANY widget
+        "/ knows that it shows some actionLink somewhere (esp. Labels, TextViews etc.)
         aWidget = (navigationState canvas builder componentAt:'InfoLabel') ifTrue:[
             action := aWidget actionAt:aPoint.
             "/ Transcript show:'action under info label:'; showCR:action.
@@ -49430,7 +49432,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.
 
@@ -49657,7 +49659,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.
     ].
 
@@ -54405,7 +54407,7 @@
                         nameShown := shortName 
                     ]
                 ].
-                lbl := (nameShown ? '???') , ' » ' , (chg selector  ? '???') allBold.
+                lbl := (nameShown ? '???') , ' » ' , (chg selector  ? '???') allBold.
                 (chg isMethodChange and:[chg changeMethod isNil]) ifTrue:[
                     lbl := lbl asText allStrikedOut,' ','(removed)' allItalic.
                 ].    
@@ -59266,8 +59268,15 @@
                         |result moreResults extensionMethods arguments2|
 
                         ProgressNotification handle:[:ex |
-                            self showInfo:('Searching... (%1%% done - %2)%3' 
-                                                bindWith:(ex progressValue truncated)
+                            |percentage numDots dots|
+
+                            percentage := ex progressValue truncated.
+                            "/ one dot per 5%
+                            numDots := ((percentage // 20) \\ 3) + 1.
+                            dots := '...' copyTo:numDots.
+                            self showInfo:('Searching%1 (%2%% done - %3)%4' 
+                                                bindWith:dots
+                                                with:percentage
                                                 with:(ex statusInfo ? '')
                                                 with:((Class tryLocalSourceFirst or:[UserPreferences current keepMethodSourceCode])
                                                         ifFalse:[ ' - tune this by enabling method source cache in the SCM settings dialog']