The Trunk: Tools-eem.1057.mcz

Am 06.06.2021 01:22:20 schrieb [hidden email] <[hidden email]>:

Eliot Miranda uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-eem.1057.mcz

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

Name: Tools-eem.1057
Author: eem
Time: 5 June 2021, 4:22:06.053958 pm
UUID: 2840d28b-00c4-484c-999a-9ec5db85b28c
Ancestors: Tools-mt.1056

Restrict the width of each line in the 'all temp vars' selection of a context inspector (bottom right pane in the debugger) so as to keep 'all temp vars' useful for stepping even when one of the variables is e.g. an Array.

=============== Diff against Tools-mt.1056 ===============

Item was added:
+ ----- Method: Context>>tempsAndValuesContractedTo: (in category '*Tools-debugger access') -----
+ tempsAndValuesContractedTo: width
+ "Return a string of the temporary variables and their current values"
+ ^self debuggerMap tempsAndValuesForContext: self contractTo: width!

Item was changed:
----- Method: ContextVariablesInspector>>fieldAllTempVars (in category 'fields') -----
fieldAllTempVars

^ (self newFieldForType: #all key: #allTempVars)
name: self allTempVarsTranslated; emphasizeName;
+ valueGetter: [:object | object tempsAndValuesContractedTo: 64]; printValueAsIs;
- valueGetter: [:object | object tempsAndValues]; printValueAsIs;
yourself!

Item was added:
+ ----- Method: DebuggerMethodMap>>tempsAndValuesForContext:contractTo: (in category 'accessing') -----
+ tempsAndValuesForContext: aContext contractTo: width
+ "Return a string of the temporary variabls and their current values"
+ | aStream tempStream |
+ aStream := WriteStream on: (String new: 100).
+ tempStream := WriteStream on: (String new: width).
+ (self tempNamesForContext: aContext) doWithIndex:
+ [:title :index |
+ aStream nextPutAll: title; nextPut: $:; space; tab.
+ tempStream reset.
+ aContext print: (self namedTempAt: index in: aContext) on: tempStream.
+ aStream nextPutAll: (tempStream contents contractTo: width).
+ aStream cr].
+ ^aStream contents!