[Pkg] The Trunk: System-eem.1040.mcz

[commits at source.squeak.org]

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

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

Name: System-eem.1040
Author: eem
Time: 21 August 2018, 4:24:32.752185 pm
UUID: 3faa888d-fcee-4714-99a0-7f1e72a82022
Ancestors: System-fn.1039

Auto-select for browseAllCallsOn:and:

=============== Diff against System-fn.1039 ===============

Item was changed:
  ----- Method: SystemNavigation>>browseAllCallsOn:and: (in category 'browse') -----
  browseAllCallsOn: literal1 and: literal2 
  	"Create and schedule a message browser on each method that calls on the two Symbols, literal1 and literal2."
  	"self default browseAllCallsOn: #at: and: #at:put:."
+ 	| both autoSelect |
+ 	both := { literal1. literal2}.
+ 	autoSelect := both
+ 					detect: [:ea| ea isSymbol]
+ 					ifNone: [(both
+ 								detect: [:ea| ea isVariableBinding and: [ea key isSymbol]]
+ 								ifNone: []) ifNotNil: [:vb| vb key]].
- 
  	^self 
  		browseMessageList: [ self allCallsOn: literal1 and: literal2 ]
+ 		name: literal1 printString , ' -and- ' , literal2 printString
+ 		autoSelect: autoSelect!
- 		name: literal1 printString , ' -and- ' , literal2 printString!