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

commits at source.squeak.org commits at source.squeak.org
Sat Jun 5 23:22:11 UTC 2021


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!



More information about the Squeak-dev mailing list