Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1084.mcz
==================== Summary ====================
Name: Tools-mt.1084 Author: mt Time: 8 December 2021, 6:01:17.428213 pm UUID: 89ac14d0-d8d6-b845-a717-3f3d2afc0feb Ancestors: Tools-mt.1083
In regular inspectors, fixes lookup of truncated elements in dynamically-sized objects. Note that you should still use the proper CollectionInspector if you are actually inspecting a collection. :-)
=============== Diff against Tools-mt.1083 ===============
Item was changed: ----- Method: CodeHolder>>annotationPaneHeight (in category 'toolbuilder') ----- annotationPaneHeight + ^ (Preferences standardDefaultTextFont height * 3/2) truncated! - ^ (Preferences standardCodeFont height * 3/2) rounded!
Item was changed: ----- Method: Inspector>>contentsForTruncationOf: (in category 'fields - truncation') ----- contentsForTruncationOf: truncatedKeys
+ ^ ('<Fields named {1} to {2} are not shown. {3} to inspect one of those fields or select "inspect element" from the field list menu.>' translated asText - ^ ('<Fields named {1} to {2} are not shown. {3} to inspect one of those fields or select "inspect element" from any field''s menu.>' translated asText addAttribute: TextEmphasis italic; format: { truncatedKeys first storeString. truncatedKeys last storeString. 'Click here' translated asText addAttribute: (PluggableTextAttribute evalBlock: [self inspectOneOf: truncatedKeys]); yourself. })!
Item was changed: + ----- Method: Inspector>>elementAt: (in category 'private - collections') ----- - ----- Method: Inspector>>elementAt: (in category 'menu - private') ----- elementAt: indexOrKey "Backstop to simplify #inspectOne for all kinds of inspectors."
^ (self elementGetterAt: indexOrKey) value: self object!
Item was changed: + ----- Method: Inspector>>elementGetterAt: (in category 'private - collections') ----- - ----- Method: Inspector>>elementGetterAt: (in category 'menu - private') ----- elementGetterAt: indexOrKey "Backstop to simplify #inspectOne for all kinds of inspectors."
+ ^ [:object | object basicAt: indexOrKey]! - ^ [:object | (self fields detect: [:field | field key = indexOrKey]) getValueFor: self] !
Item was changed: ----- Method: Inspector>>inspectOne (in category 'menu - commands') ----- inspectOne "This is the most generic case to inspect a specific element from the inspected object. Since trunction of fields is a generic feature, support lookup for those truncated objects also for non-collections."
+ self inspectOneOf: (1 to: self object basicSize).! - self inspectOneOf: ( - self fields - select: [:field | field key notNil] - thenCollect: [:field | field key]).!
squeak-dev@lists.squeakfoundation.org