[squeak-dev] The Trunk: Tools-eem.1057.mcz

Marcel Taeumel marcel.taeumel at hpi.de
Mon Jun 7 06:18:52 UTC 2021


+1 :-)

Thanks!

Best,
Marcel
Am 06.06.2021 01:22:20 schrieb commits at source.squeak.org <commits at source.squeak.org>:
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!


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20210607/42c4b250/attachment.html>


More information about the Squeak-dev mailing list