The Trunk: System-eem.1040.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: System-eem.1040.mcz

commits-2
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!