David T. Lewis uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-dtl.212.mcz
==================== Summary ====================
Name: MorphicExtras-dtl.212 Author: dtl Time: 14 October 2017, 5:16:39.597724 pm UUID: aa647724-2bdf-4bc6-8d0a-7dd23a8ecd13 Ancestors: MorphicExtras-pre.211, MorphicExtras-dtl.210
Merge MorphicExtras-dtl.210 to fix system window layout when flaps are enabled
=============== Diff against MorphicExtras-pre.211 ===============
Item was changed: ----- Method: RealEstateAgent class>>reduceByFlaps: (in category '*MorphicExtras-utilities') ----- reduceByFlaps: aScreenRect "Return a rectangle that won't interfere with default shared flaps"
+ | top bottom left right | Flaps sharedFlapsAllowed ifFalse: [^ aScreenRect copy]. + + top := bottom := left := right := 0. + Flaps globalFlapTabs do: [ :ft | | w h | + w := ft width. + h := ft height. + ft edgeToAdhereTo + caseOf: { + [ #top ] -> [ top := top max: h ]. + [ #bottom ] -> [ bottom := bottom max: h ] . + [ #left ] -> [ left := left max: w ] . + [ #right ] -> [ right := right max: w ] . + } + otherwise: [] ]. + ^ Rectangle + origin: aScreenRect origin + (left @ top) + extent: aScreenRect extent - (bottom @ right). + ! - (Flaps globalFlapTabsIfAny allSatisfy: - [:ft | ft flapID = 'Painting' translated or: [ft edgeToAdhereTo == #bottom]]) - ifTrue: [^ aScreenRect withHeight: aScreenRect height - 18] - ifFalse: [^ aScreenRect insetBy: 64]!
packages@lists.squeakfoundation.org