--- a/SystemBrowser.st	Mon Aug 21 10:52:38 2017 +0200
+++ b/SystemBrowser.st	Thu Aug 24 13:10:56 2017 +0200
@@ -5042,6 +5042,29 @@
     ^ aCollectionOfMethods select:[:m | searchBlock value:m mclass value:m value:m selector].
 !
 
+findSendersOfAll:aCollectionOfSelectors in:aCollectionOfClasses ignoreCase:ignoreCase
+    "search for methods which send all selectors in aCollectionOfSelectors in
+     the classes contained in aCollectionOfClasses and their metaclasses.
+     Return a collection of methods."
+
+    ^ (self allCallsOn:(aCollectionOfSelectors first) 
+                 in:aCollectionOfClasses 
+                 ignoreCase:ignoreCase
+                 match:false
+    ) select:[:mthd |
+        mthd messagesSent includesAll:aCollectionOfSelectors
+    ].
+
+    "
+     SystemBrowser 
+        findSendersOfAll:#(#'+' #'-')
+        in:(Smalltalk allClasses)
+        ignoreCase:false  
+    "
+
+    "Created: / 24-08-2017 / 13:10:25 / cg"
+!
+
 findSendersOfAny:aCollectionOfSelectors in:aCollectionOfClasses ignoreCase:ignoreCase
     "search for all senders of any selector in aCollectionOfSelectors in
      the classes contained in aCollectionOfClasses and their metaclasses.