--- a/Tools__NewSystemBrowser.st	Fri May 11 10:51:51 2018 +0200
+++ b/Tools__NewSystemBrowser.st	Sat May 12 08:58:39 2018 +0200
@@ -351,6 +351,18 @@
 #nameFilter
 'Show only methods with matching selectors / which contain the text '
 
+#nameFilterFieldMatchingSelectors
+'Show only methods with selectors matching this'
+
+#nameFilterFieldMatchingSelectorsNot
+'Show only methods with selectors not matching this'
+
+#nameFilterFieldMatchingText
+'Show only methods containing text matching this'
+
+#nameFilterFieldMatchingTextNot
+'Show only methods not containing text matching this'
+
 #nameFilterType
 'Switch between selector- (S) and text matching (T).\The negative versions will only show methods which do not contain the pattern.'
 
@@ -25554,28 +25566,12 @@
 
 !NewSystemBrowser methodsFor:'help specs'!
 
-helpSpec
-    |changeSet spec|
-
-    spec := super helpSpec.
-
-    changeSet := ChangeSet current.
-    "/ (changeSet contains:[:chg | chg isMethodChange and:[chg changeClass notNil]]) ifTrue:[
-    (changeSet findLast:[:chg | chg isMethodChange and:[chg changeClass notNil]]) ~~ 0 ifTrue:[
-        spec at:#recentChanges put:(spec at:#recentlyChangedMethods).
-    ] ifFalse:[
-"/        (changeSet contains:[:chg | chg isClassChange and:[chg changeClass notNil]]) ifTrue:[
-"/            spec at:#recentChanges put:(spec at:#recentlyChangedClasses).
-"/        ] ifFalse:[
-            spec at:#recentChanges put:'Recently Changed'.
-"/        ]
-    ].
-    ^ spec.
-
-    "Modified: / 08-09-2011 / 05:05:06 / cg"
-!
-
 helpTextFor:aWidget at:aPoint
+    "provide a special tooltip in the infoLabel at the bottom:
+     ask the widget for its info contents.
+     This is a more detailed description of the current selected piece
+     of code or the current selected method"
+
     |action info label|
 
     (navigationState notNil and:[navigationState canvas notNil]) ifTrue:[
@@ -25599,6 +25595,37 @@
     ^ nil
 
     "Modified: / 08-11-2016 / 21:46:26 / cg"
+!
+
+helpTextForKey:aKey
+    |changeSet filterType newKey|
+
+    newKey := aKey.
+
+    "/ if there is any method change in the changeSet,
+    "/ return the helpText from recentlyChangedMethods instead of recentlyChanged
+    aKey == #recentChanges ifTrue:[
+        changeSet := ChangeSet current.
+        (changeSet findLast:[:chg | chg isMethodChange and:[chg changeClass notNil]]) ~~ 0 ifTrue:[
+            newKey := #recentlyChangedMethods.
+        ].
+    ].
+
+    "/ the helptext of the text/selector filter field
+    "/ shall include the current filter setting (explaining T/S/-T/-S)
+    aKey == #nameFilterField ifTrue:[
+        filterType := self methodListApp nameFilterTypeHolder value.
+        #(
+            ('S' #nameFilterFieldMatchingSelectors)
+            ('T' #nameFilterFieldMatchingText)
+            ('-S' #nameFilterFieldMatchingSelectorsNot)
+            ('-T' #nameFilterFieldMatchingTextNot)
+        ) detect:[:pair | pair first = filterType] 
+          thenCompute:[:pair | ^ super helpTextForKey:(pair second)]
+          ifNone:[].
+    ].
+
+    ^ super helpTextForKey:newKey
 ! !
 
 !NewSystemBrowser methodsFor:'history'!
@@ -41351,7 +41378,6 @@
     "Modified: / 28-02-2012 / 16:27:44 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-namespace'!
 
 nameSpaceMenuCheckOut