--- a/Tools__NewSystemBrowser.st	Wed May 08 14:41:58 2019 +0200
+++ b/Tools__NewSystemBrowser.st	Sat May 11 12:16:13 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2000 by eXept Software AG
               All Rights Reserved
@@ -359,6 +361,12 @@
 #nameFilterFieldMatchingSelectorsCaseless
 'Show only methods with selectors matching this (ignoring case)'
 
+#nameFilterFieldMatchingSenders
+'Show only methods which send a message matching this (case sensitive)'
+
+#nameFilterFieldMatchingSendersCaseless
+'Show only methods which send a message matching this (ignoring case)'
+
 #nameFilterFieldMatchingSelectorsNot
 'Show only methods with selectors not matching this (case sensitive)'
 
@@ -378,7 +386,7 @@
 'Show only methods not containing text matching this (ignoring case)'
 
 #nameFilterType
-'Switch between selector- (S) and text matching (T).\The negative versions will only show methods which do NOT contain the pattern.\The (Ss) and (Tt) options ignore case, the (S) and (T) options do not.'
+'Switch between selector- (S), text matching (T) and messages sent (M) filters.\The negative versions will only show methods which do NOT contain the pattern.\The (Ss), (Tt) and (Mm) options ignore case, the (S), (T) and (M) options do not.'
 
 #hideNameFilter
 'Hide the filter. Show again via the "View"-Menu'
@@ -428,7 +436,7 @@
     ^ spec.
 
     "Modified: / 05-12-2017 / 12:52:42 / cg"
-    "Modified: / 21-09-2018 / 11:01:32 / Claus Gittinger"
+    "Modified: / 11-05-2019 / 12:13:49 / Claus Gittinger"
 ! !
 
 !NewSystemBrowser class methodsFor:'image specs'!
@@ -26206,6 +26214,8 @@
                 ('-Ss' #nameFilterFieldMatchingSelectorsNotCaseless)
                 ('-T' #nameFilterFieldMatchingTextNot)
                 ('-Tt' #nameFilterFieldMatchingTextNotCaseless)
+                ('M' #nameFilterFieldMatchingSenders)
+                ('Mm' #nameFilterFieldMatchingSendersCaseless)
             ) detect:[:pair | pair first = filterType] 
               thenCompute:[:pair | ^ super helpTextForKey:(pair second)]
               ifNone:[].
@@ -26214,7 +26224,7 @@
 
     ^ super helpTextForKey:newKey
 
-    "Modified: / 25-05-2018 / 11:27:47 / Claus Gittinger"
+    "Modified: / 11-05-2019 / 11:23:30 / Claus Gittinger"
 ! !
 
 !NewSystemBrowser methodsFor:'history'!
@@ -48973,7 +48983,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.
 
@@ -49200,7 +49210,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.
     ].
 
@@ -53886,7 +53896,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.
                 ].