[squeak-dev] The Trunk: Morphic-mt.2098.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Mar 10 09:51:27 UTC 2023
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!
More information about the Squeak-dev
mailing list
|