Eliot Miranda uploaded a new version of FFI-Tests to project FFI:
http://source.squeak.org/FFI/FFI-Tests-eem.71.mcz
==================== Summary ====================
Name: FFI-Tests-eem.71
Author: eem
Time: 11 March 2023, 5:46:13.184007 pm
UUID: db60f962-7d44-48b3-bce4-734c13fe6641
Ancestors: FFI-Tests-mt.70
Update FFIPluginTests>>arm64Check now that the latest version of the plugin is ok.
=============== Diff against FFI-Tests-mt.70 ===============
Item was changed:
----- Method: FFIPluginTests>>arm64Check (in category 'support') -----
arm64Check
+ "If required, mark the current test as failure to avoid segmentation fault
+ due to issues in older versions of the plugin code."
- "Mark the current test as failure to avoid segmentation fault due to issues in the plugin code."
+ (FFIPlatformDescription current isARM
+ and: [FFIPlatformDescription current wordSize = 8
+ and: [Smalltalk vmVMMakerVersion < 3309]]) ifTrue:
+ [self fail: 'Not supported. Segmentation fault avoided.']!
- (FFIPlatformDescription current isARM and: [FFIPlatformDescription current wordSize = 8])
- ifTrue: [self fail: 'Not supported. Segmentation fault avoided.'].!
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!
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!