Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.922.mcz
==================== Summary ====================
Name: System-ul.922 Author: ul Time: 27 December 2016, 11:07:17.892759 pm UUID: 694a8729-9b50-42d3-ae51-04dc932ab1f8 Ancestors: System-eem.921
SystemNavigation>>browseMethodsWithString:matchCase: - ignore method selector from the results, just like messages - cache messages for performance
=============== Diff against System-eem.921 ===============
Item was changed: ----- Method: SystemNavigation>>browseMethodsWithString:matchCase: (in category 'browse') ----- browseMethodsWithString: aString matchCase: caseSensitive "Launch a browser on all methods that contain string literals with aString as a substring. Make the search case-sensitive or insensitive as dictated by the caseSensitive boolean parameter"
+ | selector messages | + self + browseAllSelect: [ :method | + selector := messages := nil. + method hasLiteralSuchThat: [ :literal | + literal isString + and: [ (literal includesSubstring: aString caseSensitive: caseSensitive) + and: [ literal isSymbol + ifFalse: [ true ] + ifTrue: [ + ((selector ifNil: [ selector := method selector ]) == literal + or: [ (messages ifNil: [ messages := method messages ]) includes: literal ]) not ] ] ] ] ] - self browseAllSelect: - [:method | - method hasLiteralSuchThat: - [:lit | - lit isString - and: [(lit includesSubstring: aString caseSensitive: caseSensitive) - and: [lit isSymbol - ifTrue: [(method messages includes: lit) not] - ifFalse: [true]]]]] name: 'Methods with string ', aString printString, (caseSensitive ifTrue: [' (case-sensitive)'] ifFalse: [' (case-insensitive)']) autoSelect: aString!