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!
+1 :-)
Thanks!
Best, Marcel Am 06.06.2021 01:22:20 schrieb commits@source.squeak.org commits@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!
squeak-dev@lists.squeakfoundation.org