[squeak-dev] The Trunk: System-eem.836.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Jul 7 18:51:53 UTC 2016


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.
- !



More information about the Squeak-dev mailing list