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

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

Name: Tools-eem.1064
Author: eem
Time: 7 September 2021, 8:38:04.292324 pm
UUID: 2544ee88-6941-42d9-bc13-e3b384fb4708
Ancestors: Tools-ul.1063

Fix some shadowed inst var warnings in the inspector; 'object' is an inst var name but was used as a block arg name in a few methods.

=============== Diff against Tools-ul.1063 ===============

Item was changed:
  ----- Method: BasicInspector>>fieldSelf (in category 'fields') -----
  fieldSelf
  
  	^ (self newFieldForType: #self key: #self)
  		name: 'self'; emphasizeName;
+ 		valueGetter: [:obj | self basicObjectPrintString]; printValueAsIs;
- 		valueGetter: [:object | self basicObjectPrintString]; printValueAsIs;
  		valueGetterExpression: 'self';
+ 		valueSetter: [:obj :value | self object: value];  "Switch to another object-under-inspection."
- 		valueSetter: [:object :value | self object: value];  "Switch to another object-under-inspection."
  		yourself!

Item was changed:
  ----- Method: BasicInspector>>streamInstanceVariablesOn: (in category 'fields - streaming') -----
  streamInstanceVariablesOn: aStream
  
  	| attributesForInstVars |
  	attributesForInstVars :=  (UserInterfaceTheme current get: #instVar for: #SHTextStylerST80) ifNil: [#()].
  	
  	(thisContext objectClass: self object) allInstVarNames withIndexDo: [:name :index |		
  		aStream nextPut: ((self newFieldForType: #instVar key: name)
  			name: name; styleName: attributesForInstVars;
+ 			valueGetter: [:obj | thisContext object: obj instVarAt: index];
- 			valueGetter: [:object | thisContext object: object instVarAt: index];
  			valueGetterExpression: ('thisContext object: {1} instVarAt: {2}' format: { 'self'. index }); 
+ 			valueSetter: [:obj :value | thisContext object: obj instVarAt: index put: value];
- 			valueSetter: [:object :value | thisContext object: object instVarAt: index put: value];
  			yourself)].!

Item was changed:
  ----- Method: Inspector>>fieldAllInstVars (in category 'fields') -----
  fieldAllInstVars
  
  	^ (self newFieldForType: #all key: #allInstVars)
  		name: self allInstVarsTranslated; emphasizeName;
+ 		valueGetter: [:obj | obj longPrintString]; printValueAsIs;
- 		valueGetter: [:object | object longPrintString]; printValueAsIs;
  		yourself!

Item was changed:
  ----- Method: Inspector>>fieldSelf (in category 'fields') -----
  fieldSelf
  
  	^ (self newFieldForType: #self key: #self)
  		name: 'self'; styleName: ((UserInterfaceTheme current get: #self for: #SHTextStylerST80) ifNil: [#()]);
+ 		valueGetter: [:obj | obj];
+ 		valueSetter: [:obj :value | self object: value]; "Switch to another object-under-inspection."
- 		valueGetter: [:object | object];
- 		valueSetter: [:object :value | self object: value]; "Switch to another object-under-inspection."
  		yourself!

Item was changed:
  ----- Method: Inspector>>streamInstanceVariablesOn: (in category 'fields - streaming') -----
  streamInstanceVariablesOn: aStream
  
  	| attributesForInstVars |
  	attributesForInstVars :=  (UserInterfaceTheme current get: #instVar for: #SHTextStylerST80) ifNil: [#()].
  	
  	(self object perform: #class "do not inline send of #class, receiver could be a proxy") allInstVarNames withIndexDo: [:name :index |		
  		aStream nextPut: ((self newFieldForType: #instVar key: name)
  			name: name; styleName: attributesForInstVars;
+ 			valueGetter: [:obj | obj instVarNamed: name];
+ 			valueSetter: [:obj :value | obj instVarNamed: name put: value];
- 			valueGetter: [:object | object instVarNamed: name];
- 			valueSetter: [:object :value | object instVarNamed: name put: value];
  			yourself)].!