Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.2095.mcz
==================== Summary ====================
Name: Morphic-mt.2095
Author: mt
Time: 8 March 2023, 10:14:08.422447 am
UUID: 00cdaa33-4727-5a43-9236-b1dd3379ea34
Ancestors: Morphic-mt.2094
Fix minor EToys dependency in splitters.
=============== Diff against Morphic-mt.2094 ===============
Item was changed:
----- Method: ProportionalSplitterMorph>>splitterLeft (in category 'queries - adjacent splitters') -----
splitterLeft
| immediateLeft |
immediateLeft := nil.
self siblingSplittersDo:
+ [ : each | each left < self left ifTrue:
- [ : each | each x < self x ifTrue:
[ immediateLeft
ifNil: [ immediateLeft := each ]
ifNotNil:
+ [ each left > immediateLeft left ifTrue: [ immediateLeft := each ] ] ] ].
- [ each x > immediateLeft x ifTrue: [ immediateLeft := each ] ] ] ].
^ immediateLeft!
Item was changed:
----- Method: ProportionalSplitterMorph>>splitterRight (in category 'queries - adjacent splitters') -----
splitterRight
| immediateRight |
immediateRight := nil.
self siblingSplittersDo:
+ [ : each | each left > self left ifTrue:
- [ : each | each x > self x ifTrue:
[ immediateRight
ifNil: [ immediateRight := each ]
ifNotNil:
+ [ each left < immediateRight left ifTrue: [ immediateRight := each ] ] ] ].
- [ each x < immediateRight x ifTrue: [ immediateRight := each ] ] ] ].
^ immediateRight!
Marcel Taeumel uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-mt.1506.mcz
==================== Summary ====================
Name: Kernel-mt.1506
Author: mt
Time: 8 March 2023, 9:27:37.752447 am
UUID: 9693770e-3cbf-9d4e-96e2-8e6a99eaa4fa
Ancestors: Kernel-mt.1505
Moves still-used #peekPosition method from ST80 to Kernel. See senders. Adds commentary.
=============== Diff against Kernel-mt.1505 ===============
Item was changed:
----- Method: EventSensor>>peekButtons (in category 'private') -----
peekButtons
+ self flag: #toRename. "mt: peek-api is ST80. Find a better name or remove usage by using something like HandMorph >> #lastEvent."
self fetchMoreEvents.
self eventQueue ifNotNil: [:queue | queue flush].
^ mouseButtons!
Item was added:
+ ----- Method: EventSensor>>peekPosition (in category 'private') -----
+ peekPosition
+
+ self flag: #toRename. "mt: peek-api is ST80. Find a better name or remove usage by using something like HandMorph >> #position."
+ self fetchMoreEvents.
+ self eventQueue ifNotNil: [:queue | queue flush].
+ ^ mousePosition!