--- a/Tools__NewSystemBrowser.st	Sun May 13 16:29:37 2018 +0200
+++ b/Tools__NewSystemBrowser.st	Mon May 14 19:41:05 2018 +0200
@@ -352,19 +352,31 @@
 'Show only methods with matching selectors / which contain the text '
 
 #nameFilterFieldMatchingSelectors
-'Show only methods with selectors matching this'
+'Show only methods with selectors matching this (case sensitive)'
+
+#nameFilterFieldMatchingSelectorsCaseless
+'Show only methods with selectors matching this (ignoring case)'
 
 #nameFilterFieldMatchingSelectorsNot
-'Show only methods with selectors not matching this'
+'Show only methods with selectors not matching this (case sensitive)'
+
+#nameFilterFieldMatchingSelectorsNotCaseless
+'Show only methods with selectors not matching this (ignoring case)'
 
 #nameFilterFieldMatchingText
-'Show only methods containing text matching this'
+'Show only methods containing text matching this (case sensitive)'
+
+#nameFilterFieldMatchingTextCaseless
+'Show only methods containing text matching this (ignoring case)'
 
 #nameFilterFieldMatchingTextNot
-'Show only methods not containing text matching this'
+'Show only methods not containing text matching this (case sensitive)'
+
+#nameFilterFieldMatchingTextNotCaseless
+'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.'
+'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) option do not.'
 
 #hideNameFilter
 'Hide the filter. Show again via the "View"-Menu'
@@ -25617,9 +25629,13 @@
         filterType := self methodListApp nameFilterTypeHolder value.
         #(
             ('S' #nameFilterFieldMatchingSelectors)
+            ('Ss' #nameFilterFieldMatchingSelectorsCaseless)
             ('T' #nameFilterFieldMatchingText)
+            ('Tt' #nameFilterFieldMatchingTextCaseless)
             ('-S' #nameFilterFieldMatchingSelectorsNot)
+            ('-Ss' #nameFilterFieldMatchingSelectorsNotCaseless)
             ('-T' #nameFilterFieldMatchingTextNot)
+            ('-Tt' #nameFilterFieldMatchingTextNotCaseless)
         ) detect:[:pair | pair first = filterType] 
           thenCompute:[:pair | ^ super helpTextForKey:(pair second)]
           ifNone:[].