The Trunk: System-mt.1127.mcz

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!