The Trunk: Protocols-tfel.57.mcz

Tim Felgentreff uploaded a new version of Protocols to project The Trunk:
http://source.squeak.org/trunk/Protocols-tfel.57.mcz

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

Name: Protocols-tfel.57
Author: tfel
Time: 23 September 2016, 2:02:17.869418 pm
UUID: d102b3c8-32c4-054f-81ba-8e08d7069039
Ancestors: Protocols-tfel.56

Fix showing source of uniclasses that are not in the environment in instance browsers by going directly through the instance's class for lookup

=============== Diff against Protocols-tfel.56 ===============

Item was added:
+ ----- Method: InstanceBrowser>>setClassAndSelectorIn: (in category 'as yet unclassified') -----
+ setClassAndSelectorIn: csBlock
+ | cm |
+ super setClassAndSelectorIn: [:class :selector |
+ (class notNil and: [selector notNil]) ifTrue: [^ csBlock value: class value: selector].
+ cm := targetClass
+ lookupSelector: (self selection asString findTokens: Character space) first asSymbol.
+ cm ifNotNil: [^ csBlock value: (cm methodClass ifNil: [targetClass]) value: cm selector]].
+ ^ csBlock value: nil value: nil!