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!
packages@lists.squeakfoundation.org