The Trunk: MorphicExtras-dtl.212.mcz

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]!