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