Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.855.mcz==================== Summary ====================
Name: Tools-mt.855
Author: mt
Time: 22 July 2019, 11:50:35.866271 am
UUID: cf7f6661-b022-4863-9fdb-5225000135af
Ancestors: Tools-mt.854
Complements System-mt.1073.
Not that this only works if SystemNavigation always uses its environment and not the incoming class' environment. See:
Behavior >> #allCallsOn:
Object >> #systemNavigation
=============== Diff against Tools-mt.854 ===============
Item was changed:
----- Method: ObjectExplorer>>browseClassRefs (in category 'menus - actions') -----
browseClassRefs
self selectedClass ifNotNil: [:cls |
+ cls isTrait ifFalse: [self systemNavigation browseAllCallsOnClass: cls]]!
- cls isTrait ifFalse: [
- self systemNavigation browseAllCallsOn: (self environment bindingOf: cls theNonMetaClass name)]]!
Item was changed:
----- Method: StringHolder>>browseClassRefs (in category '*Tools-traits') -----
browseClassRefs
self selectedClass ifNotNil: [:cls |
+ cls isTrait ifFalse: [self systemNavigation browseAllCallsOnClass: cls]]
- cls isTrait ifFalse: [
- self systemNavigation browseAllCallsOn: (self environment bindingOf: cls theNonMetaClass name)]]
!