[Pkg] The Trunk: System-mt.1108.mcz

[commits at source.squeak.org]

Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.1108.mcz

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

Name: System-mt.1108
Author: mt
Time: 2 October 2019, 9:32:00.730936 am
UUID: 39de5334-f54e-4440-a28b-06efad556bb6
Ancestors: System-ct.1107

Fixes and revises System-ct.1107.

=============== Diff against System-mt.1102 ===============

Item was changed:
  ----- Method: SystemNavigation>>allImplementorsOf:localTo: (in category 'query') -----
  allImplementorsOf: aSelector localTo: aClass 
  	"Answer a sorted collection of all the methods that are named aSelector in, above, or below the given class."
  	
  	| result |
  	result := OrderedCollection new.
+ 	aClass theNonMetaClass withAllSuperAndSubclassesDoGently: [:class |
+ 		(class includesSelector: aSelector) ifTrue: [
+ 			result add: (MethodReference class: class selector: aSelector) ].
+ 		(class class includesSelector: aSelector) ifTrue: [
+ 			result add: (MethodReference class: class class selector: aSelector) ] ].
- 	{ aClass theNonMetaClass. aClass theMetaClass } do: [ :baseClass |
- 		baseClass withAllSuperAndSubclassesDoGently: [ :class | 
- 			(class includesSelector: aSelector) ifTrue: [
- 				result add: (MethodReference class: class selector: aSelector) ] ] ].
  	^result sort!