The Trunk: System-eem.1152.mcz

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

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

Name: System-eem.1152
Author: eem
Time: 15 April 2020, 4:11:22.143513 pm
UUID: 3e0d01fb-556b-4a58-926d-417c7b193a4e
Ancestors: System-mt.1151

Change some SystemNavigation methods to use selectorsDo:; messagesDo: should be deprecated at some point.

=============== Diff against System-mt.1151 ===============

Item was changed:
  ----- Method: SystemNavigation>>allUnimplementedCalls (in category 'query') -----
  allUnimplementedCalls
  "Answer a collection of each message that is sent by an expression in a method but is not implemented by any object in the system."
 
  | result implementedMessages |
  implementedMessages := self allImplementedMessages.
  result := OrderedCollection new.
  self allSelectorsAndMethodsDo: [ :behavior :selector :method |
+ method selectorsDo: [ :each |
- method messagesDo: [ :each |
  (implementedMessages includes: each) ifFalse: [
  result add: (String streamContents: [ :stream |
  stream
  nextPutAll: behavior name;
  space;
  nextPutAll: selector;
  space;
  nextPutAll: 'calls: ';
  nextPutAll: each ]) ] ] ].
  ^result!

Item was changed:
  ----- Method: SystemNavigation>>allUnimplementedNonPrimitiveCalls (in category 'query') -----
  allUnimplementedNonPrimitiveCalls
  "Answer an collection of each message that is sent by an expression in a method but is not implemented by any object in the system. This list won't include primitive methods."
 
  | result implementedMessages |
  implementedMessages := self allImplementedMessages.
  result := OrderedCollection new.
  self allSelectorsAndMethodsDo: [ :behavior :selector :method |
  method primitive = 0 ifTrue: [
+ method selectorsDo: [ :each |
- method messagesDo: [ :each |
  (implementedMessages includes: each) ifFalse: [
  result add: (String streamContents: [ :stream |
  stream
  nextPutAll: behavior name;
  space;
  nextPutAll: selector;
  space;
  nextPutAll: 'calls: ';
  nextPutAll: each ]) ] ] ] ].
  ^result!

Item was changed:
  ----- Method: SystemNavigation>>unimplemented (in category 'query') -----
  unimplemented
  "Answer an collection of each message that is sent by an expression in a method but is not implemented by any object in the system."
 
  | implemented unimplemented |
  implemented := self allImplementedMessages.
  unimplemented := IdentityDictionary new.
  self allSelectorsAndMethodsDo: [ :behavior :selector :method |
+ method selectorsDo: [ :each |
- method messagesDo: [ :each |
  | entry |
  (implemented includes: each) ifFalse: [
  entry := unimplemented
  at: each
  ifPresent: [ :oldEntry |
  oldEntry copyWith: behavior name, '>', selector ]
  ifAbsent: [
  { behavior name, '>', selector } ].
  unimplemented at: each put: entry ] ] ].
  ^unimplemented!