The Trunk: Tools-mt.854.mcz

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

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

Name: Tools-mt.854
Author: mt
Time: 22 July 2019, 11:06:46.775271 am
UUID: 9f30ae3b-a6ae-43f7-ae0b-3bf3e300b85c
Ancestors: Tools-mt.853

For class-ref search, use the tool's environment to find the relevant class binding. Do not rely on the class's original environment.

This shouldn't make any difference at the moment but maybe in the future if somebody decides to make the identity of class bindings important. See:

Lookupkey >> #literalEqual:
ClassBinding >> #literalEqual:

Also see TextEditor >> #referencesToIt, which also uses the tool's (there: "model") environment.

=============== Diff against Tools-mt.853 ===============

Item was changed:
  ----- Method: ObjectExplorer>>browseClassRefs (in category 'menus - actions') -----
  browseClassRefs
 
+ self selectedClass ifNotNil: [:cls |
+ cls isTrait ifFalse: [
+ self systemNavigation browseAllCallsOn: (self environment bindingOf: cls theNonMetaClass name)]]!
- (self selectedClass notNil and: [self selectedClass isTrait not])
- ifTrue: [self systemNavigation browseAllCallsOnClass: self selectedClass theNonMetaClass].!

Item was changed:
  ----- Method: StringHolder>>browseClassRefs (in category '*Tools-traits') -----
  browseClassRefs
 
+ self selectedClass ifNotNil: [:cls |
+ cls isTrait ifFalse: [
+ self systemNavigation browseAllCallsOn: (self environment bindingOf: cls theNonMetaClass name)]]
- | cls |
- cls := self selectedClass.
- (cls notNil and: [cls isTrait not])
- ifTrue: [self systemNavigation browseAllCallsOnClass: cls theNonMetaClass]
  !