The Trunk: System-eem.836.mcz

Eliot Miranda uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-eem.836.mcz

==================== Summary ====================

Name: System-eem.836
Author: eem
Time: 7 July 2016, 11:51:22.921345 am
UUID: b27dc440-8cbb-43a4-ac99-8db510ef9b1e
Ancestors: System-eem.835

Modify string search in methods to search symbols that are not used as message selectors.

=============== Diff against System-eem.835 ===============

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"
 
  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]]]]]
- method  hasLiteralSuchThat: [:lit |
- (lit isString and: [lit isSymbol not]) and:
- [lit includesSubstring: aString caseSensitive: caseSensitive]]]
  name:  'Methods with string ', aString printString, (caseSensitive ifTrue: [' (case-sensitive)'] ifFalse: [' (case-insensitive)'])
+ autoSelect: aString!
- autoSelect: aString.
- !