Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.2098.mcz

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

Name: Morphic-mt.2098
Author: mt
Time: 10 March 2023, 10:51:25.580811 am
UUID: 756190bd-216e-ae41-b60a-4f3a32df3ec4
Ancestors: Morphic-mt.2097

Whoops... forgot about EToys' cartesian origin...

=============== Diff against Morphic-mt.2097 ===============

Item was changed:
  ----- Method: ProportionalSplitterMorph>>splitterAbove (in category 'queries - adjacent splitters') -----
  splitterAbove
  	| immediatelyAbove |
  	immediatelyAbove := nil.
  	self siblingSplittersDo:
+ 		[ : each | 
+ 		each top < self top ifTrue:
- 		[ : each | "Splitter y's map 0 at the bottom."
- 		each top > self top ifTrue:
  			[ immediatelyAbove
  				ifNil: [ immediatelyAbove := each ]
  				ifNotNil:
+ 					[ each top > immediatelyAbove top ifTrue: [ immediatelyAbove := each ] ] ] ].
- 					[ each top < immediatelyAbove top ifTrue: [ immediatelyAbove := each ] ] ] ].
  	^ immediatelyAbove!

Item was changed:
  ----- Method: ProportionalSplitterMorph>>splitterBelow (in category 'queries - adjacent splitters') -----
  splitterBelow
  	| immediatelyBelow |
  	immediatelyBelow := nil.
  	self siblingSplittersDo:
+ 		[ : each | each top > self top ifTrue:
- 		[ : each | each top < self top ifTrue:
  			[ immediatelyBelow
  				ifNil: [ immediatelyBelow := each ]
  				ifNotNil:
+ 					[ each top < immediatelyBelow top ifTrue: [ immediatelyBelow := each ] ] ] ].
- 					[ each top > immediatelyBelow top ifTrue: [ immediatelyBelow := each ] ] ] ].
  	^ immediatelyBelow!