# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1563019880 -7200
# Node ID 4c59332617411aa1e64a3683bdbf96164a59cc4f
# Parent  f081b08d0755f0c93fc23cb7a8faa3e9e097b253
#BUGFIX by cg
class: SystemBrowser class
added: #findString:inMethods:ignoreCase:match:resourceMethodsOnly:

diff -r f081b08d0755 -r 4c5933261741 SystemBrowser.st
--- a/SystemBrowser.st	Sat Jul 13 14:00:30 2019 +0200
+++ b/SystemBrowser.st	Sat Jul 13 14:11:20 2019 +0200
@@ -5301,6 +5301,18 @@
     ^ aCollectionOfMethods select:[:m | searchBlock value:m mclass value:m value:m selector].
 !
 
+findString:aString inMethods:aCollectionOfMethods ignoreCase:ignoreCase match:doMatch resourceMethodsOnly:resourceMethodsOnly
+    "return a collection of all methods in aCollectionOfClasses  
+     containing a string in their source.
+     This may be slow, since source-code has to be scanned."
+
+    ^ self
+        findString:aString 
+        inMethods:aCollectionOfMethods 
+        ignoreCase:ignoreCase match:doMatch fullWordsOnly:false 
+        resourceMethodsOnly:resourceMethodsOnly
+!
+
 findStringLiteral:aString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
     "return a collection of all methods in aCollectionOfClasses  
      containing a string in any of their string-literals."