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

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

Name: Morphic-eem.1742
Author: eem
Time: 12 April 2021, 11:32:16.715075 am
UUID: c88153a2-36a5-447f-abd0-93a6b164fd6f
Ancestors: Morphic-mt.1741

Eliminate shadowed variable warning(s).

=============== Diff against Morphic-mt.1741 ===============

Item was changed:
  ----- Method: BottomLeftGripMorph>>apply: (in category 'target resize') -----
  apply: delta 
  	| oldBounds |
  	oldBounds := self target bounds.
  	self target
  		bounds: (oldBounds origin + (delta x @ 0) corner: oldBounds corner + (0 @ delta y)).
  	self flag: #workaround. "mt: Due to a layout-specific 'let us start in the top-left corner of a layout cell'-behavior, we have to go up the owner chain and propagate the delta. See Morph >> #layoutInBounds:positioning: and there section 1.2."
+ 	self target allOwnersDo:
+ 		[:anOwner |
+ 		(anOwner layoutPolicy notNil and: [anOwner ~~ Project current world])
+ 			ifTrue: [anOwner left: owner left + delta x]].!
- 	self target allOwnersDo: [:owner |
- 		(owner layoutPolicy notNil and: [owner ~~ Project current world])
- 			ifTrue: [owner left: owner left + delta x]].!

Item was changed:
  ----- Method: LeftGripMorph>>apply: (in category 'target resize') -----
  apply: delta 
  	| oldBounds |
  	oldBounds := self target bounds.
  	self target
  		bounds: (oldBounds origin + (delta x @ 0) corner: oldBounds corner).
  	self flag: #workaround. "mt: Due to a layout-specific 'let us start in the top-left corner of a layout cell'-behavior, we have to go up the owner chain and propagate the delta. See Morph >> #layoutInBounds:positioning: and there section 1.2."
+ 	self target allOwnersDo:
+ 		[:anOwner |
+ 		(anOwner layoutPolicy notNil and: [anOwner ~~ Project current world])
+ 			ifTrue: [anOwner left: anOwner left + delta x]].!
- 	self target allOwnersDo: [:owner |
- 		(owner layoutPolicy notNil and: [owner ~~ Project current world])
- 			ifTrue: [owner left: owner left + delta x]].!

Item was changed:
  ----- Method: TopGripMorph>>apply: (in category 'target resize') -----
  apply: delta 
  	| oldBounds |
  	oldBounds := self target bounds.
  	self target
  		bounds: (oldBounds origin + (0 @ delta y) corner: oldBounds corner).
  	self flag: #workaround. "mt: Due to a layout-specific 'let us start in the top-left corner of a layout cell'-behavior, we have to go up the owner chain and propagate the delta. See Morph >> #layoutInBounds:positioning: and there section 1.2."
+ 	self target allOwnersDo:
+ 		[:anOwner |
+ 		(anOwner layoutPolicy notNil and: [anOwner ~~ Project current world])
+ 			ifTrue: [anOwner top: anOwner top + delta y]].!
- 	self target allOwnersDo: [:owner |
- 		(owner layoutPolicy notNil and: [owner ~~ Project current world])
- 			ifTrue: [owner top: owner top + delta y]].!

Item was changed:
  ----- Method: TopLeftGripMorph>>apply: (in category 'target resize') -----
  apply: delta 
  	| oldBounds |
  	oldBounds := self target bounds.
  	self target
  		bounds: (oldBounds origin + delta corner: oldBounds corner).
  	self flag: #workaround. "mt: Due to a layout-specific 'let us start in the top-left corner of a layout cell'-behavior, we have to go up the owner chain and propagate the delta. See Morph >> #layoutInBounds:positioning: and there section 1.2."
+ 	self target allOwnersDo:
+ 		[:anOwner |
+ 		(anOwner layoutPolicy notNil and: [anOwner ~~ Project current world])
+ 			ifTrue: [anOwner topLeft: anOwner topLeft + delta]].!
- 	self target allOwnersDo: [:owner |
- 		(owner layoutPolicy notNil and: [owner ~~ Project current world])
- 			ifTrue: [owner topLeft: owner topLeft + delta]].!

Item was changed:
  ----- Method: TopRightGripMorph>>apply: (in category 'target resize') -----
  apply: delta 
  	| oldBounds |
  	oldBounds := self target bounds.
  	self target
  		bounds: (oldBounds origin + (0 at delta y) corner: oldBounds corner + (delta x @ 0)).
  	self flag: #workaround. "mt: Due to a layout-specific 'let us start in the top-left corner of a layout cell'-behavior, we have to go up the owner chain and propagate the delta. See Morph >> #layoutInBounds:positioning: and there section 1.2."
+ 	self target allOwnersDo:
+ 		[:anOwner |
+ 		(anOwner layoutPolicy notNil and: [anOwner ~~ Project current world])
+ 			ifTrue: [anOwner top: anOwner top + delta y]].!
- 	self target allOwnersDo: [:owner |
- 		(owner layoutPolicy notNil and: [owner ~~ Project current world])
- 			ifTrue: [owner top: owner top + delta y]].!