[Pkg] The Trunk: System-mt.1127.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.1127.mcz

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

Name: System-mt.1127
Author: mt
Time: 4 December 2019, 3:04:58.090613 pm
UUID: 8c61fc56-bbd5-49e5-b735-c831e630323c
Ancestors: System-mt.1126

In system navigation, make #browseClass: work with (class) bindings. Note that there is alreay binding compatibility in #browseAllCallsOnClass:.

=============== Diff against System-mt.1126 ===============

Item was changed:
  ----- Method: SystemNavigation>>browseClass: (in category 'browse') -----
+ browseClass: aBehaviorOrBinding
+ 	"Browse the class (1) as given, (2) from its meta class, (3) from a class binding, (4) of a global variable as given, (5) of a global variable from its global binding."
+ 	
+ 	| objectOrClass classOrMetaclass targetClass |
+ 	objectOrClass := aBehaviorOrBinding value.
+ 	classOrMetaclass := objectOrClass isBehavior
+ 		ifTrue: [objectOrClass]
+ 		ifFalse: [objectOrClass class].
+ 	targetClass := classOrMetaclass isMeta
+ 			ifTrue: [classOrMetaclass theNonMetaClass]
+ 			ifFalse: [classOrMetaclass].
+ 	^ ToolSet browseClass: targetClass!
- browseClass: aBehavior
- 	| targetClass |
- 	targetClass := aBehavior isMeta
- 				ifTrue: [aBehavior theNonMetaClass]
- 				ifFalse: [aBehavior ].
- 	^ ToolSet browse: targetClass selector: nil!