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

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

Name: Morphic-mt.2097
Author: mt
Time: 10 March 2023, 10:47:19.416811 am
UUID: 685bb901-7e7e-4c4f-934f-92491a195850
Ancestors: Morphic-mt.2096

Fix similar to the recent one in #splitterLeft and #splitterRight.

=============== Diff against Morphic-mt.2096 ===============

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